Visual Basic程序设计第5章.pptVIP

While p 20 p = p * (1 + r) I = I + 1 Wend Print I; 年后，我国人口将达到; p; 亿 End Sub 5.4 Do循环 与前面介绍的While循环相比，Do循环具有更强的灵活性，它可以根据需要决定是条件满足时执行循环体，还是一直执行循环体直到条件满足。Do循环有两种语法形式。 格式1： Do {while|until} 条件 [循环体] Loop 　 说明： 格式1是先判断，后执行。其执行过程如图5-8、5-9所示。 图5-8 Do While …Loop执行流程 图5-9 Do Until …Loop执行流程 格式2： Do [循环体] Loop {while|until} 条件 说明： 格式2是先执行，后判断。其执行过程如图5-10、5-11所示。 图5-10 Do … Loop While执行过程 图5-11 Do … Loop Until执行过程 值得注意的是，关键字While?用于指明条件成立时执行循环体，直到条件不成立时结束循环（如图5-8、5-10所示）；而Until则正好相反，条件不成立时执行循环体，直到条件满足才退出循环(如图5-9、5-11所示）。 【例5.6】求。 我们用格式1实现，程序如下： Private Sub Form_Click() Dim s%, I% I = 1 s = 0 第几次循环 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）循环控制变量通常用整型数，也可以用单精度数或双精度数。值得注意的是，无论初值、终值和步长值是什么数值类型，最后都要转换成循环控制变量的类型。 【例5.1】求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 【例5.2】判断用户输入的数是否为素数。 分析：素数的特征是只能被1和它自身整除。假设用户输入的正整数为N，我们只需确定在大于1小于等于的正整数中是否存在能整除N的数。如果有，则N就不是素数；如果没有，则N就是素数。 程序如下： Private Sub Form_Click() Dim n%, flag%, I%, k% n = InputBox(请输入一个正整数（≥3）) k = Int(Sqr(n)) flag = 0 For I = 2 To k If n Mod I = 0 Then flag = 1 Next I If flag = 0 Then Print n; 是一个素数 Else Print n; 不是素数 End If End Sub