文档介绍：1
数据输入
一、 InputBox函数
默认值
对话框标题
提示信息
变量名=InputBox(<提示信息>[,<对话框标题>][,<输入区的默认值>] [,<对话框坐标>] )
例如,要在屏幕上显示如下的对话框:
2
【说明】该函数的返回值默认为字符串,如果要把返回值进行其他类型的处理,要么事先声明返回值的类型,要么对返回的字符串进行类型转换。
注意:一个InputBox函数只接受一个值的输入。
<提示信息>:必选项,提示用户在输入框中输入信息,长度不能超过1 024个字节。
<对话框标题>:在对话框的标题栏显示的标题信息,如果默认,则标题为“工程1”。
3
<输入区的默认值>:指用户在输入框输入信息之前在其中显示的内容。无论是否输入新的信息,单击“确定”按钮后,返回输入框的当前值;单击“取消”按钮,则返回长度为零的字符串。
<对话框坐标>:确定对话框的位置,分别表示对话框的左上角到屏幕左边界和上边界的距离,必须成对出现。
4
【例4-1】在对话框中输入圆的半径,如图4-1所示,计算并输出圆的面积,如图4-2所示。
图 4-1 输入圆的半径
5
图4-2 计算并输出圆的面积
6
“面积计算”命令按钮对应代码如下:
Private mand1_Click()
Dim r, s As Single
r = InputBox("请输入半径:", "计算圆的面积", 1)
s = * r * r
Print
Print " 圆的面积是: "; s
End Sub
7
MsgBox()函数
格式:变量= MsgBox(<提示信息> [, <对话框类型>][,< 对话框标题>])
其中:对话框类型=[按钮[+图标]+ [缺省按钮]+[模式]]
图标
标题
提示信息
命令按钮
8
说明:
消息对话框用于提示用户进行后面操作的选择,作为继续执行程序的依据。
<提示信息>:必选项,提示用户在输入框中输入信息,长度不能超过1 024个字节。
9
<对话框类型>:为整数或符号常量,用于指定对话框中出现的控制按钮和图标的种类和数量,一般有4个参数,用“+”号相连,参数的取值可以是数字形式和符号常量形式。如果默认某个参数,不能省略逗号,要以逗号标识是哪个默认。第1个参数表示对消息框中按钮数目的选择,第2个参数表示对消息框中图标类型的选择,第3个参数表示对消息框中默认按钮的选择,第4个参数表示消息框的模式值。参数的取值和含义分别如表4-1、表4-2和表4-3所示。
10
表4-1 第1个参数——按钮类型
取值
符号常量
意义
0
VbOkOnly
“确定”按钮
1
VbOkCancel
“确定”和“取消”按钮
2
vbAbortRetryIgnore
“终止”、“重试”和“忽略”按钮
3
VbYesNoCancel
“是”、“否”和“取消”按钮
4
VbYesNo
“是”和“否”按钮
5
VbRetryCancel
“重试“和“取消”按钮