第四章程序控制结构重点解析.ppt

4.4.3 While-Wend循环 While语句格式如下： While 条件 [循环体] Wend While语句说明 While循环就是当给定的“条件”为True时，执行循环体，否则执行Wend 语句后的语句。因此While循环也叫当型循环。 4.4.3 While-Wend循环 例： x=1 While x5 Print x， x=x+1 Wend 该程序段的执行结果是： 1 2 3 4 4.4.3 While-Wend循环 While循环的几点说明 （1）While 循环语句本身不能修改循环条件，所以必须在While…Wend语句的循环体内设置相应语句，使得整个循环趋于结束，以避免死循环。 （2）While循环语句先对条件进行判断，然后才决定是否执行循环体。如果开始条件就不成立，则循环体一次也不执行。 （3）凡是用For…Next循环编写的程序，我们都可以用While…Wend语句实现。反之，则不然。 4.4.4 循环语句嵌套 在一个循环体内又包含了一个完整的循环，这样的结构称为多重循环或循环的嵌套。 二重循环的执行过程是外循环执行一次，内循环执行一遍，在内循环结束后，再进行下一次外循环，如此反复，直到外循环结束。 在程序设计时，许多问题要用二重或多重循环才能解决。如计算： s=1!+2!+…n! 我们前面学过的For循环、While循环、Do循环都可以互相嵌套，如在For…Next的循环体中可以使用While循环，而在While…Wend的循环体中也可以出现For循环等。 4.4.4 循环语句嵌套 例4.17 计算1！+2！+…+5！ 程序代码： s = 0 For i = 1 To 5 s = s + t Next Print s t = 1 For j = 1 To i t = t * j Next 4.4.4 循环语句嵌套 例4.16 打印乘法表。 注意： (1)内、外循环变量不能同名。 (2)外循环必须完全包含内循环，不能出现交叉。 程序代码： For i = 1 To 9 For j = 1 To I s = i × j = i * j Print Tab((j - 1) * 8 + 1); s; Next j Print Next i 4.5 程序示例 例4.18 从一个由字母、数字组成的字符串中找出所有大写字母并逆序输出。 方法1： Private Sub Command1_Click() For i = 1 To Len(Text1.Text) t = Mid(Text1.Text, i, 1) If t = A And t = Z Then Text2.Text = t + Text2.Text End If Next End Sub 分析：字符串逆序连接有两种方法:一种正序取倒序连接;另一种是倒序取正序连接。 4.5 程序示例 例4.18 从一个由字母、数字组成的字符串中找出所有大写字母并逆序输出。 方法2： Private Sub Command1_Click() For i = Len(Text1.Text) To 1 Step -1 t = Mid(Text1.Text, i, 1) If t = A And t = Z Then Text2.Text = Text2.Text + t End If Next End Sub 分析：字符串逆序连接有两种方法:一种正序取倒序连接;另一种是倒序取正序连接。 4.5 程序示例 例4.19 随机生成100个两位数，统计其中小于等于40、大于40小于70和大于等于70的数的个数。 程序代码： For i=1 To 100 x=Int(Rnd*90)+10 If x=