VB第5章 控制结构与算法2.ppt

11-Sept-01 Visual Basic Programming 第五章：控制结构与算法 第五章：控制结构与算法 §5.1 算法基础 §5.2 顺序结构与预定义对话框 §5.3 选择结构程序设计 §5.4 循环结构程序设计 §5.5 常用算法 §5.4 循环结构程序设计 使用循环用于重复执行一组语句。 5.4.1 Do 循环 5.4.2 For… Next循环 5.4.3 快速退出循环 5.4.4 循环嵌套 5.4.1 Do 循环 1. Do While 条件 循环体 Loop 2. D0 循环体 Loop While 条件 3. Do Until 条件 循环体 Loop 4. Do 循环体 Loop Until 条件 1、Do While－loop 循环 例11:求1+2+3+4+…+100的和 法一： Dim I,s As Integer I=1 Do While I=100 s=s+I I=I+1 Loop Print I,s 2、Do…Loop While 例: 求1+2+3+4+…+100的和 Dim I,s As Integer I=1 Do s=s+I I=I+1 Loop While I=100 Print I,s 3、Do Until 循环 Do Until condition … … } 循环体 Loop 直到型循环： 先执行判断，为假执 行循环体，直到条件 变为真时退出。 Do Until 循环举例 Until 关键字用于检查 Do...Loop 语句中的条件。在进入循环之前检查条件（如下面的示例）；只要条件为 False，就会进行循环。 Private Sub Form_Load() Dim counter, myNum counter = 0 myNum = 20 Do Until myNum = 10 myNum = myNum - 1 counter = counter + 1 Loop MsgBox 循环重复了 counter 次。 End Sub 4、Do -Loop Until 循环 Do  … … } 循环体 Loop Until condition 直到型循环： 先执行循环体，再 判断，为假执行循 环体，直到条件变 为真时退出。 Do –Loop Until 循环举例 Until 关键字用于检查 Do...Loop 语句中的条件。如下面的示例，在循环至少运行完一次之后检查条件。只要条件为 False，就会进行循环。 Private Sub Form_Load() Dim counter, myNum counter = 0 myNum = 1 Do myNum = myNum + 1 counter = counter + 1 Loop Until myNum = 10 MsgBox 循环重复了 counter 次。 End Sub 5.4.2 For… Next循环 For … Next计数循环必须有一个控制变量，这个控制变量一般为整型。语法是： For Counter = Start To End[Step step] Instructions Next Counter 就是控制变量； Start 为counter的初值； End 为 counter的终值； Step 为 counter 的步长，如果没有指定，则 step 的默认值为 1。step 参数可以是正数或负数，负数循环到计数情况，此时 start end。 例 如果想运行5次，可用下面的循环： For i = 1 To 5 Step 1 ‘Step 1 可省略 Instructions Next 这时，每循环一次，i 的值就加 1。 例：下面代码可循环5次 For i = 5 To 1 Step -1 x = x + 1 Next i Print x 例：求 12+22+32+…+n2 Private Sub Form_Load() Dim n As Integer Dim i As Integer Dim sum As Integer n = Val(InputBox(请