2016第 章 选择分支与循环.pptVIP

第 5 章 选择分支与循环 基本要求：熟练掌握if-then-else-end if select-case-end select do-loop、for-next语句 重点：if-then-else-end if select-case-end select do-loop、for-next语句 算法：累加、累乘(pg70)、穷举法、迭代法(pg77) 难点：选择的嵌套、多重循环 5.1 选择结构 1. If…Then语句(单分支结构) If 表达式 Then 语句块 End If 或 If 表达式 Then 语句 2. If…Then…Else语句(双分支结构) If 表达式 Then 语句块1 Else 语句块2 End If 或 If 表达式 Then 语句1 Else 语句2 3. If…Then…ElseIf语句(多分支结构) 形式：If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 … [Else 语句块 n+1 ] End If 5.2 Select Case语句（情况语句） 形式： Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select 表达式列表的下面三种形式之一： （1）一组枚举表达式(用逗号分隔) 2, 4, 6, 8 （2）表达式1 To 表达式2 60 to 100 （3） Is 关系运算符表达式 is40, is 60 （4）三种的组合 2，50 to 80, is 100 例1. 运行下面程序，第一行输出？第二行输出？ Private Sub Form_Click() Dim i As Integer, j As Integer Dim a As Integer, b As Integer a = 5: b = 1 For i = 1 To a + b Step b i = i + b ‘i=2, 6 a = a + i ‘a=7, 13 b = b + i ‘b=3, 9 k = k + 1 ‘k=1, 2 Next i Print a ‘13 Print b, k ‘9 2 End Sub 例2. Private Sub Form_Click() Dim i% For i = 0.5 To 5.5 Step 2.5 i = i + 1 Print i; Spc(2); next I End Sub 结果：1 4 7 Dim I%, Num% ‘演示看看 Do While True 建立无穷循环。 For I = 1 To 100 循环 100 次。 Num = Int(Rnd * 100) 生成一个0~99的随机数。 Select Case Num Case 10 Print 10退出 For...Next 循环 Exit For Case 50 Print 50退出 Do...Loop 循环 Exit Do Case 64 Print 64退出子过程 Exit Sub End