《Visual Basic程序设计与实训教程》第4章：控制结构

格式2: 格式 If <表达式 Then 表达式1> 表达式 <语句 语句1> 语句 else If <表达式 表达式2> Then 表达式 <语句 语句2> 语句 else <语句 语句3> 语句 End If End If
2011-1-17
清华大学出版社
10
4.2.5情况语句 :
1.情况语句格式为 Select Case <变量或表达式> Case <表达式列表1> <语句块1> [Case <表达式列表2> <语句块2> ] …… [Case Else <语句块n+1>] End Select 其中 <变量或表达式>：可以是数值型或字符串表达式。 <表达式列表>：必须与<变量或表达式>的类型相同，可以是表达式、 一组用逗号分隔的枚举值、表达式1 to 表达式2、Is关系运算符表达式， 并且这几种表达式形式可以混用。多个表达式列表间用逗号分隔。
2011-1-17
清华大学出版社
11
<表达式列表>可以是同类型的下面三种形式之一：
① 一组枚举表达式(用逗号分隔) 例: 2,4,6,8 或 ”A”,”B”,”C”,”D” ② 表达式1 To 表达式2 60 To 100 或 “A” To “Z” ③ Is 关系运算符表达式 ，适用的运算符包括<，<= ，>，>=，<>，= 如： Is < 60
注意： 注意：
(1)并不是所有的多分支结构都可以用情况语句代替。 (2)关键字To用来指定一个范围。必须将较小的值写在前面，较大的值写在后面， 字符串常量的范围必须按字母顺序写出。 (3)不能在case后直接用逻辑运算符将两个或多个简单条件组合在一起。 例如： Case Is>10 And Is<10 是不合法的。 (4)Case子句的顺序对执行结果没有影响，Case Else子句必须放在所有的Case 子句之后。
注意： 注意：
(1) 当某条件满足，执行相应的语句块，其余分支不再执行；若条件都不 满足，且有Else子句，则执行该语句块，否则什么也不执行。 (2)ElseIf 不能写成Else If 。 (3)若多分支中有多个表达式同时满足，则只执行第一个与之匹配的语句块。
2011-1-17
清华大学出版社
8
【例4.3】已知字符型变量strChar中存放了一个字符，判断该字符 是字母字符、数字字符还是其他字符。
2011-1-17
清华大学出版社
3
4.2.1 单分支结构条件语句
1.单分支结构条件语句格式： 单分支结构条件语句格式： 单分支结构条件语句格式 (1) If <关系表达式 Then 关系表达式> 关系表达式 <语句块 语句块> 语句块 End If (2) If <关系表达式 Then <语句 关系表达式> 语句> 关系表达式 语句 说明： 说明： 语句块可以是一句或多句，若用第二种形式表示， 语句块可以是一句或多句，若用第二种形式表示，则只能是一句语 若多句，语句间需用冒号(: 分隔 而且必须在一行上书写。 分隔， 句，若多句，语句间需用冒号 )分隔，而且必须在一行上书写。
【重点】
If语句的嵌套应用 循环语句及循环的嵌套在编程中的应用
【难点】
循环的嵌套
2011-1-17
清华大学出版社
2
4.1 顺序结构
顺序结构是一种线性结构，也是程序设计中最简单、最常用的基本 结构。其特点是按照命令的书写顺序从上到下顺序执行的一种结构。在 “第三章简单VB程序设计”中已经叙述。
4.2 选择结构
【例4.1】已知两个数x和y，比较它们的大小，使得 x小于y。 。
2011-1-17
清华大学出版社
4
方法一 If x>y Then t=x ‘ 将x与y交换 x=y y=t End if 4.2.2 双分支结构条件语句
方法二
If x>y Then t=x : x=y : y=t
1.双分支结构条件语句格式 If <表达式> Then <表达式 表达式> <语句块1> Else <语句块2> End If 双分支结构流程图如右图所示。
2011-1-17
清华大学出版社
7
4.2.3多分支结构
1.多分支结构语句格式：
If <表达式1> Then <语句块1> ElseIf <表达式2> Then <语句块2> … [ Else <语句块 n+1> ] < End If
2.多分支结构语句作用
测试条件的顺序为：<表达式1>、<表达式2>……，当遇到表达式值 为True时，则执行该条件下的语句块。
2011-1-17
清华大学出版社
6
方法二： 方法二：用双分支结构实现 双击窗体中【双分支结构实现】按钮，为Command2_Click()事件 过程添加如下代码： Private Sub Command2_Click() X = Val(Text1.Text) If X <> 0 Then 方法三： 方法三：用两个单分支结构实现 Y=X^2-5 Private Sub Command3_Click() Else X = Val(Text1.Text) Y=3*X+2 If X <> 0 Then Y = X ^ 2 - 5 End If If X = 0 Then Y = 3 * X + 2 Text3.Text = Y Text4.Text = Y End Sub End Sub
For语句执行流程如左图所示：
2011-1-17
清华大学出版社
16
说明： (1)<循环变量>：必须为数值型。 (2)<步长>：一般为正，初值小于终值；若为负，初值大于终值；默 认步长为1。 (3)<语句块>：可以是一句或多句语句，称为循环体。 (4)Exit For：表示当遇到该语句时，退出循环体，执行Next的下一条 语句。 (5)循环次数=int((<终值> - <初值>)/<步长>+1) (6)退出循环后，循环变量的值保持退出时的值。 (7)在循环体内对循环变量可多次引用，但不要对其赋值，否则影alse
语句块 1
语句块 2
2011-1-17
清华大学出版社
5
2.双分支结构条件语句 首先判断条件是否成立，如果成立，则执行语句块1而略过语句块2 继续向下执行程序；如果不成立，则执行语句块2而略过语句块1。 【例4.2】 计算分段函数，程序运行效果如图所示。 方法一：用单行结构实现 双击窗体中【单分支结构实现】按钮，为Command1_Click()事件添 加如下代码： Private Sub Command1_Click() X = Val(Text1.Text) Y=3*X+2 If X <> 0 Then Y = X ^ 2 - 5 Text2.Text = Y End Sub
选择结构的语句有： 语句(单分支结构 选择结构的语句有：If…Then语句 单分支结构 、 语句 单分支结构)、 If…Then…Else语句 双分支结构 、If…Then…ElseIf语句 多分 语句(双分支结构 语句(多分 语句 双分支结构)、 语句 支结构)、 语句的嵌套 语句的嵌套、 语句(情况语句 和条件函数。 支结构 、If语句的嵌套、Select Case语句 情况语句 和条件函数。 语句 情况语句)和条件函数
清华大学出版社
14
2011-1-17
4.2.6 IIf函数(条件函数)
函数形式： IIf(<条件>，<True部分>，<False部分>) 例如：求X、Y中大的数，并将大数放入变量iMax中。 iMax=IIf(X>Y, X, Y)根据表达式的值，返回两部分中的一个。
4.2.7常见错误
1.在选择结构中缺少配对的结束语句 1. 对多行式的If块语句中，应有配对的 EndIf语句结束。 2. 多分支结构ElseIf关键字的书写和条件表达式的表示 应注意多个条件表达式次序以及ElseIf 不要写成Else If。 3. Select Case语句的使用 Select Case 后不能出现多个变量，Case子句后不能出现变量。
2011-1-17
清华大学出版社
9
4.2.4 If语句的嵌套
格式1： 格式 ： If <表达式 Then 表达式1> 表达式 If <表达式 表达式2> Then 表达式 <语句 语句1> 语句 else <语句 语句2> 语句 End If else <语句 语句3> 语句 End If 【例4.4】已知x、y、z 3个数，比 较它们的大小并排序，使得x>y>z。 程序运行效果
2011-1-17
清华大学出版社
15
4.3循环结构
vb中循环的3种结构即 ⑴计数循环（For - Next循环）⑵当循环 （While - Wend循环）⑶Do循环（Do – Loop循环）。
4.3.1 For循环控制结构
语句格式： 语句格式：
For <循环变量 = <初值 循环变量> 初值>To <终值 [ Step <步长 终值> 步长>] 循环变量 初值 终值 步长 <语句块 语句块> 语句块 [Exit For] <语句块 语句块> 语句块 Next <循环变量 循环变量> 循环变量