第5章循环结构程序设计.docxVIP

第 5 章 循环结构程序设计 循环是指在程序设计中， 从某处开始有规律地反复执行某一程序块的 现象。例如 :计算 2n 。 如果这样计算： s=1 s=s*2 s=s*2 s=s*2 很显然 ,这不是解决问题的方法 .在程序设计中要解决此问题 ,就需 使用循环结构语句 使用了循环结构编写程序， 可以简化程序；避免重复的不必要的工作； 提高编程效率。 VB 提供三种不同风格的循环结构 ,包括 : 当循环 （While-Wend 循环 ） Do 循环 （Do-Loop 循环） FOR 循环（For-Next 循环） 其中 For 循环按规定的次数执行循环体 ,而当循环和 Do 循环则是 在给定的条件满足时执行循环体。 §、While…Wend语句（当循环语句） 1、 格式： While ＜条件 ＞ ＜语句序列＞ Wend 上述格式中，“条件”为一布尔表达式，用以指定循环条件。 2、 功能 ：根据条件进行判断，决定是否执行循环体。 3、 执行过程 ： 如果“条件”为True（非0）,执行由“语句序列”组成的循环体， 当遇到Wend语句时，控制语句返回到 While语句，并对“条件”进 行测试，如果仍为True，贝憧复上述过程。如果“条件”为 False, 则不再执行循环体内容，而转去执行 Wend后继语句，跳出循环。 执行流程如图所示 4、举例 例5_1_1计算2n 程序： Dim n#, s#, k& n 二 In putBox("i nput n") s = 1 k = 1 While k <= n s = s * 2 k = k + 1 Wend Prin t "s="; s 循环计算D 条件（K<=5） 程序执行情况 S 值 K 值 初始值 1 1 1W5 荷足条件，执行循环体语句 2 2 2W5 満足条件.执行循环体语句 4 3 3=^5 满足条件，执行循环体语句 8 4 4=^5 满足条件，执行循环体语句 16 5 满足条件，执行循环悴落句 32 6 6>5 不满足循环，跳出傭环 例 5_1_1a 计算 x = 1 + 2 + 3 + X/ 程序： Dim n#, s#, x& n 二 In putBox("i nput n") s = 0 x = 1 $ = ' “1+2+3 + 4+、 While x <= n s = s + x x = x + 1 Wend 条件（x＜韦） 程序执斤情况 $值 XH 初始值 0 1 1<=5 满足条件，执行龍环体语句 1 ■ 2<=5 满足条件’执辆环体语句 3 5 3=5 满足条件，执行链环体语句 6 4 4=5 满足条件’执行龜环体语句 10 耳 ■ Prin t "s="; s n 例 5_l_lb 计算 S = n x=n ! = 1*2*3* XT Dim n#, s#, x& n 二 In putBox("i nput n") While x <= n x = x + 1 Wend 条件(X<=5) 程序执行情况 sfi X值 初始值 1 1 1<=5 满足条件，执体语甸 1 2 2<=5 满足条件，执打施环林语句 2 5 3<=5 論足条件，执行循环体语句 6 4 4<=5 满足条件，执fil环体语句 24 5 5<=5 满足条件，执fflS环体语句 120 6 6>5 不满足条件，跳蛹环， 执行硕皿|后继语句 5 s 二 JP 二/二 1*2*站4邛 存i Print "s="; s 例 5_1_2 从键盘上输入一串字符 ( 每次输入一个字符 ) ，以“! ”结束， 并对输入字符中的字母个数和数字个数进行统计。 分析：需要输入的字符个数没有指定，停止计数的条件是输入字 符为“！”所以用while…we nd语句是合适的。 程序中，变量 ch 接受键盘输入的字符， 变量 T1, T2 分别用于统计 字母，数字的个数。 Private Sub command1_click() Dim ch$, T1%, T2% Cls T1 = 0: T2 = 0 While ch <> "！" ch = 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 End If Wend Print "字母个数 :"; T1 Print "数字个数 :", T2 End Sub 5、说明 While…Wend循环语句先对“条件”进行测试，然后才决定是 否执行循环体。如果进入循环体之前，“条