VisualBasic 程序设计教程 刘莲英 第6章 循环结构程序设计新.pptVIP

6.1 循环结构程序示例 【例6-1】编程计算1+2+3+…+n的值。 算法见图： 程序代码 Private Sub Form_Click() Dim sum, i%, n% sum = 0 累加前变量sum值为0 n = InputBox(请输入n的值:, 输入n的值) For i = 1 To n sum = sum + i Next i Print 1+2+...; n; =; sum End Sub 6.2 For...Next语句 1. For...Next语句的语法格式 For 循环变量 = 初值 to 终值 [Step 步长] 语句序列 Next [ 循环变量 ] 例如：求1~100奇数的和。 说明 ② 如果想提前退出For循环，使用Exit For语句，并且一般应同选择结构一起出现在循环体中。 2. For...Next语句的简单应用 【例6-2】求n! ，即计算p=1×2×3×…×n的值。 思路：求阶乘与求累加的运算处理过程类似，只要将“+”变为“*”。 程序中设置变量i 表示乘数，初值为1，终值为n（n是循环控制终值，需要从键盘输入）；变量p 表示累乘器，每次循环令p = p*i。 程序代码如下： Private Sub Form_Click() Dim i%, n%, p p = 1 n = Val(InputBox(请输入n：)) For i = 1 To n p = p * i Next i MsgBox n != p, , 求阶乘 End Sub 6.3 Do…Loop语句（续） 例如：计算1+2+3+…+n的值，程序段如下： sum = 0 累加前变量sum为0 i = 1 给控制循环的变量赋初值 Do While i = 100 sum = sum + i i = i + 1 Loop 6.3 Do…Loop语句（续） ⑵ 直到型循环（后判断）的语法格式 Do 语句序列 Loop While|Until 条件 6.3 Do…Loop语句（续） 例如：计算1+2+3+…+n的值，程序段如下： sum = 0 累加前变量sum为0 i = 1 给控制循环的变量赋初值 Do sum = sum + i i = i + 1 Loop While i = 100 2. Do...Loop语句的简单应用 【例6-4】求两个整数的最大公约数和最小公倍数。 思路：两个数的最小公倍数为两数乘积除以最大公约数。最大公约数使用辗转相除的方法求解。 辗转相除法：如图6-9所示 以24和60为例： 60÷24 余数：12 24÷12 余数：0 结果：最大公约数为12， 最小公倍数为24×60÷12=120 求最大公约数的算法 Private Sub Form_Click() Dim n%, m%, x%, r%, t% m = Val(InputBox(m=)) n = Val(InputBox(n=)) x = m * n If m n Then t = m: m = n: n = t Do r = m Mod n m = n n = r Loop While r 0 Print 最大公约数=, m Print 最小公倍数=, x / m End Sub 6.4 循环的嵌套——多重循环结构 如果在一个循环内完整地包含另一个循环结构，则称为多重循环或循环嵌套，嵌套的层数可以根据需要而定。 嵌套一层称为二重循环，嵌套二层称为三重循环。 前面介绍的几种循环控制结构可以相互嵌套。 循环的嵌套举例 【例6-6】打印九九乘法表。 Private Sub Form_Click() For i = 1 To 9 For j = 1 To i Print Tab((j - 1) * 5 + 1); i * j; Next j Print Next i E