第5章 循环时结构关程序设计.docVIP

第5章 循环结构程序设计 循环是指在程序设计中，从某处开始有规律地反复执行某一程序块的现象。例如:计算2n 。 如果这样计算： s=1 s=s*2 s=s*2 … s=s*2 很显然,这不是解决问题的方法.在程序设计中要解决此问题,就需使用循环结构语句 使用了循环结构编写程序，可以简化程序；避免重复的不必要的工作；提高编程效率。 VB提供三种不同风格的循环结构,包括: 当循环(While-Wend循环) Do循环(Do-Loop循环) FOR循环(For-Next 循环) 其中For循环按规定的次数执行循环体,而当循环和Do循环则是在给定的条件满足时执行循环体。 §1、While…Wend语句（当循环语句） 1、格式：While 条件 语句序列 Wend 上述格式中，“条件”为一布尔表达式，用以指定循环条件。 2、功能：根据条件进行判断，决定是否执行循环体。 3、执行过程： 如果“条件”为True(非0)，执行由“语句序列”组成的循环体，当遇到Wend语句时，控制语句返回到While语句，并对“条件”进行测试，如果仍为True，则重复上述过程。如果“条件”为False，则不再执行循环体内容，而转去执行Wend后继语句，跳出循环。 执行流程如图所示。 4、举例 例5_1_1 计算2n 程序： Dim n#, s#, k n = InputBox(input n) s = 1 k = 1 While k = n s = s * 2 k = k + 1 Wend Print s=; s 例5_1_1a 计算 程序： Dim n#, s#, x n = InputBox(input n) s = 0 x = 1 While x = n s = s + x x = x + 1 Wend Print s=; s ------------------------------------------------------------------------------------ 例5_1_1b 计算 Dim n#, s#, x n = InputBox(input n) s = 1 x = 1 While x = n s = s * x x = x + 1 Wend Print s=; s 例5_1_2 从键盘上输入一串字符(每次输入一个字符)，以“!”结束，并对输入字符中的字母个数和数字个数进行统计。 分析：需要输入的字符个数没有指定，停止计数的条件是输入字符为“!”，所以用while…wend语句是合适的。 程序中，变量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循环语句先对“条件”进行测试，然后才决定是否执行循环体。如果进入循环体之前，“条件”为False，则一次也不执行循环。因此，进入循环体之前应正确设置循环条件。 循环体内应该有修改循环条件的语句，使得循环能正常执行和终止。否则，会出现死循环，这是程序设计中容易出现的错误，应当尽量避免。一旦出现“死循环”现象，可按下“Ctrl+Break”键强行退出。 §2、Do…Loop语句 Do 循环有两种： 先判断后执行 Do While|Until 条件 ... Loop 2、先执行后判断 Do ... Loop While|Until 条件 一 、先判断条件形式 1．格式：Do [ While| Until 条件 ] 语句块 Loop . 功能：While 当条件为 True 时循环。 Until 当条件首次为 True 时退出。 举例 例5_2_1 用Do while …… Loop 改写 例5_1_1 程序：n=val(inputbox(“input n”)) s=1 k=1 Do while k=n s=s*2