第七讲 分支结构.ppt

1、第四章 分支结构,4.1 单行结构条件语句 If Then Else 例： If Digits = 1 Then MyString = One Else MyString = More than one 4.2 块结构条件语句 If Then Elseif Then Elseif Then Else End if,下一页,例： Dim Number, Digits, MyString Number = 53 设置变量初始值。 If Number 10 Then Digits = 1 ElseIf Number 100 Then 若判断结果为 True，则完成下一行语句。 Digits = 2

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 Case Case Else End Select,例： 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 Ca

3、se Is 8 And Number 11 Debug.Print Greater than 8 Case Else Debug.Print Not between 1 and 10 End Select,下一页,第五章 循环语句,5.1 循环概念 先判断后执行循环体 先执行循环体在判断,下一页,5.2 While Wend 语句 While Wend 流程图：,例： Dim Counter Counter = 0 While Counter 20Counter = Counter + Wend Debug.Print Counter,下一页,5.3 Do Loop,先判断条件的 DoLoop

4、语句 Do While | Until 语句块 Loop,后判断条件的 Do Loop While | Until语句 Do 语句块 Loop While | Until,下一页,5.4 For Next 语句 For = To Step Next 注意 步长参数可正可负。如果步长为正，则初值必须小于等于终值，否则不能执行循环内的语句。如果步长为负，则初值必须大于等于终值，这样才能执行循环体。如果没有设置Step，则 步长缺省值为 1。循环次数=Int(终值-初值)/步长+1 在执行 For 循环时，Visual Basic 1. 设置控制变量等于初值。 2. 测试控制变量（若步长为负，则 V

5、isual 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,2、Next 后省略控制变量 For k1= For k2= For k3= Next Next Next 3、内外循环终点相同功用Next For k1= For k2= For k3= Next k3, k2, k1,下一页,循环退出 Exit Do Exit For 例： Sub ExitStatementDemo() Dim I, MyNum Do For I = 1 To 1000 MyNum = Int(Rnd * 1000)。 Select Case MyNum