VBA程序流程控制语句.pptVIP

循环结构（续3） 【例】利用Do循环求1+2+…+100和。 Dim sum As Integer, i As Integer sum = 0 i = 1 Do Until i 100 Sum = Sum + i i = i + 1 Loop Debug.Print sum * * 本节内容及要求： 1.熟练掌握行if语句、块if结构、Select Case情况选择结构有使用，掌握选择的嵌套结构； 2.熟练掌握实现循环结构的For/Next循环结构及Exit For语句、Do/Loop循环结构的使用，掌握多重循环。 本章重点： 选择结构及循环结构的实现及其应用 本章难点： 选择的嵌套及多重循环结构 VBA程序流程控制语句 执行语句分为3种结构： 顺序结构：顺序结构是最基本的程序结构，按程序中语句编写的先后顺序逐条执行。 条件结构：根据条件选择运行的结果。 循环结构：对程序中的某段代码重复执行时，可以使用循环结构。 分支语句 Goto 语句 形式: Go To {标号|行号} 作用是无条件地转移到标号或行号指定的那行语句. 标号是一个字符序列,行号是一个数字序列。 例如： Lp: …… …… …… goto lp 条件测试语句 If…Then语句(单分支结构) If 表达式 Then 语句块 End If 或 If 表达式 Then 语句 例:已知两个数x和y，比较它们的大小， 使得x大于y. If xy Then t=x : x=y: y=t End If 或 If xy Then t=x: x=y: y=t N 条件 语句序列 End If Y 条件测试语句 2. If…Then…Else语句(双分支结构) If 表达式 Then 语句块1 Else 语句块2 End If If 表达式 Then 语句1 Else 语句2 双分支选择结构执行过程 条件 N 语句序列1 End If后面的语句 Y 语句序列2 条件测试语句 例如：输出x,y两个中值较大的一个值。 IF X Y Then Print X Else Print Y End If 也可以写成如下的单行形式： IIF (X Y ,Print X , Print Y) 条件测试语句 If…Then…ElseIf语句(多分支结构) 形式: If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 … [Else 语句块 n+1] End If 条件测试语句 例：输入一学生成绩，评定其等级。方法是：90~100分为“优秀”，80~89分为“良好”，70~79分为“中等”，60~69分为“及格”，60分以为“不合格” 使用IF语句实现的程序段如下： If x=90 then Print 优秀 ElseIf x=80 Then Print 良好 ElseIf x=70 Then Print 中等 ElseIf x=60 Then Print 及格 Else Print 不及格 End If 条件测试语句 4 . Select Case语句（情况语句） 形式： Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select 数值型或字符串表达式 条件测试语句 例如：将例 使用select case…..语句来实现的程序段如下： Select Case x Case 90 to 100 Print 优秀 Case 80 to 89 Print 良好 Case 70 to 79 Print 中等 Case 60 to 69 Print 及格 Case Else