VB循环结构程序设计.pptVIP

3.3 循环语句 3.4 循环语句－For…Next循环 3.4 循环语句－For…Next循环 3.4 循环语句－For…Next循环 3.5 循环语句－Do…Loop循环 3.5 循环语句－Do…Loop循环 3.5 循环语句－Do…Loop循环 3.5 循环语句－Do…Loop循环 3.5 循环语句－Do…Loop循环 3.6 循环语句－两重循环 3.6 循环语句－两重循环 3.6 循环语句－两重循环 3.6 循环语句－多重循环 3.7 其他语句－Exit与End 3.7 其他语句－Exit与End 3.7 其他语句－Goto 程序调试－程序的错误类型 程序调试－简单调试 程序调试－使用调试工具 程序调试－使用调试工具 * * 程序的另一种结构是循环结构 循环结构作用是重复执行一段程序 循环是有条件的、次数是有限的 VB的循环语句：For…Next、Do While…Loop For Each…Next、While…Wend 应用最多的：For…Next与Do While…Loop 返回目录 For…Next循环一般应用于循环次数已知的场合 For 循环变量 = 初值 To 终值 [Step 步长] 语句块（循环体） Next [循环变量] 工作原理 返回目录 循环变量=初值 循环变量超出范围？ 循环体 循环变量增加一个步长 No Yes Step缺省为 1 [例3.9] 求1+3+5+7+…+99 Private Sub Form_Click() Dim Sum As Integer, I As Integer Sum = 0 保存累加和，先清零 For I = 1 To 99 Step 2 Sum = Sum + I Next I MsgBox 1+3+5+…+99= Sum, , 求和 End Sub 返回目录 本例的特点是数据项之间相差2， 即Step的值为2 思考： 例中当输出对话框出现时，I 的值是多少？ 如果省略Step 2，程序的结果如何？ For语句能不能改写成For I=99 To 1 Step -2 ？ [例3.10] 求平均成绩 Const N = 10 学生人数 Private Sub Form_Click() Dim Sum As Integer, I As Integer Dim Data As Integer, Average As Single Sum = 0 存放累加值的变量清零 For I = 1 To N 循环40次，步长值为1省略 Data = InputBox(输入第 I 位同学的成绩, 求平均分) Sum = Sum + Data Next I Average = Sum / N MsgBox 全班 N 名学生的平均分为 Average, , 求平均分 End Sub 返回目录 确 定 本例的循环变量 I 控制人数 1. 当型循环 返回目录 Do 循环体 Loop While 条件表达式 Do While 条件表达式 循环体 Loop 条件表达式 成立？ 循环体 No Yes 条件表达式 成立？ 循环体 No Yes 先判断后执行 先执行后判断 特点：条件表达式成立执行循环体内容 [例3.12] 计算平均分 Private Sub Form_Click() Dim Data As Integer, Sum As Integer, N As Integer Dim Average As Single Sum = 0 : N = 0 Data = InputBox(输入第 N + 1 个同学的成绩, 求平均分) Do While Data -1 -1表示结束输入 Sum = Sum + Data N = N + 1 Data = InputBox(输入第 N + 1 个同学的成绩, 求平均分) Loop Average = Sum / N MsgBox N 位同学的平均分为 Average, , 求平均分 End Sub 返回目录 [例3.13] Sum=1+2+3+…+N 求Sum不超过10000的最大整数值和数据项数N Private Sub Form_Click()