VB程序设计第四章 基本的控制结构

4.2 选择结构

选择结构作用
– 对条件进行判断，根据判断结果，选择
执行不同的分支。
If 条件语句 Select case语句 条件函数

4.2.1 If 条件语句

If 条件语句有多种形式
– 单分支
– 双分支
– 多分支
1 单分支结构
If …Then 语句
（1） If < 表达式 > Then < 语句块> End If （2）If < 表达式 > Then < 语句>

例题：
编程实现账号和密码的输入程序，要求： （1）账号不超过6位数字，密码为4位字符， 假设为“Gong” （2）密码输入时，不显示输入的字符，用 “*”代替。 （3）输入不正确，显示有关信息。单击“重 试”，则清除原来输入的内容，等待重新 输入；单击“取消”，终止程序运行。
分析 账号
– 账号不超过6位数字，则将文本框的
第四章
基本的控制结构
Summary
1. 顺序结构（Sequence） 2. 选择结构（Selection） 3. 循环结构（Repetition） 4. 其它辅助控制语句 5. 常用算法（一）
4.1 顺序结构

顺序结构
– 按照各语句出现的先后顺序执行
– 包括： 赋值语句 输入 / 输出语句
按钮值
描述 “确定” “确定”、“取消” “终止”、“重试”, “忽略” “是”、“否”、“取 消” “是”、“否” “重试”、“取消”
按钮 数目
0 1 2 3 4 5
按钮 类型
vbCritical vbQuestion vbExclamation vbInformation vbDefaultButton1 vbDefaultButton2 vbDefaultButton3 vbApplicationMode vbSystemMode
– IIF( )函数
– Choose( )函数
4.3 循环结构
循环是在指定的条件下重复执行某 些指令。 两种类型的循环语句：
– 计数型循环语句：用于循环次数确定的
情况 (FOR循环语句) – 条件循环语句：用于循环次数未知的 情况 (Do Loop循环语句)
表达式
T
F
语句块
2 双分支结构
If …Then…Else 语句
（1） If < 表达式 > Then < 语句块 1 > Else < 语句块 2 > End If
（2）If < 表达式 > Then < 语句1> Else <语句2>
作用

当表达式为非零（True）时，执行Then 后的语句块1（或语句1），否则，执行 Else后面的语句块2（或语句2）。

例题4.4 (P83)
4.2.2 Select case语句
Select Case 语句是多分支结构的另一 种表示。比If 语句更直观。 选择多于三个以上，采用Select Case 较好。

Select case 变量或表达式 Case 表达式列表1 <语句块1> Case 表达式列表2 <语句块2> …… [ Case Else <语句块n> ] End Select

– 给变量赋值
– 给控件的属性赋值

例如： sngRate! =0.1 „将0.1赋给单精度变量sngRate txtName.Text = “Hu”
赋值处理

当赋值等号左右数值类型不相同时，强制转换成 左边变量的类型（精度） n%=3.5 „结果为4（四舍五入）
当赋值等号左边是数值类型，而右边表达式是数 字字符串，则VB自动转换成数值类型再赋值，如 表达式不是数字字符串，则出错。

2 MsgBox()函数

语法： 变量名＝MsgBox(提示[,按钮][,标题]) 其中： 提示：与InputBox函数相同 标题：与InputBox函数相同 按钮：整数表达式，决定信息框按钮的 数目和类型及其图标类型。参见 P77，表1.4.1
表1.4.1 “按钮”设置值及其意义
分组
内部常数 vbOkOnly vbOkCancel vbAbortRetryIgnore vbYesNoCancel vbYesNo vbRetryCancel

P82, 例4.3
4 If 语句的嵌套

在If 或者Else后面的语句中又 有If 语，称为If 嵌套。
If < 表达式1 > Then if <表达式2> Then …… End If …… End If
注意
If 嵌套一般采用锯齿型，增强程序的可 读性。 一个If 必须与一个End If匹配，End If与 最近的If语句配对。
作用
根据变量或表达式中的结果，与 各case语句中的表达式列表的值进 行比较，匹配则执行该语句块。如 果有多个匹配，则只执行第一个匹 配的语句块。
T
表达式列表1 F T 表达式列表2 F …… T 表达式列表n F 语句块n+1 语句块n 语句块2 语句块1
注意：
Select Case 语句只能有一个变量，不能 对多个变量进行条件判断。 多个变量只能采用If…Then…ElseIf 语句
MaxLength属性设置为6； – 输入结束后，通过LostFocus事件，来判断账 号输入的正确性。 – 若出错，则显示出错信息，重新输入。

密码
– 要显示“ * ”, 将PasswordChar属性设置为“ * ”即
可。 – 输入结束按确定键后，判断密码的正确性。正确 没有显示，出错显示出错信息。
最后计分
显示题目、结果和正确是否
4.2.3 条件函数

VB提供了两个条件函数
– IIF( )函数
– Choose( )函数
代替 If 语句 代替 Select语句
(1) IIf( )函数
IIf(表达式，当条件为T的值，当条件为F的值） 例如：求x, y中的大的数，放入Tmax变量中 TMax = IIf ( x > y, x, y ) 等效于： If x>y then Tmax=x Else Tmax=y End If
16 32 48 64 0 256 512 0 4096
红色STOP标志 询问信息图标 ？ 警告信息图标 ！ 信息图标 i 第一个按钮为默认
第二个按钮为默认 第三个按钮为默认
默认 按钮
模式
应用模式 系统模式
注意：

四组方式可以组合使用。一般采用内部常数形 式，而不采用按钮值形式。 例如：
I=MsgBox(“密码错误”,vbRetryCancel+vbExclamation,”输入密码”)
(2) Choose( )函数
Choose(整数表达式，选项列表） 根据整数表达式的值，选择选项列表的项： 1 第一项 2 第二项 ……. <1 或 > 选项数目 Null strOp=Choose(intNOp, “+” , ”-”, ”x”, ” ÷”)
忠告：

最好不要采用这两个函数
InputBox函数的作用

打开一个标准对话框，等待用户输入内容， 用户单击“确定（OK）”或者按回车键， 则该函数返回输入的值，其类型为字符型。 例如：
Dim strName As String * 40, strS1 As String strS1 = "请输入你的姓名" + vbCrLf + "然后回车确定" strName = InputBox(strS1, "输入框", , 100, 100)
n%=“123” „结果为123，与n%=Val(“123”)效果一样

n%=“1a23”
„出现“类型不匹配”错误
当逻辑类型赋值给数值类型时，True
转换为－1，False转换为0； 反之，当数值型赋值给逻辑类型，则 非零转换为True，0转换为False。
任何非字符类型赋值给字符类型，自
其中，
表达式 可为关系表达式、逻辑表达式、算术 表达式。非零为True，零为False。 语句块：一条或者多条语句。 形式(2)中的语句只能是一条，或者多条 简单语句，之间用冒号分开。 尽量用第一种形式编程。



当表达式为 True时，执行 Then后的语句 块。 否则，不作任 何处理
标题：字符串表达式，在对话框的标题 显示。如果省略，则显示应用程 序的名称。 默认：字符串表达式。当对话框中没有 输入时，则该默认值作为输入的 内容。 x坐标位置，y坐标位置：整数表达式， 确定对话框左上角在屏幕上的位 置，屏幕左上角为坐标原点，单 位：twip。1000 twip = 1 inch。
动转换为字符类型。
注意：
尽量采用转换函数进行转换，避免VB
系统自动转换。这样能避免出现意想 不到的错误。 VB系统会自动判断赋值符号“=“ 和关 系运算符等于符号”=“。 赋值符号”=“左边只能是变量，不能 是常量、或者表达式。 赋值语句： intX = intX + 1
2 人机交互函数和过程
I=MsgBox(“密码错误”,53,”输入密码”)

模式：若应用模式建立对话框，则必须响应对 话框才能继续当前的应用程序，但可以切换到 其它应用程序。若应用系统模式建立对话框， 则所有的应用程序都被挂起，直到用户响应对 话框为止。
表1.4.2 MsgBox函数返回值意义 内部常数 vbOk vbCancel vbAbort vbRetry vbIgnore vbYes VBNo