循环结构程序设计

1、.第5章 循环结构程序设计循环是指在程序设计中，从某处开始有规律地反复执行某一程序块的现象。例如:计算2n 。如果这样计算：s=1s=s*2 s=s*2s=s*2很显然,这不是解决问题的方法.在程序设计中要解决此问题,就需使用循环结构语句使用了循环结构编写程序，可以简化程序；避免重复的不必要的工作；提高编程效率。VB提供三种不同风格的循环结构,包括: l 当循环(While-Wend循环) l Do循环(Do-Loop循环) l FOR循环(For-Next 循环)其中For循环按规定的次数执行循环体,而当循环和Do循环则是在给定的条件满足时执行循环体。§1、WhileWend语句（

2、当循环语句）1、格式：While <条件> <语句序列>Wend上述格式中，“条件”为一布尔表达式，用以指定循环条件。2、功能：根据条件进行判断，决定是否执行循环体。3、执行过程： 如果“条件”为True(非0)，执行由“语句序列”组成的循环体，当遇到Wend语句时，控制语句返回到While语句，并对“条件”进行测试，如果仍为True，则重复上述过程。如果“条件”为False，则不再执行循环体内容，而转去执行Wend后继语句，跳出循环。执行流程如图所示。4、举例例5_1_1 计算2n程序：Dim n#, s#, k&n = InputBox("inpu

3、t n")s = 1k = 1While k <= n s = s * 2 k = k + 1WendPrint "s=" s例5_1_1a 计算程序：Dim n#, s#, x&n = InputBox("input n")s = 0x = 1While x <= n s = s + x x = x + 1WendPrint "s=" s-例5_1_1b 计算Dim n#, s#, x&n = InputBox("input n")s = 1x = 1While x <

4、= n s = s * x x = x + 1WendPrint "s=" s例5_1_2 从键盘上输入一串字符(每次输入一个字符)，以“!”结束，并对输入字符中的字母个数和数字个数进行统计。分析：需要输入的字符个数没有指定，停止计数的条件是输入字符为“!”，所以用whilewend语句是合适的。程序中，变量ch接受键盘输入的字符，变量T1, T2分别用于统计字母，数字的个数。Private Sub command1_click() Dim ch$, T1%, T2% Cls T1 = 0: T2 = 0 While ch <> "!" ch

5、 = InputBox("请输入一个字符:") If ch >= "a" And ch <= "z" Or ch >= "A" And ch <= "Z" Then 'if Lcase(ch)>="a" and Lcase(ch)<="z" T1 = T1 + 1 ElseIf ch >= "0" And ch <= "9" Then T2 = T2 + 1 E

6、nd If Wend Print "字母个数:" T1 Print "数字个数:", T2 End Sub5、说明1. WhileWend循环语句先对“条件”进行测试，然后才决定是否执行循环体。如果进入循环体之前，“条件”为False，则一次也不执行循环。因此，进入循环体之前应正确设置循环条件。2. 循环体内应该有修改循环条件的语句，使得循环能正常执行和终止。否则，会出现死循环，这是程序设计中容易出现的错误，应当尽量避免。一旦出现“死循环”现象，可按下“Ctrl+Break”键强行退出。§2、DoLoop语句Do 循环有两种：1、 先判断后执行

7、Do While|Until 条件.Loop 2、先执行后判断Do.Loop While|Until 条件一 、先判断条件形式1格式：Do While| Until <条件> <语句块> Loop2 . 功能：While 当条件为 True 时循环。 Until 当条件首次为 True 时退出。3. 举例例5_2_1 用Do while Loop 改写 例5_1_1程序：n=val(inputbox(“input n”)s=1k=1Do while k<=n s=s*2 k=k+1Loopprint “s=”;s可以看出，Do While Loop 和 While

8、 . Wend 语句功能相同。例5_2_3 计算S=1+2+3+ 100改写 例5_1_1a程序：Private Sub Form_Activate()Dim s&, x&s = 0x = 1Do While x <= 100 也可以用Do Until x > 100s = s + xx = x + 1LoopPrint "s=" sEnd Sub例 5_2_2 输入一个正整数（3），判断其是否为一素数。分析：所谓素数是指除了1和该数本身外，不能被任何整数整除的数。可以依次用2X-1作除数去除X (X>=3)，若X不能被其中任何一个数整除，

9、则X为素数。程序：Private Sub Command1_Click()Dim x&Clsx = InputBox("输入一个整数X，（X>=3）")flag = Truei = 2Do While i <= x 1 理论证明判断至即可，即SQR(x) If x Mod i = 0 Then flag = False i = i + 1LoopIf flag Then Print x & "是一个素数。"Else Print x & "不是一个素数。"End IfEnd Sub例5_2_4 求SI

10、N(x)的级数展开的值。其中： x x3 x5 x7 Y=sinx= - + - + 1! 3! 5! 7! 有以下关系：Pn= Pn-1 (n=2,) P1=X 程序：Private Sub Form_Activate()Dim y#, x#, p#, n%x0 = Val(InputBox("输入角度值X")n = InputBox("输入N的值")x = x0 * 3/ 180 将角度值转换为弧度值p = xy = pi = 2Do While i <= np = p * (-x * x / (2 * i - 1)

11、* (2 * i - 2)y = y + pi = i + 1LoopPrint "sin(" & x0 & ")=" & yEnd Sub例5_2_5打印图形，如下： * * * * *程序：Private Sub Form_Activate()FontSize = 30i = 1Do While i <= 5 Print Tab(10 - i); String(2 * i - 1, "*") i = i + 1 LoopEnd Sub例5_2_6打印图形，如下： 一江春水向东流 江春水向东流 春水向东

12、流 水向东流 向东流 东流 流程序：Private Sub Form_Activate()FontSize = 20A = "一江春水向东流"b = Len(A)Do While b > =1 也可用语句Do Until b <1 Print Tab(20 - 2 * b); Right(A, b) '函数Left、right、mid、len把一个汉字或全角字符中非字母和数字的字符视为一个字符位， '但是函数Tab、Space仍把一个汉字作为两个字符位 b = b - 1LoopEnd Sub二、后判断条件形式1格式：Do <语句块>

13、 Loop While| Until <条件> 2. 功能：至少执行一次循环。While 当条件为 True 时循环。 Until 当条件为 True 时退出。3举例例5_2_7 例5_2_3 计算S=1+2+3+ 100程序:Private Sub Form_Activate()Dim s&, x&s = 0x = 1Dos = s + xx = x + 1Loop While x <= 100Print "s=" sEnd Sub例5_2_8输入有效数字位数，利用下韦达公式（法国数学家1593年）计算圆周率的近似值=分析：分母通项公式为

14、： Pn= 前n项的乘积为： Yn=2 Yn-1 /Pn ( n=2,3,. ) P1=0 , Y1=2 程序：(使用迭代法，且精确至|YnYn-1|<)Private Sub Command1_Click()Dim p#, y#, s#, m%Clsm = InputBox("输入有效数字位数")p = 0: y = 2Dos = yp = Sqr(2 + p)y = 2 * y / pLoop Until Abs(y - s) < 10 -mf = String(m, "#")Print "有效位数到" & m

15、 & "位的的近似值是：" _ & vbCrLf & Format(y, "0." & f)End Sub例5_2_9 求两个正整数M和N的最大公约数。（龚P91例4.12）分析：采用“辗转相除法”的思想。（南宋 秦九韶）（1） 先将，中的较大数a，较小数b（2） 用大数a除以小数b，余数为R；（3） 若R=0，则b就是它们的最大公约数；若R0，则ab，bR，重复上（2）（3）过程，直至R=0（4） 最后得到的a就是最大公约数。程序：Private Sub Command1_Click()Dim a, b, r, m&am

16、p;, n&Clsm = InputBox("M=")n = InputBox("N=")If m < n Then t = m: m = n: n = t 该句可省略a = m: b = nDor = a Mod ba = bb = rLoop until r = 0Print m; "和" n; "的最大公约数是：" aEnd Sub§3 ForNext 语句For循环也称计数循环。常用于循环次数已知的程序结构中。1、格式: For <循环变量>=<初值> To

17、<终值> Step <步长> <循环体> Next <循环变量> 2、说明: (1). For格式中有多个参量,这些参量的含义如下: ·循环变量: 亦称"控制变量" 。它是一个数值变量,但不能是下标变量或记录元素。 ·初值: 循环变量的初值,它是一个数值表达式。 ·终值:循环变量的终值,它也是一个数值表达式。 ·步长: 循环变量的增量,是一个数值表达式。其值可以是正数( 递增循环)或负数(递减循环),但不能为0。如果步长为1, 则可略去不写。 ·循环体: 在For语句和Next

18、语句之间的语句序列, 可以是一个或多个语句。 · Next: 循环终结语句,在Next后面的"循环变量"与For语句中的" 循环变量"必须相同。 (2). For循环语句的执行过程是: 首先把"初值"赋给"循环变量", 接着检查"循环变量"的值是否超过终值,如果超过就跳出循环, 执行Next后继语句; 否则执行"循环体",然后把"循环变量+步长"的值赋给"循环变量",重复上述过程。 这里所说的"超过"有两种

19、含义,即大于或小于。当步长为正值时, 检查循环变量是否大于终值;当步长为负值时,判断循环变量的值是否 小于终值。3、举例例5_3_1 例5_2_3 计算S=1+2+3+ 100例5_3_2 例5_2_5打印三角形图形例5_3_3求斐波那契数列的前40项值。即：1，1，2，3，5，8，13，程序：Private Sub Form_Activate()Dim f&, f1&, f2&f1 = 1f2 = 1Print f1, f2,For i = 3 To 40 f = f1 + f2 f1 = f2 f2 = f Print f, If i Mod 5 = 0 Then

20、PrintNext iEnd Sub例5_3_4. 梯形法求定积分 I= y y=f(x) x a b分析：求定积分从几何概念上求f(x)下的面积，将a,b均分为n等份，则有n+1个分点： a=x0<x1<<xn=b ;每两个邻点间距：h=(b-a)/n ；每个点的函数值为： y0=f(a) y1=f(a+h) yn-1=f(a+(n-1)h) yn=f(b)把每个小分段都看成小梯形，分别算出它们的面积，然后相加，就近似求得积分I。即： 试编写求半径为1的园面积。I= 4 dX的程序。程序：Private Sub Form_Activate()Dim n&, a%,

21、b%, k&, i#, h!n = Val(InputBox("n=")b = 1a = 0h = (b - a) / ni = (Sqr(1 - a * a) + Sqr(1 - b * b) / 2For k = 1 To n - 1 x = a + k * h i = i + Sqr(1 - x * x)Next ki = 4 * i * hPrint "i=" iEnd Sub§4、多重循环与循环的退出一、 多重循环在一个循环体中嵌套另一个循环结构，称为多重循环。VB没有具体规定嵌套层数。但是要注意嵌套时，不能交叉嵌套。举例例5

22、_4 计算S= 程序：Private Sub Command1_Click()Dim n#, m#, i#, j#, s#n = InputBox("n=")m = InputBox("m=")s = 0For i = 1 To n For j = 1 To m s = s + i * jNext j, iPrint sEnd Sub例5_4_1 “水仙花数 ”是指一个3位数，其各位数的立方和等于该数。例如：153=13+53+33 ，求100到999之间的所有水仙花数。程序：Private Sub Form_Activate()For i = 1 To

23、 9 For j = 0 To 9 For k = 0 To 9 p1 = i * 100 + j * 10 + k p2 = i 3 + j 3 + k 3 If p1 = p2 Then Print i; j; k Next k Next jNext iEnd Sub例5_4_2 编写输出九九乘法口诀表程序。（龚P92例4.13）程序：Private Sub Form_Activate()ClsFor x = 1 To 9 Print Tab(x - 1) * 10 + 2); For y = x To 9 n = x & "*" & y & &

24、quot;=" & x * y Print Format(n, "!"); Next y PrintNext xEnd Sub例5_4_3(例5_3_2 例5_2_5打印三角形图形) 例5_4_6(龚P98例4.16)百元买百鸡问题。假定公鸡每只2元，母鸡每只3元，小鸡每只5角。现有一百元钱买一百只鸡，编程列出所有方案。分析：设母鸡、公鸡、小鸡各为X、Y、Z。根据题意，有：X+Y+Z=1003*X+2*Y+Z/2=100X<=33Y<=50程序：（枚举法）Private Sub Form_Activate()Dim x&, y&, z&Print "母鸡", "公鸡", "小鸡"For x = 0 To 33 For y = 0 To 50 z = 100 - x - y If 3 * x + 2 * y + z / 2 = 100 Then Print x, y, z End If Next yNext xEnd Sub二、 循环的退出除了