第4章 1 顺序结构.ppt

* * * 消息框常用于在屏幕上显示一个对话框，给出一些提示或警告信息，并允许用户进行选择。程序可根据该选择确定进一步的操作。 打开一个信息框，等待用户选择一个按按钮。 1、形式： MsgBox函数形式： 变量[%] = MsgBox(提示[,按钮][,标题]) MsgBox过程形式： MsgBox 提示[,按钮][,标题] 2、功能：打开一个信息框，等待用户选择一个按钮。当用户单击某个按钮后，将返回一个数值以标明用户单击了哪个按钮。 MsgBox函数返回所选按钮的值，MsgBox过程不返回值 注：1）提示、标题的意义同InputBox函数。 2）按钮项是一整型表达式，决定信息框按钮的数目和类型及出现在信息框上的图标形式。 (三)消息对话框MsgBox函数和MsgBox过程 P74 本章目录 * MsgBox按钮设置 第3个按钮为默认 512 VBDefaultButton3 第2个按钮为默认 256 VBDefaultButton2 第1个按钮为默认 0 VBDefaultButton1 默认 按钮 信息图标 64 VBInformation 警告信息图标 48 VBExclamation 询问信息图标 32 VBQuestion 关键信息图标 16 VBCritical 图标 类型 重试、取消按钮 5 VBRetryCancel 是、否按钮 4 VBYesNo 是、否、取消按钮 3 VBYesNoCancel 终止、重试、忽略按钮 2 VBAboutRetryIgnore 确定、取消按钮 1 VBOkCancel 确定按钮 0 VBOkOnly 按钮 数目 描 述 值 内 部 常 数 分组 本章目录 具体格式：P75 按钮数目+图标类型+默认按钮 变量[%] = MsgBox(提示[,按钮][,标题]) MsgBox 提示[,按钮][,标题] * 3）MsgBox所选按钮返回值 例4.3 编一账号和密码输入的检验程序，当输入不正确，如账号为非数字字符，密码不正确等，显示有关信息，再输入。P76 本章目录 内部常数 返回值 被单击的按钮 vbOk 1 确定 vbCancel 2 取消 vbAbort 3 终止 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否 * Private Sub Form_Load() Text1.Text = Text1.MaxLength = 6 Text2.Text = Text2.MaxLength = 4 Text2.PasswordChar = * End Sub Private Sub Text1_LostFocus() If Not IsNumeric(Text1.Text) Then MsgBox 账号必须为数字, , 警告 连续两个逗号,仅有确定按钮 Text1.Text = :Text1.SetFocus End If End Sub Private Sub Command1_Click() Dim I As Integer If Text2.Text Gong Then I = MsgBox(密码错误,  5 + vbExclamation, 警告) If I 4 Then End Else Text2.Text = Text2.SetFocus End If End If End Sub 48 例1 例2 例3 **例4 * 【例】MsgBox函数的应用举例。 （1）只显示“提示信息”，如图所示。 Private sub Command1_Click（） a =MsgBox(“请输入一个整数”) End Sub （2）显示“确定”、“取消”按钮，如图所示。 Private sub Command1_Click（） a =MsgBox（＂请输入一个整数：＂，1，＂输入提示＂） End Sub （3）显示“终止”、“重试”、“忽略”按钮，并显示询问图标，设第一个按钮为默认按钮，如图所示。 Private sub Command1_Click（） a =MsgBox（＂密码错误！是否继续？：＂，2＋32+0，＂密码错误验证＂） Print a End Su