参考 msgbox函数和的选择结构.pptVIP

消息框函数( MsgBox) ●选择结构 消息框函数( MsgBox) 在 windows中,如果操作有误,通常会在屏幕上显示一个 对话框,提示用户进行选择,然后系统根据选择确定其后的 操作 VB提供的 MsgBox函数可以实现此功能,它可以向用户传 送信息,并可以接收用户在对话框上的选择,以此作为程序 继续执行的依据。 格式: MsgBox(提示信息,按钮类型,对话框标题]) 功能:在对话框中显示消息,等待用户单击按钮,并返回 个整数告诉用户单击了哪个按钮。 “按钮类型”的设置值及含义 分类 vbOKOnly 只显示“确定”按钮 按钮类型 01234 boKCancel 显示“确定”、“取消”按钮 b AbortRetrylgnore显示“终止”、“重试”、“忽略”按 vb YesNoCance 显示“是”、“否”、“取消”按钮 vb Yes 显示“是”、“否”按钮 vbRetry Cancel 显示“重试”、“取消”按钮 vb Critical 显示停止图标X vbQuestion 显示询问图标? 图标类型 显示警告图标! 显示信息图标 第一个按钮是默认按钮 默认按钮256 vb DefaultButton2 第二个按钮是默认按钮 512 vbDefaultButton 3 个按钮是默认按钮 3 Msg Box函数的返回值 系统符号常量 返回值 按键 vbOK 确定 vbCancel 取消 aBort reTry vblgnore 23456 终止 重试 忽略 viNo 若不需要返回值,则可以使用 MsgBox语句,其格式为 Msg Box提示信息[按钮类型,对话框标题 Private Sub Command l_Click( a= MsgBox(“提示信息”) End sub Private Sub Commandl_Click() a= Msg Box(“提示信息”Chr(13)“换行显 End sub Private su a= MsgBox(“提示信息”,“标题”) 提示信息 End sub Private Sub Command l_Click( 提示信息 M4gB是示信息”1标题”)职」 End sub 6 P a= Msg Box(提示信息”,1+16,标题 提示信息 End Sub 取消 Private Sub Commandl_Click( a= MsgBox(“提示信息”,2+32+0.“标题”) End Sub 标度 提示信息 重试①〕 7 选择结构 ·1..Then语句(单分支结构) 块形式:表达式Then 语句块 表达F End If 单行形式 语句块 Hf表达式Then语句 ●表达式:一般为关系表达式、逻辑表达式, 也可以是算术表达式(非0为true,0为fase) 8 问题: ●如果成绩(存于变量a)大于60,显示及格 学生成绩 格与否 断及格与否 9 例:已知两个数x和y,比较它们的大小, 使得x大于y If xy Then t=x y End if E If xy Then t=x: x=y: y=t 重要的是学会两个数的交换,若上述语句次序变一下,结果如何? 10