2010-5-18 1
Visual Basic程序设计
第七讲
第三章 Visual Basic的程序设计基础
（四）
2010-5-18 2
本
讲
要
点
使用 InputBox函数输入数据
使用滚动条控件输入数据
使用图片框控件输出数据
从立即窗口输出数据
VB程序中的基本语句
使用文本框输入数据
2010-5-18 3
图片框控件用于在窗体的特殊位置上放置图
形, 图像和文本信息, 也可放置多个控件 。
1,图片框控件的常用属性
图片框有很多窗体和标签相同的属性, 如
Autosize,BorderStyle等 。 下面列出图片框中的
一些特有的属性 。 如表 3-18所示
2,图片框常用的方法和事件 。
图片框常用的方法大多数与窗体相同这里不
做特殊介绍。图片框常用的事件和标签控件相同，
这里也不再介绍。
3.6.8 在图片框控件上输出文本
2010-5-18 4
对象 属性 属性值 说明
PictureBox Align 0-None 表示图片的显示方式, 值为 0无
显示, 该值为默认方式
1-Align Top 值为 1表示向窗体顶部对齐, 图
片框与窗体一样宽, 并位于窗
体上端 。
2-Align
Buttom
值为 2表示向窗体底部对齐, 图
片框与窗体一样宽, 并位于窗
体底端
3-Align Left 值为 3表示向窗体左边对齐, 图
片框与窗体一样高, 并位于窗
体左边
4-Align Right 值为 4表示向窗体右边对齐, 图
片框与窗体一样高, 并位于窗
体右边
Picture 该属性用于设定欲显示的图片
表 3-18图片框的属性
2010-5-18 5
【 例 3-7】 创建工程，在图片框中输出文本，
当按下“文本输出”按钮，输出红色“欢
迎新千年！”的文本，当按下“立体效果”
按钮，就会产生具有立体效果的“欢迎新
千年！”的文本，按“退出”按钮，退出
程序。
（ 1）设计工程界面图如下图所示，它有一
个图片框和三个命令按钮。 图片
框
控
件
2010-5-18 6
对象名 属性名 属性值 说明
Form1 Caption 立体效果文本的输出 标题
Picture1 Autosize
Appearance
True
1-3D
使图片框适应内容
Command1 Caption 文本输出 标题
Font 宋体, 粗体, 五号 命令按钮上的字体
Command2 Caption 立体效果 标题
Font 宋体, 粗体, 五号 命令按钮上的字体
Command3 Caption 退出 标题
Font 宋体, 粗体, 五号 命令按钮上的字体
（ 2）设置窗体及控件属性如表 3-19所示
表 3-19
2010-5-18 7
（ 3） 为工程编写代码如下：
编写单击命令按钮, 文本输出, 所执行的命令代码 。
Private Sub Command1_Click()
' 设置一个值, 指示当使用 graphics 方法
' 或可定位的控件时, 对象坐标的度量单位 。
' 当 ScaleMode = 1使用坐标的单位是缇
Picture1.ScaleMode = 1
' 设置输出字体为 "隶书 "
Picture1.FontName =,隶书,
'设置输出在图片框上文本的大小
Picture1.FontSize = 32
'设置输出文本在图片框上的 X坐标
Picture1.CurrentX = 150 + 20
2010-5-18 8
'设置输出文本在图片框上的 Y坐标
Picture1.CurrentY = 150 + 20
'设置输出文本的颜色为红色
Picture1.ForeColor = RGB(255,0,0)
'用 Print方法在图片框上输出文本
Picture1.Print“迎接新千年 !”
End Sub
2010-5-18 9
编写单击命令按钮, 立体效果, 所执行的命令代码 。
Private Sub Command2_Click()
Picture1.CurrentX = 150
Picture1.CurrentY = 150
'设置输出文本的颜色为黑色
Picture1.ForeColor = RGB(0,0,0)
Picture1.Print "迎接新千年 !"
End Sub
2010-5-18 10
编写单击命令按钮, 退出, 所执行的命令代码 。
Private Sub Command3_Click()
Picture1.Cls
End Sub
（ 4）按 F5键运行工程结果如下面右图所示。
2010-5-18 11
在 VB中, 有时为了检查某些变量运
行时的中间结果, 也可把它的值输出到
立即窗口中 。
格式如下：
Debug.Print 变量表列
例如：
Private Sub Command1_Click()
Dim a As String
a = "新年好 "
Debug.Print a
End Sub
3.6.9 输出到立即窗口
2010-5-18 12
按 F5键运行程序，然后单击命令按
钮 Command1则把“新年好”三个字输
出到立即窗口中如下图所示。
2010-5-18 13
§ 3.7 VB基本的语句介绍
1,LET赋值语句
赋值是指将一个值赋值给一个变量和某个
对象的属性 。 在 VB中赋值操作是由赋值语句完
成的, 赋值语句的格式：
[LET] <名称 > = <表达式 >
其中 LET是 VB关键字, 为可选项, 这里可省略 。
<名称 >可以是 VB中的变量和某个对象的属性名 。
,=”为赋值号 。
<表达式 >可以是算术表达式、字符表达式、日期
表达式、关系表达式或逻辑表达式。
2010-5-18 14
例 交换两个变量中的数据
分析：将两个不同的变量设想为两个瓶子 A、
B，其中分别装有不同颜色的液体，要交换瓶
中的液体。可以这样做：另取一个瓶子 C，先
将瓶 A中的液体倒入瓶 C中，再将瓶 B的液体倒
入 A中，最后将瓶 C中的液体倒入 B中即可。
设计步骤如下：
（ 1）新建工程，在窗体设计器上填加一个命令
按钮和四个标签控件。如下图所示：
2010-5-18 15
（ 2）设置对象属性如下
对象 属性 属性值 说明
按钮上的标题
标签上的内容
标签上的内容
标签上的内容
标签的背景
标签的背景
标签上的内容
单线边框
单线边框
Caption
Caption
Caption
Caption
Caption
BackColor
BackColor
BorderStyle
BorderStyle
Command1
Label1
Label2
Label3
Label4
A=
B=
1234
ABCDE
(白色 )
(白色 )
1-Fixed Single
1-Fixed Single
交换
2010-5-18 16
（ 3）编写代码如下：
Private Sub Command1_Click()
t = Label3.Caption
Label3.Caption = Label4.Caption
Label4.Caption = t
End Sub
2010-5-18 17
（ 4）按 F5键运行工程，出现如下图左边所
示的界面，再按“交换”按钮结果如下图
右边所示：
2010-5-18 18
2,Set语句（赋值对象的引用）
Set语句的作用是将对象引用赋值给变量
或属性。所谓对象引用，是指被赋与对象引用
的变量或属性并不是在内存中新建的变量或属
性，它只是表示这个对象又多了一个别名，可
以用这个被赋与对象引用的变量或属性来引用
这个对象。
对于声明为 object数据类型的变量，其后
可用 Set语句来指定一个被声明为 object的变量
去引用应用程序中所识别的任何实际对象。
2010-5-18 19
Set语句的使用格式为：
<Set> <objectvar> = [New] <objectexpress>[Nothing]
说明：
这里关键字 Set为必选项。 <objectvar>为必
选项，表示类型为 object的变量名,[New] 为可
选项，通常在声明时使用 New,以便可隐式创
建对象。 <objectexpress>是必选项，表示类型为
object的表达式。由对象名、所声明的相同对象
类型的其他变量，或者返回相同类型的函数或方
法所组成的表达式。
2010-5-18 20
[Nothing] 是可选项 。 其 作用 是 断 绝
objectvar与任何指定对象的关联 。 若没有
其他变量指向 objectvar原来引用的对象,
将其赋值为 Nothing会释放该对象所关联
的所有系统及内存资源 。
在 Set语句中,objectvar必须与所赋
值对象具有一致的对象类型。
例如：
Dim objDb As Object
Set objDb =
OpenDatabase(c:\vb98\biblio.mdb”)
2010-5-18 21
又例如
Set Picture1,Picture =
LoadResPicture(“bmp1”,vbResBitmap)
Set Me.Icon = Load ResPicture(“ico1”,
vbResIcon)
等都是合法的 Set语句
【 例 3-8】 建立一个窗体, 在上面添加一个文
本框, 一个标签和一个命令按钮, 如下页
图 3-14所示 。
2010-5-18 22
在代码窗口中输入下列代码
Private Sub Command1_Click()
Dim ob1 as Object,ob2 as Object
Set ob1=Label1
Set ob2=Text1
Ob1=”欢迎学习,
Ob2=”VisualBasic编程技术,
End Sub
Private Sub Command2_Click()
Unload me
End Sub 图 3-14
设置 Label1的 Caption
属性为“欢迎学习”
设置 Text1的 text属性为
,Visual Basic编程技术,
2010-5-18 23
在上面的代码中先用 Dim定义了两个对象变量：
ob1和 ob2,然后分别设置它们的对象引用为 Leabel1
和 Text1。 注意当对象引用被保存在对象变量中时,
仍然可以使用缺省属性来简化代码的输入 。 因为 ob1
被设为 Label1的对象引用, 而 Label1的缺省值为
Caption属性, 可省略它, 直接给出 Caption的值 。
同理 ob2 被设定为 Text1的对象引用, Text1 的缺省
属性是 Text属性, 可省略 。
运行程序程序, 单击命令按钮时得到的结果如下
图所示 。
2010-5-18 24
3,注释语句（ REM）
为了提高程序的可读性, 通常应在程序中加上
一些注释 。
注释语句的一般格式
格式 1,Rem <注释内容 >
格式 2,′<注释内容 >
说明：
Rem为 VB关键字，表示后面为注释的内容，
也可用撇号,′”来代替 Rem。 Rem语句如果放在
其他语句的后面，应用“：”来分隔。注意注释
行不能有续行。
2010-5-18 25
例如：
Rem 设定在图片框上显示的文字的颜色为黑色
Picture1.ForeColor = RGB(0,0,0)
或
Picture1.ForeColor = RGB(0,0,0),Rem设定在图片
框上显示的文字的颜色为黑色
或
Picture1.ForeColor = RGB(0,0,0) ′设定在图片框上显
示的文字的颜色为黑色
上面三个语句的作用一样，都是为语句
Picture1.ForeColor = RGB(0,0,0)作注释。
2010-5-18 26
4,暂停语句（ STOP）
Stop语句用来暂停程序的运行 。 为了调试程序,
往往在程序中用 Stop语句来设置断点 。
Stop语句的一般格式如下
Stop
说明：
（ 1） Stop语句的主要作用是为解释性的程序设置断点,
以方便调试程序, 当程序中遇到 Stop语句时, 系统
将自动打开 DeBug窗口 。
（ 2） Stop语句不会关闭窗口和清除变量的值 。 但如果
在生成的可执行文件中遇到 Stop语句就会关闭窗口
和清除变量, 所以在生成可执行文件之前, 应删除
所有的 Stop语句 。
2010-5-18 27
一般格式
End
在 VB中一般应用 End语句结束程序
的运行，以保证程序的完整性。例如，
在窗体的设计中。一般除了有其他与程
序有关的各种按钮，通常都有应设置
“退出”按钮。用以结束程序的运行。
5,结束语句
2010-5-18 28
例如, 在 一个窗 体中我们 使用命 令按钮
Command2作为退出, 按钮 。 则可编写下列
代码：
Private Sub Command2_Click()
End
End Sub
当单击, 退出, 按钮时, 就执行 End语句,
结束程序的运行 。
2010-5-18 29
§ 3.8 数据的输入语句
VB程序中允许用户输入文本信息的最
直接的方法是使用文本框 。 另外还可以使用
滚动条和对话框来输入文本信息 。
3.8.1 使用文本框控件的输入数据
文本框是一个非常灵活的数据输入工具，
可以输入单行文本也可以输入多行文本。它
是 Windows应用程序中不可缺少的部分。前
面已经介绍过它的属性、方法或事件。
下面举例说明使用文本框作为输入的例
子 。
2010-5-18 30
【 例 3-9】 设计一个工程, 使对输入到文本框中
的英文字母既可以进行大写转换, 也可进行
小写转换；还能还原成输入时的状态 。
设计工程步骤如下：
（ 1） 设置用户工程界面, 启动 VB选, 新建工
程, 中的, 标准 EXE”工程 。 在出现的窗体上,
添加一个标签控件 Label1,一个文本框控件
Text1和三个命令按钮 。 如图 3-15左图所示 。
（ 2） 设置窗体和各控件的属性如表 3-20所示 。
（ 3）代码编写如下：
2010-5-18 31
编写文本框的 KeyUp（ 键抬起 ） 事件所执行
的代码, 文本框的 Tag属性赋值为文本框上输入
的内容 （ Tag属性用于存储程序所需的附加数
据 ） 。
Private Sub Text1_KeyUp(KeyCode As Integer,_
Shift As Integer)
Text1.Tag = Text1.Text
End Sub
编写单击, 变成大写, 按钮所执行的代码 。
Private Sub Command1_Click()
Text1.Text = UCase(Text1.Tag)
End Sub
2010-5-18 32
编写单击, 变成小写, 按钮所执行的代码 。
Private Sub Command2_Click()
Text1.Text = LCase(Text1.Tag)
End Sub
编写单击, 复原, 按钮所执行的代码 。
Private Sub Command3_Click()
Text1.Text = Text1.Tag
End Sub
2010-5-18 33
对 象 属 性 属 性 值 说 明
Form1 Caption 英文大小写转换 窗体标题
Label1 Caption 请输入英文字母 为文本框加标题
Text1 Text 开始为空
Font 宋体, 规则, 四号
Command1 Caption 变成大写 按钮上的文字
Command2 Caption 变成小写 按钮上的文字
Command3 Caption 复原 按钮上的文字
表 3-20
2010-5-18 34
（ 4） 运行工程 。
按 F5或工具栏上的执行按钮运行工
程，首先在文本框中输入英文字母，大
小写不限。然后按“变大写”按钮，所
输入的英文字母全部变成大写英文字母。
按“变小写”按钮，所输入的英文字母
全部变成小写英文字母。如下页图中所
示。
2010-5-18 35
2010-5-18 36
3.8.2 用滚动条控件的输入数据
滚动条 （ ScrollBar） 是 Windows视
窗中一个不可缺少的元素, 由于窗口的
面积有限, 我们不得不把屏幕上的内容
滚来滚去, 用来显示窗口以外的大量的
内容, 这就是我们为什么要经常用到滚
动条 。 滚动条除了用于滚动窗口, 还可
以用来作为输入数据的工具 。
2010-5-18 37
3.8.2 用滚动条控件的输入数据
在 VB中提供了两个常规的滚动条控
件 VScrollBar和 HScrollBar,分别代表垂
直的和水平的滚动条, 它们只是方向不同,
而它们的属性, 以及会发生的事件都是相
同的 。 滚动条常用的属性如下页表 3-21所
示 。
2010-5-18 38
表 3-21 滚动条常用的属性
属 性 属 性 值 说 明
LargeChange 正整数 用来设定当用鼠标单击滚动箭头和滚动块之
间的区域时, 滚动的幅度 。
SmallChange 正整数 用来设定当用鼠标单击滚动箭头时滚动的幅度 。
Max -32768~
32767
用来设置滚动条的最大值 。
Min 用来设置滚动条的最小值
Value 滚动条的当前值
2010-5-18 39
2,滚动条的方法和事件
滚动条没有特有的方法, 其事件中主
要有 Scroll和 Change两个 。
Scroll,当在滚动条内拖动滚动块时, 事件
Scroll发生 。 这一事件主要用于跟踪滚动
条的动态变化 。
Change,当滚动条的位置发生变化时, 事
件 Change发生 。
2010-5-18 40
3,使用滚动条控件
由于当输入控件需要时都自带滚动
条，所以很少单独使用滚动条。一般来
讲，在设计阶段主要设置滚动条的
LargeChange,SmallChange,Max和
Min属性，而在运行阶段，通过在其
Scroll和 Change事件过程中取得其 Value
属性值而监视用户对滚动条的操作。
2010-5-18 41
【 例 3-10】 编写程序将摄氏温度变成华氏
温度 。
转换公式为：
c=5*(F-32)/9
其中 C表示摄氏温度, F表示华氏温度 。
摄氏温度变成华氏温度的公式为：
F=32+9*C/5
下面给出工程设计步骤：
（ 1）建立用户工程界面。在窗体上添加四个
标签控件、一个文本框、一个水平滚动条
和两个直线控件，如下页图中所示。
2010-5-18 42
（ 2）设置窗体及各控件的属性如表 3-22
所示。其中 Label1和 Label2的 Caption
属性分别为“摄氏温度”和“华氏温
度”分别给 Text1和 Label4加标题。
2010-5-18 43
对 象 属 性 属 性 值 说 明
Form1 Caption 摄氏温度转华氏温
度
标题
Label3 Caption 摄氏温度变化 给水平滚动条加注释
Label4 Caption 运行后用华氏温度值填充
Name Display2 代码编写时引用名
BorderStyle 1-Fixed 有边框
Text1 Name Display1 代码编写时引用名
Text 运行后用摄氏温度值填充
Hscroll1 Name Hscroll1 代码编写时引用名
LargeChange 10 单击滚动框前后位置时的
变化值
SmallChange 2 单击滚动条上的箭头时的
变化值
Max 200 滚动条能表示的最大值
Min 0 滚动条能表示的最小值
2010-5-18 44
（ 3）代码编写如下：
编写滚动条 hscroll1的 Change事件代码
Private Sub hscroll1_Change()
Dim c As Single,f As Single
Display1.Text = Str$(hscroll1.Value)
c = Val(Display1.Text)
f = 32 + 9 * c / 5
Display2.Caption = Str$(f)
End sub
2010-5-18 45
（ 4）运行工程
按工具栏上的执行按钮, 出现如图 3-
17右图所示的界面, 然后用鼠标左键移动
滚动条中的滚动框或用鼠标单击滚动条两
边的箭头, 就可从文本框以及标签框 4中
看到当滚动条中的滚动框处于不同位置时
摄氏温度发生变化, 而相应的华氏温度也
在变化, 它们是对等的关系 。 这里滚动条
起到了输入摄氏温度值的作用 。
2010-5-18 46
图 3-17
2010-5-18 47
3.8.3 用 InputBox 函数输入数据
InputBox函数用来在对话框中显示提
示, 等待用户输入正文或按下按钮, 并返
回包含文本框内容的 String。
1,语法：
InputBox(<prompt>[,title] [,default] [，
xpos] [,ypos] [,helpfile,context])
InputBox 函数的语法具有以下几个命名参
数：
2010-5-18 48
2,说明：
（ 1） 参数 prompt是必选项, 参数 title是可选项,
它们的意义同前面介绍的 MsgBox函数 。
（ 2） default 可选项 。 显示文本框中的字符
串表达式, 在没有其它输入时作为缺省值 。
如果省略 default,则文本框为空 。
（ 3） xpos,ypos 可选项。数值表达式，成
对出现，指定对话框的左边与屏幕左边的水
平距离和对话框的上边与屏幕上边的距离。
如果省略 xpos，则对话框会在水平方向居中。
如果省略 ypos，则对话框被放置在屏幕垂直
方向距下边大约三分之一的位置。
2010-5-18 49
（ 4） helpfile,context 可选项 。 helpfile
为字符串表达式, context为数值表达式,
helpfile识别帮助文件, 用该文件为对话
框提供上下文相关的帮助 。 如果已提供
helpfile,则也必须提供 context。
注意,如果还要指定第一个命名参数以外
的参数，则必须在表达式中使用
InputBox。如果要省略某些位置参数，
则必须加入相应的逗号分界符。
2010-5-18 50
【 例 3-11】 本示例说明使用 InputBox
函数来显示用户输入数据的不同用法。
如果省略 x 及 y 坐标值，则会自动将对
话框放置在两个坐标的正中。如果用户
单击“确定”按钮或按下,ENTER”按
键，则变量 MyValue 保存用户输入的
数据。如果用户按下“取消”按钮，则
返回一零长度字符串。
2010-5-18 51
（ 1）设计一如下图所示的界面其
属性设置如图中所示。
2010-5-18 52
（ 2） 编写程序如下代码：
Private Sub Cmd示例 1_Click()
Dim Message,Title,Default,MyValue
Message = "请输入 0—9间的数字 " ' 设置提示信息 。
Title = "InputBox 示例 " ' 设置标题 。
Default = "1" ' 设置缺省值 。
‘ 显示信息、标题及缺省值。
MyValue = InputBox(Message,Title,Default)
Text1.Text = MyValue
End Sub
2010-5-18 53
Private Sub Cmd示例 2_Click()
Dim Message,Title,Default,MyValue
' 设置提示信息
Message =,请输入 0—9间的数字,
Title =,InputBox示例, ' 设置标题
Default = "1" ' 设置缺省值
' 使用帮助文件及上下文 。 "帮助 "按钮便会自动出
现 。
MyValue = InputBox(Message,Title，,,,
_
"DEMO.HLP",10)
Text1.Text = MyValue
End Sub
2010-5-18 54
Private Sub cmd示例 3_Click()
Dim Message,Title,Default,MyValue
' 设置提示信息 。
Message = "请输入 0—9间的数字 "
Title = "InputBox 示例 " ' 设置标题 。
Default = "1" ' 设置缺省值 。
' 在 100,100 的位置显示对话框 。
MyValue = InputBox(Message,Title,_
Default,100,100)
Text1.Text = MyValue
End Sub
2010-5-18 55
Private Sub Cmd退出 _Click()
End
End Sub
按 F5运行该程序, 单击, 示例 1”按钮后,
显示出如图 3-19所示的对话框 。 单击, 示
例 2” 按钮后, 显示出如图 3-20左图所示的
对话框 。 单击, 示例 3” 按钮后, 在屏幕
100,100 的位置显示出如图 3-19右图所示
的对话框 。 输入 5再按确定按钮显示结果如
图 3-20右图所示 。
2010-5-18 56
2010-5-18 57
使用函数时应注意以下几点：
（ 1）执行 InputBox函数后，产生一个对
话框，提示用户输入数据。光标位于该
对话框底部的输入区中。如果第三个参
数（ default）不省略，则在输入区中显
示该参数的值。此时如果按回车键或单
击对话框中的“确定”按钮，则输入默
认值，并把它赋给一个变量；如果不想
输入默认值，则可以键入所需要的数据,
然后按回车键或单击“确定”按钮输入。
2010-5-18 58
（ 2） InputBox函数的返回值是一个字符串，
当需要用 InputBox函数输入数值，且这些数
值要参加运算时，必需在进行运算前用函数
把它转换成数值型。
（ 3）在执行 InputBox函数所产生的对话框中，
有两个命令按钮。“确定”和“取消”。输
入数据后按“确定”则返回输入区输入的数
据。按“取消”则输入数据作废，返回一个
空字符串。
2010-5-18 59
（ 4）每执行一次 InputBox函数只能输入一个
值，如果想输入多个值，则必须多次调用
InputBox函数，输入数据并按回车键后，对
话框消失，输入的数据必须作为函数的返回
值赋给一个变量，否则输入的数据不能保留。
例：为了在窗体上输出学生的情况，设计如下
工程。
（ 1）编写代码如下：
2010-5-18 60
Private Sub Form_Click()
msg1$ = "请输入姓名,"
msgtitle$ = "学生情况登记 "
msg2$ = "请输入年龄,"
msg3$ = "请输入性别,"
msg4$ = "请输入籍贯,"
2010-5-18 61
studname$ = InputBox$(msg1$,msgtitle$)
studage = InputBox$(msg2$,msgtitle$)
studsex$ = InputBox$(msg3$,msgtitle$)
studhome$ = InputBox$(msg4$,msgtitle$)
Cls
Print studname$; ","; studsex$; ",现年 ";
Print studage; "岁 "; ","; studhome$; "人 "
End Sub
（ 2）运行结果下页所示
2010-5-18 62
运行结果示意图
2010-5-18 63
运行结果示意图
2010-5-18 64
例：滚动的字幕
工程设计步骤如下：
（ 1）设计界面。
在窗体设计器上添加一个文本框、一
个计时器控件和两个命令按钮。
（ 2）属性设置。
设置 Command1的 Caption属性为“暂
停”，设置 Command２的 Caption属性为
“继续”，设置窗体的 Caption属性为“滚
动的字幕”。
2010-5-18 65
例 3-05滚动的字幕
（ 3）编写代码如下
Dim words As String
Dim i As Integer
Dim txtword As String
Dim length As Integer
' 编写单击“暂停”按钮所执行的代码
Private Sub Command1_Click()
Timer1.Enabled = False
End Sub
在窗体模块
的声明段声
明的变量，
在本窗体的
所有模块中
都有效。
2010-5-18 66
?编写单击“继续”按钮所执行的代码
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Label1.Enabled = False
Label1.Caption =,热烈庆祝山东 _
大学百年华诞 "
words = Label1.Caption
Timer1.Interval = 400
Timer1.Enabled = True
End Sub
2010-5-18 67
Private Sub Timer1_Timer()
Label1.Enabled = True
length = Len(words)
txtword = Left(words,i)
Label1.Caption = txtword
i = i + 1
If i > length Then
i = 0
End If
End Sub
2010-5-18 68
界面设计和运行结果
Visual Basic程序设计
第七讲
第三章 Visual Basic的程序设计基础
（四）
2010-5-18 2
本
讲
要
点
使用 InputBox函数输入数据
使用滚动条控件输入数据
使用图片框控件输出数据
从立即窗口输出数据
VB程序中的基本语句
使用文本框输入数据
2010-5-18 3
图片框控件用于在窗体的特殊位置上放置图
形, 图像和文本信息, 也可放置多个控件 。
1,图片框控件的常用属性
图片框有很多窗体和标签相同的属性, 如
Autosize,BorderStyle等 。 下面列出图片框中的
一些特有的属性 。 如表 3-18所示
2,图片框常用的方法和事件 。
图片框常用的方法大多数与窗体相同这里不
做特殊介绍。图片框常用的事件和标签控件相同，
这里也不再介绍。
3.6.8 在图片框控件上输出文本
2010-5-18 4
对象 属性 属性值 说明
PictureBox Align 0-None 表示图片的显示方式, 值为 0无
显示, 该值为默认方式
1-Align Top 值为 1表示向窗体顶部对齐, 图
片框与窗体一样宽, 并位于窗
体上端 。
2-Align
Buttom
值为 2表示向窗体底部对齐, 图
片框与窗体一样宽, 并位于窗
体底端
3-Align Left 值为 3表示向窗体左边对齐, 图
片框与窗体一样高, 并位于窗
体左边
4-Align Right 值为 4表示向窗体右边对齐, 图
片框与窗体一样高, 并位于窗
体右边
Picture 该属性用于设定欲显示的图片
表 3-18图片框的属性
2010-5-18 5
【 例 3-7】 创建工程，在图片框中输出文本，
当按下“文本输出”按钮，输出红色“欢
迎新千年！”的文本，当按下“立体效果”
按钮，就会产生具有立体效果的“欢迎新
千年！”的文本，按“退出”按钮，退出
程序。
（ 1）设计工程界面图如下图所示，它有一
个图片框和三个命令按钮。 图片
框
控
件
2010-5-18 6
对象名 属性名 属性值 说明
Form1 Caption 立体效果文本的输出 标题
Picture1 Autosize
Appearance
True
1-3D
使图片框适应内容
Command1 Caption 文本输出 标题
Font 宋体, 粗体, 五号 命令按钮上的字体
Command2 Caption 立体效果 标题
Font 宋体, 粗体, 五号 命令按钮上的字体
Command3 Caption 退出 标题
Font 宋体, 粗体, 五号 命令按钮上的字体
（ 2）设置窗体及控件属性如表 3-19所示
表 3-19
2010-5-18 7
（ 3） 为工程编写代码如下：
编写单击命令按钮, 文本输出, 所执行的命令代码 。
Private Sub Command1_Click()
' 设置一个值, 指示当使用 graphics 方法
' 或可定位的控件时, 对象坐标的度量单位 。
' 当 ScaleMode = 1使用坐标的单位是缇
Picture1.ScaleMode = 1
' 设置输出字体为 "隶书 "
Picture1.FontName =,隶书,
'设置输出在图片框上文本的大小
Picture1.FontSize = 32
'设置输出文本在图片框上的 X坐标
Picture1.CurrentX = 150 + 20
2010-5-18 8
'设置输出文本在图片框上的 Y坐标
Picture1.CurrentY = 150 + 20
'设置输出文本的颜色为红色
Picture1.ForeColor = RGB(255,0,0)
'用 Print方法在图片框上输出文本
Picture1.Print“迎接新千年 !”
End Sub
2010-5-18 9
编写单击命令按钮, 立体效果, 所执行的命令代码 。
Private Sub Command2_Click()
Picture1.CurrentX = 150
Picture1.CurrentY = 150
'设置输出文本的颜色为黑色
Picture1.ForeColor = RGB(0,0,0)
Picture1.Print "迎接新千年 !"
End Sub
2010-5-18 10
编写单击命令按钮, 退出, 所执行的命令代码 。
Private Sub Command3_Click()
Picture1.Cls
End Sub
（ 4）按 F5键运行工程结果如下面右图所示。
2010-5-18 11
在 VB中, 有时为了检查某些变量运
行时的中间结果, 也可把它的值输出到
立即窗口中 。
格式如下：
Debug.Print 变量表列
例如：
Private Sub Command1_Click()
Dim a As String
a = "新年好 "
Debug.Print a
End Sub
3.6.9 输出到立即窗口
2010-5-18 12
按 F5键运行程序，然后单击命令按
钮 Command1则把“新年好”三个字输
出到立即窗口中如下图所示。
2010-5-18 13
§ 3.7 VB基本的语句介绍
1,LET赋值语句
赋值是指将一个值赋值给一个变量和某个
对象的属性 。 在 VB中赋值操作是由赋值语句完
成的, 赋值语句的格式：
[LET] <名称 > = <表达式 >
其中 LET是 VB关键字, 为可选项, 这里可省略 。
<名称 >可以是 VB中的变量和某个对象的属性名 。
,=”为赋值号 。
<表达式 >可以是算术表达式、字符表达式、日期
表达式、关系表达式或逻辑表达式。
2010-5-18 14
例 交换两个变量中的数据
分析：将两个不同的变量设想为两个瓶子 A、
B，其中分别装有不同颜色的液体，要交换瓶
中的液体。可以这样做：另取一个瓶子 C，先
将瓶 A中的液体倒入瓶 C中，再将瓶 B的液体倒
入 A中，最后将瓶 C中的液体倒入 B中即可。
设计步骤如下：
（ 1）新建工程，在窗体设计器上填加一个命令
按钮和四个标签控件。如下图所示：
2010-5-18 15
（ 2）设置对象属性如下
对象 属性 属性值 说明
按钮上的标题
标签上的内容
标签上的内容
标签上的内容
标签的背景
标签的背景
标签上的内容
单线边框
单线边框
Caption
Caption
Caption
Caption
Caption
BackColor
BackColor
BorderStyle
BorderStyle
Command1
Label1
Label2
Label3
Label4
A=
B=
1234
ABCDE
(白色 )
(白色 )
1-Fixed Single
1-Fixed Single
交换
2010-5-18 16
（ 3）编写代码如下：
Private Sub Command1_Click()
t = Label3.Caption
Label3.Caption = Label4.Caption
Label4.Caption = t
End Sub
2010-5-18 17
（ 4）按 F5键运行工程，出现如下图左边所
示的界面，再按“交换”按钮结果如下图
右边所示：
2010-5-18 18
2,Set语句（赋值对象的引用）
Set语句的作用是将对象引用赋值给变量
或属性。所谓对象引用，是指被赋与对象引用
的变量或属性并不是在内存中新建的变量或属
性，它只是表示这个对象又多了一个别名，可
以用这个被赋与对象引用的变量或属性来引用
这个对象。
对于声明为 object数据类型的变量，其后
可用 Set语句来指定一个被声明为 object的变量
去引用应用程序中所识别的任何实际对象。
2010-5-18 19
Set语句的使用格式为：
<Set> <objectvar> = [New] <objectexpress>[Nothing]
说明：
这里关键字 Set为必选项。 <objectvar>为必
选项，表示类型为 object的变量名,[New] 为可
选项，通常在声明时使用 New,以便可隐式创
建对象。 <objectexpress>是必选项，表示类型为
object的表达式。由对象名、所声明的相同对象
类型的其他变量，或者返回相同类型的函数或方
法所组成的表达式。
2010-5-18 20
[Nothing] 是可选项 。 其 作用 是 断 绝
objectvar与任何指定对象的关联 。 若没有
其他变量指向 objectvar原来引用的对象,
将其赋值为 Nothing会释放该对象所关联
的所有系统及内存资源 。
在 Set语句中,objectvar必须与所赋
值对象具有一致的对象类型。
例如：
Dim objDb As Object
Set objDb =
OpenDatabase(c:\vb98\biblio.mdb”)
2010-5-18 21
又例如
Set Picture1,Picture =
LoadResPicture(“bmp1”,vbResBitmap)
Set Me.Icon = Load ResPicture(“ico1”,
vbResIcon)
等都是合法的 Set语句
【 例 3-8】 建立一个窗体, 在上面添加一个文
本框, 一个标签和一个命令按钮, 如下页
图 3-14所示 。
2010-5-18 22
在代码窗口中输入下列代码
Private Sub Command1_Click()
Dim ob1 as Object,ob2 as Object
Set ob1=Label1
Set ob2=Text1
Ob1=”欢迎学习,
Ob2=”VisualBasic编程技术,
End Sub
Private Sub Command2_Click()
Unload me
End Sub 图 3-14
设置 Label1的 Caption
属性为“欢迎学习”
设置 Text1的 text属性为
,Visual Basic编程技术,
2010-5-18 23
在上面的代码中先用 Dim定义了两个对象变量：
ob1和 ob2,然后分别设置它们的对象引用为 Leabel1
和 Text1。 注意当对象引用被保存在对象变量中时,
仍然可以使用缺省属性来简化代码的输入 。 因为 ob1
被设为 Label1的对象引用, 而 Label1的缺省值为
Caption属性, 可省略它, 直接给出 Caption的值 。
同理 ob2 被设定为 Text1的对象引用, Text1 的缺省
属性是 Text属性, 可省略 。
运行程序程序, 单击命令按钮时得到的结果如下
图所示 。
2010-5-18 24
3,注释语句（ REM）
为了提高程序的可读性, 通常应在程序中加上
一些注释 。
注释语句的一般格式
格式 1,Rem <注释内容 >
格式 2,′<注释内容 >
说明：
Rem为 VB关键字，表示后面为注释的内容，
也可用撇号,′”来代替 Rem。 Rem语句如果放在
其他语句的后面，应用“：”来分隔。注意注释
行不能有续行。
2010-5-18 25
例如：
Rem 设定在图片框上显示的文字的颜色为黑色
Picture1.ForeColor = RGB(0,0,0)
或
Picture1.ForeColor = RGB(0,0,0),Rem设定在图片
框上显示的文字的颜色为黑色
或
Picture1.ForeColor = RGB(0,0,0) ′设定在图片框上显
示的文字的颜色为黑色
上面三个语句的作用一样，都是为语句
Picture1.ForeColor = RGB(0,0,0)作注释。
2010-5-18 26
4,暂停语句（ STOP）
Stop语句用来暂停程序的运行 。 为了调试程序,
往往在程序中用 Stop语句来设置断点 。
Stop语句的一般格式如下
Stop
说明：
（ 1） Stop语句的主要作用是为解释性的程序设置断点,
以方便调试程序, 当程序中遇到 Stop语句时, 系统
将自动打开 DeBug窗口 。
（ 2） Stop语句不会关闭窗口和清除变量的值 。 但如果
在生成的可执行文件中遇到 Stop语句就会关闭窗口
和清除变量, 所以在生成可执行文件之前, 应删除
所有的 Stop语句 。
2010-5-18 27
一般格式
End
在 VB中一般应用 End语句结束程序
的运行，以保证程序的完整性。例如，
在窗体的设计中。一般除了有其他与程
序有关的各种按钮，通常都有应设置
“退出”按钮。用以结束程序的运行。
5,结束语句
2010-5-18 28
例如, 在 一个窗 体中我们 使用命 令按钮
Command2作为退出, 按钮 。 则可编写下列
代码：
Private Sub Command2_Click()
End
End Sub
当单击, 退出, 按钮时, 就执行 End语句,
结束程序的运行 。
2010-5-18 29
§ 3.8 数据的输入语句
VB程序中允许用户输入文本信息的最
直接的方法是使用文本框 。 另外还可以使用
滚动条和对话框来输入文本信息 。
3.8.1 使用文本框控件的输入数据
文本框是一个非常灵活的数据输入工具，
可以输入单行文本也可以输入多行文本。它
是 Windows应用程序中不可缺少的部分。前
面已经介绍过它的属性、方法或事件。
下面举例说明使用文本框作为输入的例
子 。
2010-5-18 30
【 例 3-9】 设计一个工程, 使对输入到文本框中
的英文字母既可以进行大写转换, 也可进行
小写转换；还能还原成输入时的状态 。
设计工程步骤如下：
（ 1） 设置用户工程界面, 启动 VB选, 新建工
程, 中的, 标准 EXE”工程 。 在出现的窗体上,
添加一个标签控件 Label1,一个文本框控件
Text1和三个命令按钮 。 如图 3-15左图所示 。
（ 2） 设置窗体和各控件的属性如表 3-20所示 。
（ 3）代码编写如下：
2010-5-18 31
编写文本框的 KeyUp（ 键抬起 ） 事件所执行
的代码, 文本框的 Tag属性赋值为文本框上输入
的内容 （ Tag属性用于存储程序所需的附加数
据 ） 。
Private Sub Text1_KeyUp(KeyCode As Integer,_
Shift As Integer)
Text1.Tag = Text1.Text
End Sub
编写单击, 变成大写, 按钮所执行的代码 。
Private Sub Command1_Click()
Text1.Text = UCase(Text1.Tag)
End Sub
2010-5-18 32
编写单击, 变成小写, 按钮所执行的代码 。
Private Sub Command2_Click()
Text1.Text = LCase(Text1.Tag)
End Sub
编写单击, 复原, 按钮所执行的代码 。
Private Sub Command3_Click()
Text1.Text = Text1.Tag
End Sub
2010-5-18 33
对 象 属 性 属 性 值 说 明
Form1 Caption 英文大小写转换 窗体标题
Label1 Caption 请输入英文字母 为文本框加标题
Text1 Text 开始为空
Font 宋体, 规则, 四号
Command1 Caption 变成大写 按钮上的文字
Command2 Caption 变成小写 按钮上的文字
Command3 Caption 复原 按钮上的文字
表 3-20
2010-5-18 34
（ 4） 运行工程 。
按 F5或工具栏上的执行按钮运行工
程，首先在文本框中输入英文字母，大
小写不限。然后按“变大写”按钮，所
输入的英文字母全部变成大写英文字母。
按“变小写”按钮，所输入的英文字母
全部变成小写英文字母。如下页图中所
示。
2010-5-18 35
2010-5-18 36
3.8.2 用滚动条控件的输入数据
滚动条 （ ScrollBar） 是 Windows视
窗中一个不可缺少的元素, 由于窗口的
面积有限, 我们不得不把屏幕上的内容
滚来滚去, 用来显示窗口以外的大量的
内容, 这就是我们为什么要经常用到滚
动条 。 滚动条除了用于滚动窗口, 还可
以用来作为输入数据的工具 。
2010-5-18 37
3.8.2 用滚动条控件的输入数据
在 VB中提供了两个常规的滚动条控
件 VScrollBar和 HScrollBar,分别代表垂
直的和水平的滚动条, 它们只是方向不同,
而它们的属性, 以及会发生的事件都是相
同的 。 滚动条常用的属性如下页表 3-21所
示 。
2010-5-18 38
表 3-21 滚动条常用的属性
属 性 属 性 值 说 明
LargeChange 正整数 用来设定当用鼠标单击滚动箭头和滚动块之
间的区域时, 滚动的幅度 。
SmallChange 正整数 用来设定当用鼠标单击滚动箭头时滚动的幅度 。
Max -32768~
32767
用来设置滚动条的最大值 。
Min 用来设置滚动条的最小值
Value 滚动条的当前值
2010-5-18 39
2,滚动条的方法和事件
滚动条没有特有的方法, 其事件中主
要有 Scroll和 Change两个 。
Scroll,当在滚动条内拖动滚动块时, 事件
Scroll发生 。 这一事件主要用于跟踪滚动
条的动态变化 。
Change,当滚动条的位置发生变化时, 事
件 Change发生 。
2010-5-18 40
3,使用滚动条控件
由于当输入控件需要时都自带滚动
条，所以很少单独使用滚动条。一般来
讲，在设计阶段主要设置滚动条的
LargeChange,SmallChange,Max和
Min属性，而在运行阶段，通过在其
Scroll和 Change事件过程中取得其 Value
属性值而监视用户对滚动条的操作。
2010-5-18 41
【 例 3-10】 编写程序将摄氏温度变成华氏
温度 。
转换公式为：
c=5*(F-32)/9
其中 C表示摄氏温度, F表示华氏温度 。
摄氏温度变成华氏温度的公式为：
F=32+9*C/5
下面给出工程设计步骤：
（ 1）建立用户工程界面。在窗体上添加四个
标签控件、一个文本框、一个水平滚动条
和两个直线控件，如下页图中所示。
2010-5-18 42
（ 2）设置窗体及各控件的属性如表 3-22
所示。其中 Label1和 Label2的 Caption
属性分别为“摄氏温度”和“华氏温
度”分别给 Text1和 Label4加标题。
2010-5-18 43
对 象 属 性 属 性 值 说 明
Form1 Caption 摄氏温度转华氏温
度
标题
Label3 Caption 摄氏温度变化 给水平滚动条加注释
Label4 Caption 运行后用华氏温度值填充
Name Display2 代码编写时引用名
BorderStyle 1-Fixed 有边框
Text1 Name Display1 代码编写时引用名
Text 运行后用摄氏温度值填充
Hscroll1 Name Hscroll1 代码编写时引用名
LargeChange 10 单击滚动框前后位置时的
变化值
SmallChange 2 单击滚动条上的箭头时的
变化值
Max 200 滚动条能表示的最大值
Min 0 滚动条能表示的最小值
2010-5-18 44
（ 3）代码编写如下：
编写滚动条 hscroll1的 Change事件代码
Private Sub hscroll1_Change()
Dim c As Single,f As Single
Display1.Text = Str$(hscroll1.Value)
c = Val(Display1.Text)
f = 32 + 9 * c / 5
Display2.Caption = Str$(f)
End sub
2010-5-18 45
（ 4）运行工程
按工具栏上的执行按钮, 出现如图 3-
17右图所示的界面, 然后用鼠标左键移动
滚动条中的滚动框或用鼠标单击滚动条两
边的箭头, 就可从文本框以及标签框 4中
看到当滚动条中的滚动框处于不同位置时
摄氏温度发生变化, 而相应的华氏温度也
在变化, 它们是对等的关系 。 这里滚动条
起到了输入摄氏温度值的作用 。
2010-5-18 46
图 3-17
2010-5-18 47
3.8.3 用 InputBox 函数输入数据
InputBox函数用来在对话框中显示提
示, 等待用户输入正文或按下按钮, 并返
回包含文本框内容的 String。
1,语法：
InputBox(<prompt>[,title] [,default] [，
xpos] [,ypos] [,helpfile,context])
InputBox 函数的语法具有以下几个命名参
数：
2010-5-18 48
2,说明：
（ 1） 参数 prompt是必选项, 参数 title是可选项,
它们的意义同前面介绍的 MsgBox函数 。
（ 2） default 可选项 。 显示文本框中的字符
串表达式, 在没有其它输入时作为缺省值 。
如果省略 default,则文本框为空 。
（ 3） xpos,ypos 可选项。数值表达式，成
对出现，指定对话框的左边与屏幕左边的水
平距离和对话框的上边与屏幕上边的距离。
如果省略 xpos，则对话框会在水平方向居中。
如果省略 ypos，则对话框被放置在屏幕垂直
方向距下边大约三分之一的位置。
2010-5-18 49
（ 4） helpfile,context 可选项 。 helpfile
为字符串表达式, context为数值表达式,
helpfile识别帮助文件, 用该文件为对话
框提供上下文相关的帮助 。 如果已提供
helpfile,则也必须提供 context。
注意,如果还要指定第一个命名参数以外
的参数，则必须在表达式中使用
InputBox。如果要省略某些位置参数，
则必须加入相应的逗号分界符。
2010-5-18 50
【 例 3-11】 本示例说明使用 InputBox
函数来显示用户输入数据的不同用法。
如果省略 x 及 y 坐标值，则会自动将对
话框放置在两个坐标的正中。如果用户
单击“确定”按钮或按下,ENTER”按
键，则变量 MyValue 保存用户输入的
数据。如果用户按下“取消”按钮，则
返回一零长度字符串。
2010-5-18 51
（ 1）设计一如下图所示的界面其
属性设置如图中所示。
2010-5-18 52
（ 2） 编写程序如下代码：
Private Sub Cmd示例 1_Click()
Dim Message,Title,Default,MyValue
Message = "请输入 0—9间的数字 " ' 设置提示信息 。
Title = "InputBox 示例 " ' 设置标题 。
Default = "1" ' 设置缺省值 。
‘ 显示信息、标题及缺省值。
MyValue = InputBox(Message,Title,Default)
Text1.Text = MyValue
End Sub
2010-5-18 53
Private Sub Cmd示例 2_Click()
Dim Message,Title,Default,MyValue
' 设置提示信息
Message =,请输入 0—9间的数字,
Title =,InputBox示例, ' 设置标题
Default = "1" ' 设置缺省值
' 使用帮助文件及上下文 。 "帮助 "按钮便会自动出
现 。
MyValue = InputBox(Message,Title，,,,
_
"DEMO.HLP",10)
Text1.Text = MyValue
End Sub
2010-5-18 54
Private Sub cmd示例 3_Click()
Dim Message,Title,Default,MyValue
' 设置提示信息 。
Message = "请输入 0—9间的数字 "
Title = "InputBox 示例 " ' 设置标题 。
Default = "1" ' 设置缺省值 。
' 在 100,100 的位置显示对话框 。
MyValue = InputBox(Message,Title,_
Default,100,100)
Text1.Text = MyValue
End Sub
2010-5-18 55
Private Sub Cmd退出 _Click()
End
End Sub
按 F5运行该程序, 单击, 示例 1”按钮后,
显示出如图 3-19所示的对话框 。 单击, 示
例 2” 按钮后, 显示出如图 3-20左图所示的
对话框 。 单击, 示例 3” 按钮后, 在屏幕
100,100 的位置显示出如图 3-19右图所示
的对话框 。 输入 5再按确定按钮显示结果如
图 3-20右图所示 。
2010-5-18 56
2010-5-18 57
使用函数时应注意以下几点：
（ 1）执行 InputBox函数后，产生一个对
话框，提示用户输入数据。光标位于该
对话框底部的输入区中。如果第三个参
数（ default）不省略，则在输入区中显
示该参数的值。此时如果按回车键或单
击对话框中的“确定”按钮，则输入默
认值，并把它赋给一个变量；如果不想
输入默认值，则可以键入所需要的数据,
然后按回车键或单击“确定”按钮输入。
2010-5-18 58
（ 2） InputBox函数的返回值是一个字符串，
当需要用 InputBox函数输入数值，且这些数
值要参加运算时，必需在进行运算前用函数
把它转换成数值型。
（ 3）在执行 InputBox函数所产生的对话框中，
有两个命令按钮。“确定”和“取消”。输
入数据后按“确定”则返回输入区输入的数
据。按“取消”则输入数据作废，返回一个
空字符串。
2010-5-18 59
（ 4）每执行一次 InputBox函数只能输入一个
值，如果想输入多个值，则必须多次调用
InputBox函数，输入数据并按回车键后，对
话框消失，输入的数据必须作为函数的返回
值赋给一个变量，否则输入的数据不能保留。
例：为了在窗体上输出学生的情况，设计如下
工程。
（ 1）编写代码如下：
2010-5-18 60
Private Sub Form_Click()
msg1$ = "请输入姓名,"
msgtitle$ = "学生情况登记 "
msg2$ = "请输入年龄,"
msg3$ = "请输入性别,"
msg4$ = "请输入籍贯,"
2010-5-18 61
studname$ = InputBox$(msg1$,msgtitle$)
studage = InputBox$(msg2$,msgtitle$)
studsex$ = InputBox$(msg3$,msgtitle$)
studhome$ = InputBox$(msg4$,msgtitle$)
Cls
Print studname$; ","; studsex$; ",现年 ";
Print studage; "岁 "; ","; studhome$; "人 "
End Sub
（ 2）运行结果下页所示
2010-5-18 62
运行结果示意图
2010-5-18 63
运行结果示意图
2010-5-18 64
例：滚动的字幕
工程设计步骤如下：
（ 1）设计界面。
在窗体设计器上添加一个文本框、一
个计时器控件和两个命令按钮。
（ 2）属性设置。
设置 Command1的 Caption属性为“暂
停”，设置 Command２的 Caption属性为
“继续”，设置窗体的 Caption属性为“滚
动的字幕”。
2010-5-18 65
例 3-05滚动的字幕
（ 3）编写代码如下
Dim words As String
Dim i As Integer
Dim txtword As String
Dim length As Integer
' 编写单击“暂停”按钮所执行的代码
Private Sub Command1_Click()
Timer1.Enabled = False
End Sub
在窗体模块
的声明段声
明的变量，
在本窗体的
所有模块中
都有效。
2010-5-18 66
?编写单击“继续”按钮所执行的代码
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Label1.Enabled = False
Label1.Caption =,热烈庆祝山东 _
大学百年华诞 "
words = Label1.Caption
Timer1.Interval = 400
Timer1.Enabled = True
End Sub
2010-5-18 67
Private Sub Timer1_Timer()
Label1.Enabled = True
length = Len(words)
txtword = Left(words,i)
Label1.Caption = txtword
i = i + 1
If i > length Then
i = 0
End If
End Sub
2010-5-18 68
界面设计和运行结果
