结构化程序设计1943最全版.pptVIP

4.1.3 MsgBox函数和MsgBox过程 功能：打开一个信息框，等待用户选择一个按钮 区别： MsgBox函数返回所选按钮的值 MsgBox过程不返回值，常用于简单的信息显示 格式： MsgBox(Prompt[,Type][,Title]) MsgBox Prompt[,Type][,Title] * KUHKUK MsgBox函数 Title标题 Prompt提示 命令按钮 图标 函数格式：MsgBox(Prompt[,Type][,Title]) Dim response as string*20 Response=MsgBox(“Do you want to continue?”,1+32+0,“信息窗口”) * KUHKUK MsgBox中Type参数设置表 信息图标 64 VBInformation 警告信息图标 48 VBExclamation 询问信息图标 32 VBQuestion 关键信息图标 16 VBCritical 图标 类型 重试、取消按钮 5 VBRetryCancel 是、否按钮 4 VBYesNo 是、否、取消按钮 3 VBYesNoCancel 终止、重试、忽略按钮 2 VBAboutRetryIgnore 确定、取消按钮 1 VBOkCancel 确定按钮 0 VBOkOnly 按钮 数目 描 述 值 内 部 常 数 分组 本章目录 * KUHKUK MsgBox函数返回值 MsgBox函数的返回值是一个整数，这个整数与所选择的按钮有关 按钮的返回值决定了程序执行的流程 本章目录 内部常数 返回值 被单击的按钮 vbOk 1 确定 vbCancel 2 取消 vbAbort 3 终止 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否 * KUHKUK MsgBox过程 MsgBox Prompt[,Type][,Title] 没有返回值，常用于简单的信息显示 例4.4 编写一个学生成绩查询系统登录程序。 操作要求如下： （1）学号为12位长度的数字。如果出现非数字字符，则给出相应的错误提示。 （2）密码最多为8位，密码掩码为“*”。假定密码是“Wang”。如果输入的密码有误，给出相应的出错信息提示。 * KUHKUK 4.2 选择结构 主要通过If条件语句和Select Case语句来实现 它们都是对给出的条件进行判断，根据判断结果，选择执行不同的分支 本章目录 * KUHKUK 4.2.1 单行结构条件语句 格式 ①If 条件表达式 Then 语句序列 ②If 条件表达式 Then 语句序列1 Else 语句序列2 说明 1. “条件表达式”可以是关系表达式、逻辑表达式或数值表达式。如果是数值表达式作为条件，则非0值为真，0值为假。 2. “语句序列”可以包含多条语句，所有语句必须在一行中写完，各个语句之间用冒号“:”分隔 * KUHKUK 4.2.1 单行结构条件语句 执行流程 ①If 条件表达式 Then 语句序列 ②If 条件表达式 Then 语句序列1 Else 语句序列2 条件 语句组1 F T 条件 语句组1 语句组2 F T 例4.5 输入3个数a，b，c，并输出其中最大的数。 * KUHKUK 4.2.2 块结构条件语句 格式1： If 条件表达式 Then 语句序列 End If 格式2： If 条件表达式 Then 语句序列1 Else 语句序列2 End If 条件 语句组1 F T 条件 语句组1 语句组2 F T 流程图： * KUHKUK 块结构条件语句说明 (1)在块If语句中，一个If块必须由一条End If语句结束。Then和Else后面的“语句序列”必须另起一行。 (2)条件表达式可以是关系表达式、逻辑表达式或数值表达式。如果是数值表达式作为条件，则非0值为真，0值为假。 (3)“语句序列”可以包含多条语句，一行写一条语句，也可以一行写多条语句。 (4)采用缩进格式书写，结构清晰，便于检查。 * KUHKUK 块结构条件语句举例 例4.6 计算分段函数 单分支 y=cos(x)－x^3+3*x 结构实现 If x0 Then y=sin(x)+sqr (x*x+1) If x0 Then 双分支 y=sin(x)+sqr (x*x+1) Else 结构实现 y=cos(x