vb第6章_循环结构.pptVIP

6.1 循环概述 6.2 For循环 6.3 While循环 6.4 Do循环 6.5 循环的嵌套 6.6 循环的退出 例如：计算1-100所有奇数的平方和。用顺序结构来实现： 用循环语句解决上面的问题，程序非常简短： Private Sub Form_Click() Dim s, x% s = 0 For x = 1 To 99 Step 2 s = s + x ^2 Next x Print 1~100所有奇数的平方和=; s End Sub VB提供了三种不同风格的循环语句，它们分别是： （1）For…Next语句 （2）While…Wend语句 （3）Do…Loop语句 我们将对这三种循环语句逐一介绍 例: 求S = 1 + 2 + 3 + … 10，把结果显示在窗体上。 分析： 例6.1: 求N！（N为自然数） 分析：由阶乘的定义，我们可以得出N！=1*2*…*(N-2)*(N-1)*N=(N-1)！*N，也就是说，一个自然数的阶乘，等于该自然数与前一个自然数阶乘的乘积。 例6.2:判断用户输入的数是否为素数。 分析：素数的特征是只能被1和它自身整除。 技巧：假设用户输入的正整数为n，我们只需确定在大于1小于等于 的正整数中是否存在能整除n的数。如果有，则n就不是素数；如果没有，则n就是素数。 例如：15 17 [2,3] [2,4] 程序如下： Private Sub Form_Click() Dim n%, i%, k%, flag% n = InputBox(请输入一个正整数（≥3）) End Sub For t = 1 To 3 If t = 1 Then a = 3 If t = 2 Then a = 2 If t = 3 Then a = 1 Print a; Next t Print t A. 3 3 3 3 B. 1 2 3 4 C. 3 2 1 4 D. 1 1 1 4 6.3 While循环 前面我们介绍了For…Next循环，它适合于解决循环次数事先能够确定的问题。 对于只知道控制条件，但不能预先确定需要执行多少次循环体的情况，我们可以使用While循环。 1、格式： While 条件 [循环体] Wend 阅读些列程序段： x=1 While x10 Print x, x=x+2 Wend （2）While循环语句本身不能修改循环条件，所以必须在循环体内设置相应的语句，修改循环变量，使得整个循环趋于结束，以避免死循环。 s=0 For i = 1 To 10 Step 1 s = s + i Next i Print s= ; s 例6.4 假设我国现有人口13亿，若年增长率为1.4%，试计算多少年后我国人口增加到或超过18亿。 人口计算公式为：p=y(1+r)n y为人口初值，r为年增长率，n为年数。 6.4 Do 循环 与前面介绍的While循环相比，Do循环具有更强的灵活性，它可以根据需要决定是条件满足时执行循环体，还是一直执行循环体直到条件满足。 Do循环有两种语法形式 格式1： Do {while|until} 条件 [循环体] Loop 格式2： Do [循环体] Loop {while|until} 条件 【注意】： 关键字 While?用于指明条件成立时执行循环体，直到条件不成立时结束循环 关键字 Until 用于指明条件不成立时执行循环体，直到条件成立时退出循环。 例6.5: 求S = 1 + 2 + 3 + … + 10。 用 Do While …Loop 实现，程序如下： Private Sub Form_Click() Dim s%, I% s = 0