主页学习程序设计，初学者要善于模仿，并要多练。
任何一门程序设计语言都有一套严格的编程规定 (如语法规则 )，在编程时一定要遵守这些规定 (只能遵守，不能创造 )。
主页一个完整的 VB应用程序,一般都包含三部分内容,即输入 → 处理 → 输出可通过 VB语句、各种控件实现输入输出操作本章主要内容第 3章 赋值与输入输出赋值语句注释、结束及暂停语句使用 Print方法输出数据窗体和基本控件对话框程序举例命令按钮标签文本框输入框 消息框退出主页
1,赋值语句 ［ Let］变量名 =表达式示例,x = 5 * 1.4
2,注释、结束和暂停语句
(1) 注释语句 Rem
或 ′ 注释内容
(2) 结束语句 End
(3) 暂停语句 Stop
也可以通过单击工具栏上的,中断,按钮来实现使用 Ctrl + Break组合键赋值与输入输出主页
(1)表达式中的变量必须是赋过值的，否则变量的初值自动取零值 (变长字符串变量取空字符 )。例如：
a = 1
c = a + b + 3 ′b 未赋过值，为 0
执行后,c 值为 4
(2)赋值语句跟数学中等式具有不同的含意，例如
x = x + 1
表示 把变量 x的当前值加上 1后再将结果赋给变量
,先读后写,,读出 x的内容 → 加 1 → 写回 x（覆盖原有内容）
说明主页
(3)变量出现在赋值号的右边和左边，其用途是不相同的。出现在右边表达式中时，变量是参与运算的元素 (其值被读出 )；出现在左边时，变量起存放表达式的值的作用 (被赋值 )。例如
x = 2
a = 3
x = 2*a + 5
当执行第 3行语句,x=2*a+5”时，将读出变量 a的值 (即 3)，把该值乘 2后加 5，然后将结果 (11)赋值给变量 x。
(4)赋值号两边的数据类型必须一致，即同时为数值型或同时为字符型。
说明主页例 3.2 设计程序，实现两个文本框内容的交换
(1)在窗体上建立两个标签、两个文本框和一个命令按钮
(2)编写程序代码借助于另一个变量 (假设为 t),并直接在控件中交换数据
Private Sub Command1_Click() ′“交换”按钮
Dim t As String
t = Text1.Text
Text1.Text = Text2.Text
Text2.Text = t
End Sub
Text1
Text2
例 3.2
主页编写的程序代码如下,
Private Sub Command1_Click() ′“交换”按钮
t = Text1.Text
Text1.Text = Text2.Text
Text2.Text = t
End Sub
采用变体型变量说明,对于初学者来说，为了节省时间，有时可以不采用 Dim等语句声明就直接使用变量 (默认为变体型，如 t)。但在规范的软件开发中，通常都要求程序中使用的变量必须预先声明。
主页把上述程序改为以下形式，效果是否一样？
Private Sub Command1_Click() ′“交换”按钮
Text2.Text = Text1.Text
Text1.Text = Text2.Text
End Sub
思考题想一想主页下列程序的运行结果是什么？
运行时，在文本框 Text1中输入 5，单击“计算”
按钮后，在文本框 Text2显示的结果是什么?
Private Sub Command1_Click() '“计算”按钮
Dim a As Integer,b As Integer,c As Integer
a = Val(Text1.Text)
b = 7
c = 2 * a Mod b / 3 + 1
a = a + 1
b = 2 * b - 1
c = c + a + b
Text2.Text = c
End Sub
思考题 想一想
Text1
Text2
例 3.2h
20
主页
3.3.1 Print方法用于显示 (输出 )
格式,［对象名,］ Print ［表达式列表］
说明,(1)使用的对象可以是窗体等
Print,程序设计,′在当前窗体上输出
Picture1.Print,程序设计,′在图片框上输出
(2)表达式列表是一个或多个表达式，如果省略，则输出一个空行
3.3 使用 Print方法输出数据主页例 3.2a Private Sub Form_Click()
a = 2
b = "VB"
Print 50 * a '计算并输出表达式的值
Print b '输出变量的值
Print '输出空行
Print "The Total is" '输出字符串常量
End Sub
例 3.2a
主页输出数值数据时，前面有一个符号位 (正号以空格表示 )，后面留有一个空格；输出字符串时，前后不留空格
(3)当输出多个表达式时，各表达式之间用分号,；,(紧凑格式 )或逗号,,,(按区格式 )隔开。
按区格式 (14个字符位置 )
(4)若语句行末尾有分号或逗号,则输出本行输出项后不换行主页例 3.2b Private Sub Form_Click()
a = 3,b = 4
Print a,b,4 + a,
Print 2 * b
Print a,,b
Print "a="; a,"b="; b
End Sub
运行结果例 3.2b
主页
1,Spc
格式,Spc(n)
功能：在输出下一项之前插入 n个空格。
Print "学号 "； Spc(2)； "姓名 "； Spc(5)； "成绩 "
输出结果 (└┘ 表示空格 )
学号 └┘└┘ 姓名 └┘└┘└┘└┘└┘
3.3.2 特殊打印格式主页函数格式,Tab(n)
功能：把输出位置移到第 n
例如：
Print Tab(2);"学号 "； Tab(11);"姓名 "； Tab(21);"成绩 "
输出结果是 (1个汉字占 2个位置 )：
└┘ 学号 └┘└┘└┘└┘└┘ 姓名 └┘└┘└┘└┘└┘└┘ 成绩
2,Tab函数主页格式,Format(表达式 [,格式串 ])
功能：根据格式串规定的格式来输出表达式的值例 3.2c a=4513.7,b=3456.78,TimeVar=#08:30:05#
Print Format(a,"##,###.##")
Print Format(a,"$##,###.00")
Print Format(b,"+##,###.#")
Print Format(TimeVar,"h:m:s")
输出结果是：
4,513.7
$4,513.70
+3,456.8
8:30:5
格式符号 #和 0都能显示数字，但符号 #会剔除不必要的 0，
符号 0会按规定补足 0
3,Format函数例 3.2c
主页窗体 (Form)是设计 VB应用程序的基本平台窗体本身是一个对象，又是其他对象的载体或容器多数应用程序是从窗体开始执行的 ; 一个程序可以有多个窗体
3.4.1 窗体的基本属性设置窗体的属性，可在程序设计时在属性窗口中手工设置，
也可以在程序运行时由代码实现默认属性
3.4 窗体主页一些常用的窗体属性：
·Name属性,用于设置窗体的名称。 指定窗体的名称。只读，
不能在应用程序中修改
·Caption属性,用于设置窗体标题栏上的标题内容。
·Maxbutton和 Minbutton属性,用于设置最大化和最小化按钮
·Height和 Width属性,确定窗体的初始高度和宽度
·Left和 Top属性,确定窗体的左上角在屏幕上的横、纵坐标
·Appearance属性,用于设置窗体的外观是平面还是三维的
·BackColor和 ForeColor属性,设置窗体的背景色和前景色
·Picture属性,用于在窗体上设置要显示的图形。
［对象,］ Picture=LoadPicture("文件名 ")
·Visible(可见性 ),设置对象的可见性，默认值为 True
主页坐标原点 (0,0)在窗体的左上角坐标轴刻度单位为缇 (Twip,567缇为 1厘米 )
当前位置的横坐标 (CurrentX)和纵坐标 (CurrentY)
Y
X
·(CurrentX,CurrentY)
当前位置窗体坐标系统主页窗体事件过程的一般格式为：
Private Sub Form_事件名 ([参数表 ])
……
End
在事件过程中只能使用 Form，而在过程内对窗体进行引用时才会用到窗体名字 (如 Form1等 )
3.4.2 窗体的事件主页与窗体有关的常用事件有以下几种。
(1)Load(装载 )事件
(2)Unload(卸载 )事件
(3)Activate(活动 ),Deactivate(非活动 )事件
(4)Paint(绘画 )事件
(5)Click(单击 )事件
(6)DblClick(双击 )事件
(7)KeyPress(按键 )事件：当按下键盘上的某个健时，将触发
KeyPress
Private Sub 对象 _KeyPress(KeyAscii As Integer)
……
End Sub
参数 KeyAscii返回所按键的 ASCII码主页
(1)Show方法,用于快速显示一个窗体，使该窗体变成活动窗体
(2)Print方法,用于在窗体上输出表达式的值
(3)Cls方法,用于清除运行时在窗体中显示的文本或图形
(4)Move(移动 )方法,用于移动并改变窗体或控件的位置和大小
3.4.3 窗体的方法主页
1.属性：对象的特性如 Text1.Text,Label1.BackColor等设置方法,(1) 在属性窗口中设置
(2) 在程序中更改对象的属性如 Text1.Text =,ABCDEFG”
2.事件,由系统预先设置好的、能被对象识别的动作。
例如：鼠标的移动 (MouseMove)、单击 (Click)等用来引发事件过程,其格式如下
3,方法方法是对象能够执行的动作它是对象本身内含的函数或过程,用于完成某种特定的功能一般格式,［ 对象名,］ 方法名 ［ (参数 )］
如 Form1.Cls ′消除窗体 Form1上的内容
Form1.Print "Visual BASIC" ′在当前窗体上显示对象的属性、事件与方法 (小结 )
Sub 对象名 _事件名 ()
处理事件的程序代码
End Sub
主页
1,焦点焦点 (Focus，光标 )是 对象接收鼠标或键盘输入的能力 。
(1)
(2)
(3)按 Tab键或 Shift+Tab键在当前窗体的各对象之间切换焦点
(4)在代码中用 SetFocus
Text1.SetFocus ′ 把焦点设置在文本框 Text1
2,Tab键序
Tab键序是指用户按 Tab键时，焦点在控件间移动的顺序反映在控件的 TabIndex属性
3.4.4 焦点与 Tab键序主页设置以下 3个命令按钮：
,显示,按钮：用于显示唐诗,静夜思,
,清除,
,结束,
(1)创建应用程序的用户界面和设置对象的属性例 3.3 显示唐诗,静夜思,例 3.3
主页
(2)编写程序代码。编写的三个按钮的 Click事件过程代码：
Private Sub CmdPrt_Click()
BackColor = RGB(255,255,255)
ForeColor = RGB(0,0,255)
FontName = "楷体 _GB2312"
FontSize = 20
FontBold = True ′ 粗体
CurrentX = 1200:CurrentY = 350 ′ 显示位置
Print "静夜思 (唐诗 )"
FontName = "幼圆 "
Print
FontSize = 13
Print Spc(6); "床前明月光，疑是地上霜 "
Print
Print Spc(6); "举头望明月，低头思故乡 "
End Sub
主页
Private Sub CmdCls_Click()
Cls
End Sub
Private Sub CmdEnd_Click()
End
End Sub
程序运行后，单击,显示,按钮，输出结果主页
3.5 基本控件三种基本控件 ——命令按钮、标签和文本框命令按钮 (commandButten)用于引发应用程序的某个操作标签 (Label)主要用来显示比较固定的提示性信息。
文本框 (TextBox)是一个文本编辑区域，用户可以在该区域中输入、编辑和显示文本内容。
几点说明：
(1) Caption属性,对象的标题可以在 Caption属性中为控件指定一个访问键例如,Command1.Caption=“结束 (&E)”
运行时只要用户同时按下 Alt键和 E键，就能执行该按钮命令
(2) Enabled属性,决定控件是否对用户产生的事件作出响应
(3) Visible属性,决定控件是否可见，默认值为 True
主页在窗体上已经建立了两个文本框 Text1和 Text2，并编写如下三个事件过程：
Private Sub Form_Click()
Text2.Text = "P"
Text1.Text = "P" + Text1.Text
End Sub
Private Sub Text1_Change() ′内容发生改变
Text2.Text = Text2.Text + "N" + Text1.Text
End Sub
Private Sub Form_Load()
Text2.Text = "M"
Text1.Text = "M"
End Sub
运行程序后单击窗体，则在文本框 Text2中显示的内容是
A,PNM B,NPM C,PNP D,PNPM
例 3.3a
D
思考题想一想主页对话框既可以用来显示信息，也可以用于输入信息
VB中能够建立两种预制对话框：输入框和消息框使用系统提供的函数 (InputBox和 MsgBox)，而不必为对话框另建窗体先看以下一个例子例 3.4a 通过输入框输入姓名，然后再消息框中显示出来
Private Sub Form_Load()
x = InputBox("输入您的姓名 ","您叫什么名?")
y = MsgBox( x & "先生：祝您马到功成！ ")
End Sub
3.6 使用对话框例 3.4a
主页用于产生一个能接收用户输入的对话框格式：
变量 =InputBox(提示 [,标题 ][,缺省值 ][,xpos][,ypos])
举例
filename$=InputBox(“请输入文件名 (不超过 8个字符 )”，”文件名”，” vbfile”)
将产生一个如下对话框
3.6.1 输入对话框例 3.4b
主页
filename$=InputBox("请输入文件名 " + Chr(13) +
"(不超过 8个字符 )","文件名 ","vbfile")
主页使用 MsgBox函数，可以产生一个对话框来显示消息当用户单击某个按钮后，将返回一个数值以标明用户单击了哪个按钮其语法格式是：
变量 =MsgBox(提示 [,对话框类型 [,对话框标题 ]])
例,y = MsgBox(“输入文件名是否正确,,52,”请确认,)
“对话框类型,一般有 3个参数,4+48+0
出现按钮；图标类型；默认按钮；
函数返回值示例：
3.6.2 消息对话框例 3.4c
主页
1,返回一个值。从返回值中可以知道用户按下的是哪个按钮（表 3.5）。例如
y = MsgBox(“输入文件名是否正确,,52,”请确认,)
若 y为 1，表示用户按下的是“确定”按钮，依此类推。
程序通过判断 y值 (如采用条件语句 IF-THEN)，再根据用户按下的是什么按钮，再做不同的处理。
2,不返回值。例如
MsgBox,输入文件名是否正确,,52,”请确认,
MsgBox,输入文件名是否正确,
采用这种格式时，不知道用户按下的是什么按钮。这种格式可以使用在不需要知道用户按钮情况的场合。
MsgBox的两种格式主页
(1)创建应用程序的用户界面和设置对象属性
(2)
Private Sub Command1_Click()
Dim r As Single,k As Single,s As Single
r = Val(InputBox("请输入圆的半径 ","计算圆的周长和面积 "))
k = 2 * 3.14159 * r
s = 3.14159 * r * r
Text1.Text = k
Text2.Text = s
MsgBox "计算已完成 ",,"例 3.5"
End Sub
Private Sub Command2_Click()
End
End Sub
例 3.5 从输入框中输入圆的半径，计算圆的周长和面积例 3.5
主页当输入的圆半径为 65时，运行结果主页例 3.6 控制窗体“变大”和“变小”
在窗体上设置三个命令按钮 (图 3.13)，程序进入运行状态后，当单击,窗体变大,命令按钮时，窗体变大，单击,窗体变小,按钮时，窗体变小。单击,退出,按钮时，则退出。
3.7 程序举例例 3.6
主页
(1)建立应用程序的用户界面和设置对象属性
(2)编写程序代码
Private Sub Form_Load()
Form1.Height = 4000 'Height为窗体的高度,P55
Form1.Width = 4000 'Height为窗体的宽度
Form1.Top = 1000 '设置窗体的初始位置
Form1.Left = 1000
End Sub
Private Sub Command1_Click() '“窗体变大”按钮
Form1.Height = Form1.Height + 200 '每次增加 200点
Form1.Width = Form1.Width + 200
End Sub
Private Sub Command2_Click() '“窗体变小”按钮
Form1.Height = Form1.Height - 200 '每次减少 200点
Form1.Width = Form1.Width - 200
End Sub
主页在第一个文本框中输入文字时，在另外两个文本框中显示同样相同的内容，但显示的字号和字体不同。单击
“清除”按钮时则清除三个文本框中的内容例 3.7 在三个文本框中显示不同的文字效果 例 3.7
主页
(1)建立应用程序的用户界面和设置对象属性
(2)编写程序代码
Private Sub Form_Load()
Text2.FontName = "隶书 "
Text2.FontSize = 16
Text3.FontName = "楷体 _GB2312"
Text3.FontSize = 20
End Sub
Private Sub Text1_Change()
Text2.Text = Text1.Text
Text3.Text = Text1.Text
End Sub
Private Sub Command1_Click() '“清除”按钮
Text1.Text = "" '清除文本框 Text1的内容
Text2.Text = "" '清除文本框 Text2的内容
Text3.Text = "" '清除文本框 Text3的内容
Text1.SetFocus '设置焦点
End Sub
主页
(1)在窗体上建立一个标签（ Label1）和三个命令按钮 (Command1,Command2和 Command3)
三个命令按钮分别使用访问键 Alt+C,Alt+H和 Alt+D
例 3.8 实现标签的显示和隐藏,以及改变文字的颜色 例 3.8
主页
(2)
Private Sub Form_Load()
Randomize
Label1.BackColor = QBColor(15) '背景色
Label1.ForeColor = QBColor(0) '文字颜色
Label1.FontSize = 18 '字体大小
End Sub
Private Sub Command1_Click() '“改变文字颜色”按钮
Clr = Int(15 * Rnd) '产生随机颜色码
Label1.ForeColor = QBColor(Clr)
End Sub
Private Sub Command2_Click() '“隐藏标签”按钮
Label1.Visible = False '隐藏标签
End Sub
Private Sub Command3_Click() '“显示标签”按钮
Label1.Visible = True '显示标签
End Sub
任何一门程序设计语言都有一套严格的编程规定 (如语法规则 )，在编程时一定要遵守这些规定 (只能遵守，不能创造 )。
主页一个完整的 VB应用程序,一般都包含三部分内容,即输入 → 处理 → 输出可通过 VB语句、各种控件实现输入输出操作本章主要内容第 3章 赋值与输入输出赋值语句注释、结束及暂停语句使用 Print方法输出数据窗体和基本控件对话框程序举例命令按钮标签文本框输入框 消息框退出主页
1,赋值语句 ［ Let］变量名 =表达式示例,x = 5 * 1.4
2,注释、结束和暂停语句
(1) 注释语句 Rem
或 ′ 注释内容
(2) 结束语句 End
(3) 暂停语句 Stop
也可以通过单击工具栏上的,中断,按钮来实现使用 Ctrl + Break组合键赋值与输入输出主页
(1)表达式中的变量必须是赋过值的，否则变量的初值自动取零值 (变长字符串变量取空字符 )。例如：
a = 1
c = a + b + 3 ′b 未赋过值，为 0
执行后,c 值为 4
(2)赋值语句跟数学中等式具有不同的含意，例如
x = x + 1
表示 把变量 x的当前值加上 1后再将结果赋给变量
,先读后写,,读出 x的内容 → 加 1 → 写回 x（覆盖原有内容）
说明主页
(3)变量出现在赋值号的右边和左边，其用途是不相同的。出现在右边表达式中时，变量是参与运算的元素 (其值被读出 )；出现在左边时，变量起存放表达式的值的作用 (被赋值 )。例如
x = 2
a = 3
x = 2*a + 5
当执行第 3行语句,x=2*a+5”时，将读出变量 a的值 (即 3)，把该值乘 2后加 5，然后将结果 (11)赋值给变量 x。
(4)赋值号两边的数据类型必须一致，即同时为数值型或同时为字符型。
说明主页例 3.2 设计程序，实现两个文本框内容的交换
(1)在窗体上建立两个标签、两个文本框和一个命令按钮
(2)编写程序代码借助于另一个变量 (假设为 t),并直接在控件中交换数据
Private Sub Command1_Click() ′“交换”按钮
Dim t As String
t = Text1.Text
Text1.Text = Text2.Text
Text2.Text = t
End Sub
Text1
Text2
例 3.2
主页编写的程序代码如下,
Private Sub Command1_Click() ′“交换”按钮
t = Text1.Text
Text1.Text = Text2.Text
Text2.Text = t
End Sub
采用变体型变量说明,对于初学者来说，为了节省时间，有时可以不采用 Dim等语句声明就直接使用变量 (默认为变体型，如 t)。但在规范的软件开发中，通常都要求程序中使用的变量必须预先声明。
主页把上述程序改为以下形式，效果是否一样？
Private Sub Command1_Click() ′“交换”按钮
Text2.Text = Text1.Text
Text1.Text = Text2.Text
End Sub
思考题想一想主页下列程序的运行结果是什么？
运行时，在文本框 Text1中输入 5，单击“计算”
按钮后，在文本框 Text2显示的结果是什么?
Private Sub Command1_Click() '“计算”按钮
Dim a As Integer,b As Integer,c As Integer
a = Val(Text1.Text)
b = 7
c = 2 * a Mod b / 3 + 1
a = a + 1
b = 2 * b - 1
c = c + a + b
Text2.Text = c
End Sub
思考题 想一想
Text1
Text2
例 3.2h
20
主页
3.3.1 Print方法用于显示 (输出 )
格式,［对象名,］ Print ［表达式列表］
说明,(1)使用的对象可以是窗体等
Print,程序设计,′在当前窗体上输出
Picture1.Print,程序设计,′在图片框上输出
(2)表达式列表是一个或多个表达式，如果省略，则输出一个空行
3.3 使用 Print方法输出数据主页例 3.2a Private Sub Form_Click()
a = 2
b = "VB"
Print 50 * a '计算并输出表达式的值
Print b '输出变量的值
Print '输出空行
Print "The Total is" '输出字符串常量
End Sub
例 3.2a
主页输出数值数据时，前面有一个符号位 (正号以空格表示 )，后面留有一个空格；输出字符串时，前后不留空格
(3)当输出多个表达式时，各表达式之间用分号,；,(紧凑格式 )或逗号,,,(按区格式 )隔开。
按区格式 (14个字符位置 )
(4)若语句行末尾有分号或逗号,则输出本行输出项后不换行主页例 3.2b Private Sub Form_Click()
a = 3,b = 4
Print a,b,4 + a,
Print 2 * b
Print a,,b
Print "a="; a,"b="; b
End Sub
运行结果例 3.2b
主页
1,Spc
格式,Spc(n)
功能：在输出下一项之前插入 n个空格。
Print "学号 "； Spc(2)； "姓名 "； Spc(5)； "成绩 "
输出结果 (└┘ 表示空格 )
学号 └┘└┘ 姓名 └┘└┘└┘└┘└┘
3.3.2 特殊打印格式主页函数格式,Tab(n)
功能：把输出位置移到第 n
例如：
Print Tab(2);"学号 "； Tab(11);"姓名 "； Tab(21);"成绩 "
输出结果是 (1个汉字占 2个位置 )：
└┘ 学号 └┘└┘└┘└┘└┘ 姓名 └┘└┘└┘└┘└┘└┘ 成绩
2,Tab函数主页格式,Format(表达式 [,格式串 ])
功能：根据格式串规定的格式来输出表达式的值例 3.2c a=4513.7,b=3456.78,TimeVar=#08:30:05#
Print Format(a,"##,###.##")
Print Format(a,"$##,###.00")
Print Format(b,"+##,###.#")
Print Format(TimeVar,"h:m:s")
输出结果是：
4,513.7
$4,513.70
+3,456.8
8:30:5
格式符号 #和 0都能显示数字，但符号 #会剔除不必要的 0，
符号 0会按规定补足 0
3,Format函数例 3.2c
主页窗体 (Form)是设计 VB应用程序的基本平台窗体本身是一个对象，又是其他对象的载体或容器多数应用程序是从窗体开始执行的 ; 一个程序可以有多个窗体
3.4.1 窗体的基本属性设置窗体的属性，可在程序设计时在属性窗口中手工设置，
也可以在程序运行时由代码实现默认属性
3.4 窗体主页一些常用的窗体属性：
·Name属性,用于设置窗体的名称。 指定窗体的名称。只读，
不能在应用程序中修改
·Caption属性,用于设置窗体标题栏上的标题内容。
·Maxbutton和 Minbutton属性,用于设置最大化和最小化按钮
·Height和 Width属性,确定窗体的初始高度和宽度
·Left和 Top属性,确定窗体的左上角在屏幕上的横、纵坐标
·Appearance属性,用于设置窗体的外观是平面还是三维的
·BackColor和 ForeColor属性,设置窗体的背景色和前景色
·Picture属性,用于在窗体上设置要显示的图形。
［对象,］ Picture=LoadPicture("文件名 ")
·Visible(可见性 ),设置对象的可见性，默认值为 True
主页坐标原点 (0,0)在窗体的左上角坐标轴刻度单位为缇 (Twip,567缇为 1厘米 )
当前位置的横坐标 (CurrentX)和纵坐标 (CurrentY)
Y
X
·(CurrentX,CurrentY)
当前位置窗体坐标系统主页窗体事件过程的一般格式为：
Private Sub Form_事件名 ([参数表 ])
……
End
在事件过程中只能使用 Form，而在过程内对窗体进行引用时才会用到窗体名字 (如 Form1等 )
3.4.2 窗体的事件主页与窗体有关的常用事件有以下几种。
(1)Load(装载 )事件
(2)Unload(卸载 )事件
(3)Activate(活动 ),Deactivate(非活动 )事件
(4)Paint(绘画 )事件
(5)Click(单击 )事件
(6)DblClick(双击 )事件
(7)KeyPress(按键 )事件：当按下键盘上的某个健时，将触发
KeyPress
Private Sub 对象 _KeyPress(KeyAscii As Integer)
……
End Sub
参数 KeyAscii返回所按键的 ASCII码主页
(1)Show方法,用于快速显示一个窗体，使该窗体变成活动窗体
(2)Print方法,用于在窗体上输出表达式的值
(3)Cls方法,用于清除运行时在窗体中显示的文本或图形
(4)Move(移动 )方法,用于移动并改变窗体或控件的位置和大小
3.4.3 窗体的方法主页
1.属性：对象的特性如 Text1.Text,Label1.BackColor等设置方法,(1) 在属性窗口中设置
(2) 在程序中更改对象的属性如 Text1.Text =,ABCDEFG”
2.事件,由系统预先设置好的、能被对象识别的动作。
例如：鼠标的移动 (MouseMove)、单击 (Click)等用来引发事件过程,其格式如下
3,方法方法是对象能够执行的动作它是对象本身内含的函数或过程,用于完成某种特定的功能一般格式,［ 对象名,］ 方法名 ［ (参数 )］
如 Form1.Cls ′消除窗体 Form1上的内容
Form1.Print "Visual BASIC" ′在当前窗体上显示对象的属性、事件与方法 (小结 )
Sub 对象名 _事件名 ()
处理事件的程序代码
End Sub
主页
1,焦点焦点 (Focus，光标 )是 对象接收鼠标或键盘输入的能力 。
(1)
(2)
(3)按 Tab键或 Shift+Tab键在当前窗体的各对象之间切换焦点
(4)在代码中用 SetFocus
Text1.SetFocus ′ 把焦点设置在文本框 Text1
2,Tab键序
Tab键序是指用户按 Tab键时，焦点在控件间移动的顺序反映在控件的 TabIndex属性
3.4.4 焦点与 Tab键序主页设置以下 3个命令按钮：
,显示,按钮：用于显示唐诗,静夜思,
,清除,
,结束,
(1)创建应用程序的用户界面和设置对象的属性例 3.3 显示唐诗,静夜思,例 3.3
主页
(2)编写程序代码。编写的三个按钮的 Click事件过程代码：
Private Sub CmdPrt_Click()
BackColor = RGB(255,255,255)
ForeColor = RGB(0,0,255)
FontName = "楷体 _GB2312"
FontSize = 20
FontBold = True ′ 粗体
CurrentX = 1200:CurrentY = 350 ′ 显示位置
Print "静夜思 (唐诗 )"
FontName = "幼圆 "
FontSize = 13
Print Spc(6); "床前明月光，疑是地上霜 "
Print Spc(6); "举头望明月，低头思故乡 "
End Sub
主页
Private Sub CmdCls_Click()
Cls
End Sub
Private Sub CmdEnd_Click()
End
End Sub
程序运行后，单击,显示,按钮，输出结果主页
3.5 基本控件三种基本控件 ——命令按钮、标签和文本框命令按钮 (commandButten)用于引发应用程序的某个操作标签 (Label)主要用来显示比较固定的提示性信息。
文本框 (TextBox)是一个文本编辑区域，用户可以在该区域中输入、编辑和显示文本内容。
几点说明：
(1) Caption属性,对象的标题可以在 Caption属性中为控件指定一个访问键例如,Command1.Caption=“结束 (&E)”
运行时只要用户同时按下 Alt键和 E键，就能执行该按钮命令
(2) Enabled属性,决定控件是否对用户产生的事件作出响应
(3) Visible属性,决定控件是否可见，默认值为 True
主页在窗体上已经建立了两个文本框 Text1和 Text2，并编写如下三个事件过程：
Private Sub Form_Click()
Text2.Text = "P"
Text1.Text = "P" + Text1.Text
End Sub
Private Sub Text1_Change() ′内容发生改变
Text2.Text = Text2.Text + "N" + Text1.Text
End Sub
Private Sub Form_Load()
Text2.Text = "M"
Text1.Text = "M"
End Sub
运行程序后单击窗体，则在文本框 Text2中显示的内容是
A,PNM B,NPM C,PNP D,PNPM
例 3.3a
D
思考题想一想主页对话框既可以用来显示信息，也可以用于输入信息
VB中能够建立两种预制对话框：输入框和消息框使用系统提供的函数 (InputBox和 MsgBox)，而不必为对话框另建窗体先看以下一个例子例 3.4a 通过输入框输入姓名，然后再消息框中显示出来
Private Sub Form_Load()
x = InputBox("输入您的姓名 ","您叫什么名?")
y = MsgBox( x & "先生：祝您马到功成！ ")
End Sub
3.6 使用对话框例 3.4a
主页用于产生一个能接收用户输入的对话框格式：
变量 =InputBox(提示 [,标题 ][,缺省值 ][,xpos][,ypos])
举例
filename$=InputBox(“请输入文件名 (不超过 8个字符 )”，”文件名”，” vbfile”)
将产生一个如下对话框
3.6.1 输入对话框例 3.4b
主页
filename$=InputBox("请输入文件名 " + Chr(13) +
"(不超过 8个字符 )","文件名 ","vbfile")
主页使用 MsgBox函数，可以产生一个对话框来显示消息当用户单击某个按钮后，将返回一个数值以标明用户单击了哪个按钮其语法格式是：
变量 =MsgBox(提示 [,对话框类型 [,对话框标题 ]])
例,y = MsgBox(“输入文件名是否正确,,52,”请确认,)
“对话框类型,一般有 3个参数,4+48+0
出现按钮；图标类型；默认按钮；
函数返回值示例：
3.6.2 消息对话框例 3.4c
主页
1,返回一个值。从返回值中可以知道用户按下的是哪个按钮（表 3.5）。例如
y = MsgBox(“输入文件名是否正确,,52,”请确认,)
若 y为 1，表示用户按下的是“确定”按钮，依此类推。
程序通过判断 y值 (如采用条件语句 IF-THEN)，再根据用户按下的是什么按钮，再做不同的处理。
2,不返回值。例如
MsgBox,输入文件名是否正确,,52,”请确认,
MsgBox,输入文件名是否正确,
采用这种格式时，不知道用户按下的是什么按钮。这种格式可以使用在不需要知道用户按钮情况的场合。
MsgBox的两种格式主页
(1)创建应用程序的用户界面和设置对象属性
(2)
Private Sub Command1_Click()
Dim r As Single,k As Single,s As Single
r = Val(InputBox("请输入圆的半径 ","计算圆的周长和面积 "))
k = 2 * 3.14159 * r
s = 3.14159 * r * r
Text1.Text = k
Text2.Text = s
MsgBox "计算已完成 ",,"例 3.5"
End Sub
Private Sub Command2_Click()
End
End Sub
例 3.5 从输入框中输入圆的半径，计算圆的周长和面积例 3.5
主页当输入的圆半径为 65时，运行结果主页例 3.6 控制窗体“变大”和“变小”
在窗体上设置三个命令按钮 (图 3.13)，程序进入运行状态后，当单击,窗体变大,命令按钮时，窗体变大，单击,窗体变小,按钮时，窗体变小。单击,退出,按钮时，则退出。
3.7 程序举例例 3.6
主页
(1)建立应用程序的用户界面和设置对象属性
(2)编写程序代码
Private Sub Form_Load()
Form1.Height = 4000 'Height为窗体的高度,P55
Form1.Width = 4000 'Height为窗体的宽度
Form1.Top = 1000 '设置窗体的初始位置
Form1.Left = 1000
End Sub
Private Sub Command1_Click() '“窗体变大”按钮
Form1.Height = Form1.Height + 200 '每次增加 200点
Form1.Width = Form1.Width + 200
End Sub
Private Sub Command2_Click() '“窗体变小”按钮
Form1.Height = Form1.Height - 200 '每次减少 200点
Form1.Width = Form1.Width - 200
End Sub
主页在第一个文本框中输入文字时，在另外两个文本框中显示同样相同的内容，但显示的字号和字体不同。单击
“清除”按钮时则清除三个文本框中的内容例 3.7 在三个文本框中显示不同的文字效果 例 3.7
主页
(1)建立应用程序的用户界面和设置对象属性
(2)编写程序代码
Private Sub Form_Load()
Text2.FontName = "隶书 "
Text2.FontSize = 16
Text3.FontName = "楷体 _GB2312"
Text3.FontSize = 20
End Sub
Private Sub Text1_Change()
Text2.Text = Text1.Text
Text3.Text = Text1.Text
End Sub
Private Sub Command1_Click() '“清除”按钮
Text1.Text = "" '清除文本框 Text1的内容
Text2.Text = "" '清除文本框 Text2的内容
Text3.Text = "" '清除文本框 Text3的内容
Text1.SetFocus '设置焦点
End Sub
主页
(1)在窗体上建立一个标签（ Label1）和三个命令按钮 (Command1,Command2和 Command3)
三个命令按钮分别使用访问键 Alt+C,Alt+H和 Alt+D
例 3.8 实现标签的显示和隐藏,以及改变文字的颜色 例 3.8
主页
(2)
Private Sub Form_Load()
Randomize
Label1.BackColor = QBColor(15) '背景色
Label1.ForeColor = QBColor(0) '文字颜色
Label1.FontSize = 18 '字体大小
End Sub
Private Sub Command1_Click() '“改变文字颜色”按钮
Clr = Int(15 * Rnd) '产生随机颜色码
Label1.ForeColor = QBColor(Clr)
End Sub
Private Sub Command2_Click() '“隐藏标签”按钮
Label1.Visible = False '隐藏标签
End Sub
Private Sub Command3_Click() '“显示标签”按钮
Label1.Visible = True '显示标签
End Sub
