第5章VB结构化程序设计.ppt

值得注意的是，关键字While?用于指明条件成立时执行循环体，直到条件不成立时结束循环；而Until则正好相反，条件不成立时执行循环体，直到条件满足才退出循环。 5.5 循环的嵌套 在一个循环体内又包含了一个完整的循环，这样的结构称为多重循环或循环的嵌套。 在程序设计时，许多问题要用二重或多重循环才能解决。 我们前面学过的For循环、While循环、Do循环都可以互相嵌套。 二重循环的执行过程是外循环执行一次，内循环执行一遍，在内循环结束后，再进行下一次外循环，如此反复，直到外循环结束。 打印九九乘法表。 分析：打印九九乘法表，只要利用循环变量作为乘数和被乘数就可以方便的解决。 程序如下： Private Sub Form_Click() Dim i%, j%, str$ Print Tab(35); "九九乘法表" For i = 1 To 9 For j = 1 To 9 str = i & "×" & j & "=" & i * j Print Tab((j - 1) * 9 + 1); str; Next j Print Next i End Sub 程序运行结果 对于循环的嵌套，要注意以下事项： （1）在多重循环中，各层循环的循环控制变量不能同名。但并列循环的循环控制变量名可以相同，也可以不同。 （2）外循环必须完全包含内循环，不能交叉。 下面的程序段都是错误的： For I=1 To 100 For I=1 To 100 For J=1 To For I=1 To 10 …… …… Next I Next I Next J Next I （a）内外循环交叉 （b）内外循环控制 变量同名 5.6 循环的退出 在某些情况下，为了减少循环次数或便于程序调试，可能需要提前强制退出循环。VB为For…Next和Do…Loop循环语句提供了相应的强制退出循环的语句。 1．Exit For 用于For…Next循环，在循环体中可以出现一次或多次。当系统执行到该语句时，就强制退出当前循环。常见的使用方式是： If 条件 Then Exit For 即当循环执行过程中满足某个条件时，就执行循环退出语句结束循环。 2．Exit Do 用于Do…Loop循环，具体用法同Exit For一样。例如，我们要在1000~10000之间找一个既能被3整除又能被7整除的数，则可用下面的程序实现。 Private Sub Form_Click() Dim n% n = 1000 Do While n <= 10000 If n Mod 3 = 0 And n Mod 7 = 0 Then Print n Exit Do End If n = n + 1 Loop End Sub 具体执行情况如下： 第几次循环 n 与终值比较 执行循环体否 1 1 <10 执行 2 4 <10 执行 3 7 <10 执行 4 10 =10 执行 5 13 >10 停止执行 上面程序的执行结果为： 1 4 7 10 3．其它说明 （1）循环次数计算公式为： 循环次数=Int（（终值-初值）/步长）+1 （2）循环控制变量通常用整型数，也可以用单精度数或双精度数。值得注意的是，无论初值、终值和步长值是什么数值类型，最后都要转换成循环控制变量的类型。 【例】求N！（N为自然数）。 分析：由阶乘的定义，我们可以得出N！=1*2*…*(N-2)*(N-1)*N=(N-1)！*N，也就是说，一个自然数的阶乘，等于该自然数与前一个自然数阶乘的乘积， 程序如下： Private Sub Form_Click() Dim I%, f#, n% n= InputBox("输入一个自然数：", "输入提示", "10") f = 1 For I = 1 To n f = f * I Next I Print n; "!="; f End Sub 【