第七讲 分支结构.pptVIP

第四章 分支结构 4.1 单行结构条件语句 If 条件 Then 语句1 [Else 语句2] 例： If Digits = 1 Then MyString = One Else MyString = More than one 4.2 块结构条件语句 If 条件1 Then 语句块1 [Elseif 条件2 Then 语句块2] [Elseif 条件3 Then 语句块3] …… [Else 语句块n] End if 例： Dim Number, Digits, MyString Number = 53 设置变量初始值。 If Number 10 Then Digits = 1 ElseIf Number 100 Then 若判断结果为 True，则完成下一行语句。 Digits = 2 Else Digits = 3 End If 条件语句嵌套 例：if b1 Then If b2 Then s1 Else s2 End if GoTo 语句（在模块化程序设计中应尽量避免使用GoTo语句） GoTo 标号 4.3 情况语句 语法 Select Case 测试表达式 [Case 测试表达式表列1 [语句块1] ] [Case 测试表达式表列2 [语句块2] ] …… [Case Else [语句块n] ] End Select 第五章 循环语句 5.1 循环概念 先判断后执行循环体 先执行循环体在判断 5.2 While … Wend 语句 While 条件 语句块 Wend 流程图： 5.3 Do …Loop 5.4 For … Next 语句 For 控制变量 = 初值 To 终值 [Step 步长 循环体 Next [控制变量] 注意 步长参数可正可负。如果步长为正，则初值必须小于等于终值，否则不能执行循环内的语句。如果步长为负，则初值必须大于等于终值，这样才能执行循环体。如果没有设置Step，则 步长缺省值为 1。循环次数=Int(终值-初值)/步长+1 在执行 For 循环时，Visual Basic 1. 设置控制变量等于初值。 2. 测试控制变量 （若步长为负，则 Visual Basic 测试控制 变量是否小于终值。） 3. 执行语句。 4. 控制变量增加一，或者增加步长（如果已指定的话）。 5. 重复步骤 2 到步骤 4。 例： Dim Words, Chars, MyString For Words = 10 To 1 Step -1 For Chars = 0 To 9 MyString = MyString Chars Next Chars MyString = MyString Next Words 5.5 嵌套循环与退出循环 嵌套循环 1、完整形式 For k1= … For k2= … For k3= … … Next k3 … Next k2 … Next k1 循环退出 Exit Do Exit For 例： Sub ExitStatementDemo() Dim I, MyNum Do For I = 1 To 1000 MyNum = Int(Rnd * 1000) 。 Select Case MyNum Case 7: Exit For Case 29: Exit Do Case 54: Exit Sub End Select Next I Loop End Sub * * 下一页 下一页 下一页 例： Dim Number Number = 8 Select Case Number Case 1 To 5 Debug.Print Between 1 and 5 Case 6, 7, 8 Debug.Print Between 6 and 8 Case Is 8 And Number 11 Debug.Print Greater than 8 Case Else Deb