Transcript Document

第4章
赋值与输入输出
本章主要内容：
● 数据输出（Print方法、标签控件、消息框）
● 数据输入（文本框、输入框）
● 常用语句和方法（卸载、注释、焦点）
4.1
数据输出
4.1.1
直接输出到窗体
1. 使用Print方法
使用Print方法语法格式为：
[〈对象名称〉.] Print [〈表达式列表〉] [{, | ;}]
说明：
①〈对象名称〉可以是窗体（Form）、图片框（PictureBox）或打
印机（Printer）。如果省略“对象名称”，则在窗体上直接输出。例
如：
Print "欢迎"
当前窗体
Picture1.Print "欢迎"
上显示出来
' 省略对象名，直接将字符串“欢迎”输出到
' 将字符串“欢迎”在图片框Picture1
②〈表达式列表〉是一个或多个表达式，可以是数值表达式或字符
串。对于数值表达式，将输出表达式的值；对于字符串，则照原样输
出。如果省略“表达式列表”，则输出一个空行。
Print 2+4
Print "A+B="
' 输出值6
' 字符串必须放在双引号内
输出数据时，数值数据的前面有一个符号位，后面有一个空格，而
字符串前后都没有空格。
③ 当输出多个表达式时，各表达式之间用分隔符逗号“,”或分号“;”
隔开。
如果使用逗号分隔符，则各输出项按标准输出（分区输出）格式显
示，此时，以14个字符宽度为单位将输出行分为若干区段，逗号后面
的表达式在下一个区段输出。
如果使用分号分隔符，则按紧凑格式输出，即各输出项之间无间隔
地连续输出。
④ 如果用Print方法输出的内容没有显示出来，可在代码中加上Show
方法，以便使输出的内容显示出来。
【例4-1】
2. 清除方法Cls
Cls方法可以清除Form或PictureBox中由Print方法和图形
方法在运行时所生成的文本或图形，清除后的区域以背景
色填充。设计时使用Picture属性设置的背景位图和放置的
控件不受Cls影响。Cls方法的语法为：
[〈对象名称〉.] Cls
4.1.2
输出文本到图片框
图片框（PictureBox）控件可以输出图形、图像和文本，
还可以像窗体一样作容器包含其他的控件。不仅如此，图
片框控件具有窗体的上述属性和方法，因此前面的例子完
全适用于图片框。
【例4-2】
4.1.3
使用标签控件
标签（Label）主要是用来显示（输出）文本信息，不能
作为输入信息的界面。也就是标签控件的内容只能用
Caption属性来设置或修改，不能直接编辑。它是VB中最
常用的输出文本信息的工具。
在缺省情况下，标题（Caption）是Label控件中惟一的
可见部分。如果把BorderStyle（边框样式）属性设置成1，
那么Label就有了一个边框——看起来像一个文本框。还可
以通过设置Label的BackColor、ForeColor和Font等属性来
改变Label的外观。
【例4-3】
4.1.4
使用消息框
MsgBox函数在对话框中显示信息，等待用户单击按钮，
并返回一个整数以标明用户单击了哪个按钮。其语法格式
为：
变量 = MsgBox（〈消息内容〉[,〈消息框类型〉[,〈消息框
标题〉]]）
说明：
①〈消息内容〉指定在对话框中出现的文本。在〈消息内容〉中使
用硬回车符（Chr(13)）可以使文本换行。对话框的高度和宽度随着
〈消息内容〉的增加而增加，最多可有1024个字符。
②〈消息框类型〉指定对话框中出现的按钮和图标，一般有3个参数。
其取值和含义见表4-4、表4-5、表4-6。这3种参数值可以相加以达到所
需要的样式。
表4-4
值
参数1——出现按钮
常 量
说 明
0
vbOKOnly
确定按钮
1
vbOKCancel
确定和取消按钮
2
3
vbAbortRetryIgnor
e
vbYesNoCancel
终止、重试和忽略按
钮
是、否和取消按钮
4
vbYesNo
是和否按钮
5
vbRetryCancel
重试和取消按钮
表4-5
值
16
32
48
64
参数2——图标类型
常 量
vbCritical
vbQuestion
vbExclamation
vbInformation
说 明
停止图标
问号（？）图标
感叹号（！）图标
消息图标
表4-6 参数3——默认按钮
值
0
256
512
常 量
vbDefaultButton1
vbDefaultButton2
vbDefaultButton3
说 明
指定默认按钮为第一按钮
指定默认按钮为第二按钮
指定默认按钮为第三按钮
③〈消息框标题〉指定对话框的标题。下述代码将显示
如图4-6所示的对话框：
msg = MsgBox("请确认输入的数据是否正确！", 3 + 32 + 0,
"数据检查")
图4-6
消息对话框
④ Msgbox( )返回的值指明了在对话框中选择哪一个按钮，
见表4-7。
表4-7 函数的返回值
返 回 值
常
量
按
1
vbOK
确定按钮
2
vbCancel
取消按钮
3
vbAbort
终止按钮
4
vbRetry
重试按钮
5
vbIgnore
忽略按钮
6
vbYes
是
7
vbNo
否
钮
⑤ 代码中的值可以是数值，也可以是数值常量。
⑥ 如果省略了某些可选项，必须加入相应的逗号分隔
符。
⑦ 若不需要返回值，则可以使用MsgBox的命令形式：
MsgBox〈信息内容〉[,〈消息框类型〉[,〈消息框标题〉
]]
在程序运行的过程中，有时需要显示一些简单的信息
如警告或错误等，此时可以利用“消息对话框”来显示
这些内容。当用户接收到信息后，可以单击按钮来关闭
对话框，并返回单击的按钮值。
4.2 数据输入
4.2.1 赋值语句LET
赋值语句的一般格式为：
[Let]〈名称〉=〈表达式〉
说明：
① Let表示赋值，通常省略。
②〈名称〉是变量或属性的名称。
③〈表达式〉可以是算术表达式、字符串表达式、关系型表达式或
逻辑表达式，其类型应与变量名的类型一致，即同时为数值型或同时
为字符型，否则会出现“类型不匹配”的错误。当同时为数值型但有
不同的精度时，强制转换成左边的精度。
④ 赋值语句是先计算〈表达式〉，然后再赋值。
⑤ 格式中的赋值号不是数学上的等号。如语句a = 5应读作“将数值5
赋给变量a”或是“使变量a的值等于5”，可以理解为：a  5。虽然赋
值号与关系运算符的等号都用“=”表示，但VB系统不会产生混淆，它
将根据所处的位置自动判断是何种意义的符号。
【例4-4】
4.2.2
使用文本框控件
文本框（TextBox）是一个文本编辑区域，用户可以在
该区域输入、编辑和显示文本内容。文本框的主要属性
如表4-9所示。
表4-9
属
文本框的属性
性
说
明
Text
文本框中包含的文本内容
Locked
决定控件是否可编辑
MultiLine
该属性值为True时可以接收多行文本
ScrollBars
0—没有滚动条，1—水平滚动条，2—垂直滚动条，
3—同时具有水平及垂直滚动条
PassWordChar
指定显示在文本框中的替代符，如一串“*”号等。主
要用于口令的输入
1. 文本框控件
文本框中显示的文本是受Text属性控制的。Text属性可
以用以下3种方式设置：
l 设计时在“属性”窗口进行设置。
l 运行时通过代码设置。
l 在运行时由用户输入。
【例4-5】
2. 多行文本框
文本框在缺省情况下只显示单行文本，且不显示滚动
条。如果文本长度超出可用空间，则只能显示部分文本。
通过设置MultiLine和ScrollBars两种属性（只能在设计程
序时设置），可以改变文本框的外观和行为。
① MultiLine多行属性。
② ScrollBars属性。
0—None：无滚动条。
1—Horizontal：加水平滚动条。
2—Vertical：加垂直滚动条。
3—Both：同时加水平和垂直滚动条。
【例4-6】
4.2.3 使用输入框
InputBox函数显示一个能接受用户输入的对话框，并返回
用户在对话框中输入的信息。其语法格式为：
变量 = InputBox（〈信息内容〉[,〈输入框标题〉][,〈默认
内容〉]）
【例4-7】
4.3 其他常用语句和方法
4.3.1 卸载对象语句
Unload语句的语法格式为：
Unload 对象名
说明：
① “对象名”是要卸载的窗体对象或控件的名称。可以用Me表示当
前所在的窗体对象。使用方法参见例4-5。
② 在卸载窗体前，会发生QueryUnload事件，然后是Unload事件。在
其中任一事件过程代码中设置Cancel参数为True可防止窗体被卸载。
4.3.2 注释语句
注释语句用来在程序中包含注释，语法格式为：
Rem 〈注释内容〉
或
' 〈注释内容〉
说明：
①〈注释内容〉指要包括的任何注释文本。在Rem关键字与
注释内容之间要加一个空格。可以用一个英文单引号（'）来代
替Rem关键字。
② 如果在其他语句行后使用Rem关键字，必须用冒号（:）
与语句隔开。若使用英文单引号，则在其他语句行后不必加冒
号。
例如：
s = pi * r ^ 2
' 计算圆的面积
v = 4 / 3 * pi * r ^ 3 : Rem 计算球的体积
4.3.3
焦点与Tab键序
1. 焦点
可以用SetFocus方法在代码中设置焦点。如在例4-5中，编写窗体的
Activate事件代码，其中调用SetFocus方法，使得程序开始时光标（焦
点）位于输入框Text1中：
Private Sub Form_Activate()
Text1.SetFocus
End Sub
另外，在“计算”按钮的Click事件代码中调用SetFocus方法，可以
使光标重新回到输入框Text1。
在程序运行的时候，用户可以按下列方法改变焦点：
l
用鼠标单击对象。
l
按〈Tab〉键或〈Shift〉+〈Tab〉在当前窗体的各对象之间
巡回移动焦点。
l
按热键选择对象。
2. Tab键序
TabIndex属性决定控件接收焦点的顺序，TabStop属性
决定焦点是否能够停在该控件上。
当 在 窗 体 上 画 出 第 一 个 控 件 时 ， VB 分 配 给 控 件 的
TabIndex属性默认值为0，第二个控件的TabIndex属性默
认值为1，第三个控件的TabIndex属性默认值为2…，依此
类推。当用户在程序运行中按〈Tab〉键时，焦点将根据
TabIndex属性值所指定的焦点移动顺序移动到下一个控件
。通过改变控件的TabIndex属性值，可以改变默认的焦点
移动顺序。
如果控件的TabStop属性设置为假（False），则在运行
中按Tab键选择控件时，将跳过该控件，并按焦点移动顺
序把焦点移到下一个控件上。
4.3.4 使用框架控件
如同图片框一样，框架（Frame）控件是一种容器控件
，在框架控件内部的控件可以随框架一起移动，并且受到
框架控件某些属性（Visible、Enabled）的控制。
【例4-8】
4.4
习题