第3章 程序设计基础精要.ppt

3.6.2 数据输入（InputBox函数） InputBox函数 Dim StuID As String StuID = InputBox(“请输入你的学号：” vbCrLf “有效学号是7 位 , 学生登录, 9712001) 3.6.2 数据输入（InputBox函数） 使用InputBox函数时，应注意以下几点： 第一个参数不能省略，如果中间的参数省略，中间的逗号不能省略。 Input Box的返回值是一个字符串(不是变体类型)。需要输入的数值参加运算时，必须在进行运算前用Val函数(或其他转换函数)把它转换为相应类型的数值 输入的数据必须作为函数的返回值赋给一个变量，否则输入的数据不能保留。 3.6.3 MsgBox函数和MsgBox语句 MsgBox函数的功能是向用户传送信息，并可通过用户在对话框上的选择接收用户所做的响应，作为程序继续执行的依据。 （一）MsgBox函数 该函数的调用格式如下： MsgBox(msg[,type][,title][,helpfile,context]) 该函数有5个参数，除第一个参数外，其余参数都是可选的。 3.6.3 MsgBox函数和MsgBox语句 (1) msg是一个字符串，该字符串的内容将在产生的对话框内显示。 (2) type是一个整数制或符号常量，用来控制在对话框内显示的按钮、图标的种类及数量。该参数的值由4类数值相加产生，这4类数值或符号常量分别表示按钮的类型、显示图标的种类、活动按钮的位置及强制返回，具体内容参见表3.12。 (3) title是一个字符串，用来显示对话框的标题。 3.6.3 MsgBox函数和MsgBox语句 一般type参数值=按钮设置值 + 图标设置值 值 按钮的设置 对应按钮名称 0 vbOKOnly---------------确定 1 vbOKCancel-------------确定、取消 2 vbAbortRetryIgnore---终止、重试、忽略 3 vbYesNoCancel---------是、否、取消 4 vbYesNo------------------是、否 5 vbRetryCancel----------重试、取消 type参数值=按钮设置值+图标设置值 对应值 符号常量 出现的图标 16 vbCritical -------------------- 32 vbQuestion -------------------- 48 vbExclamation -------------- 64 vbInformation --------------- Buttons参数值= 1+64 或 vbOKCancel+ vbInformation 3.6.3 MsgBox函数和MsgBox语句 3.6.3 MsgBox函数和MsgBox语句 MsgBox函数的返回值是一个整数，这个整数与所选择的按钮有关。 返回值 操 作 常 量 1 选“确定”按钮 vbOk 2 选“取消”按钮 vbCancle 3 选“终止”按钮 vbAbort 4 选“重试”按钮 vbRetry 5 选“忽略”按钮 vbIgnore 6 选“是”按钮 vbYes 7 选“否”按钮 vbNo 3.6.3 MsgBox函数和MsgBox语句 【例3.4】编写程序，用MsgBox函数判断是否关闭计算机。 设计的程序代码如下： Private Sub Command1_Click() Dim str1 As String Dim str2 As String str1 = 你确定要关闭计算机? str2 = 关闭 x = MsgBox(str1, 307, str2) If x = 6 Then 判断是否单击“是”按钮 End 退出程序 End If End Sub 3.6.3 MsgBox函数和MsgBox语句 （二）MsgBox语句 MsgBox函数也可以写成语句形式，语句格式为： MsgBox Msg$[,type%][,title$][,helpfile,context] 以上语句中个参数的含义与MsgBox函数中的参数相同。因为MsgBox语句没