VB程序设计PPT第5章-VB控制结构.pptVIP

2. Do…Loop循环语句(用于控制循环次数未知) 形式1： Do { While|Until }条件 语句块 [Exit Do 语句块] Loop 形式2： Do 语句块 [Exit Do 语句块] Loop { While|Until} 条件 例5.10(补)我国有13亿人口，按人口年增长0.8%计算，多少年后我国人口超过26亿。 分析：解此问题可利用Do … Loop循环求得，程序如下： Private Sub Command1_Click() x = 13 n = 0 Do While x 26 x = x * 1.008 n = n + 1 Loop Print 年数：; n, 人口（亿）：; x End Sub 例5.11(补) 用辗转相除法求两自然数m，n的最大公约数。 分析：求最大公约数的算法思想： (1)对于已知两数m，n，使得mn； (2) m除以n得余数r； (3)若r=0，则n为最大公约数结束；否则执行(4)； (4)m?n，n?r，再重复执行(2)。 例 求 m=14 ,n=6 的最大公约数. If m n Then t = m: m = n: n = t r=m mod n Do While (r 0) m=n n=r r= m mod n Loop Print 最大公约数=“; n m n r 14 6 2 6 2 0 辗转相减法 m=m-n mn n=n-m nm m、n为公约数 m=n Do While m n m n If m n Then 14 6 m = m – n 8 6 Else 2 6 n = n – m 2 4 End If 2 2 Loop 3.While-Wend结构 形式如下： While 条件 [循环体] Wend 功能：当给定的“条件”为True时，执行循环体；否则，跳出循环体，执行Wend后面的语句。 注意：（1）该循环结构先测试条件，然后决定是否执行循环体。（2）如果“条件”总成立，则构成死循环，所以，在循环体中应该包含有修改“条件”的操作，使循环能正常结束。（3）当循环可以嵌套，不允许交叉。每个Wend和最近的While相匹配。 例5.12(补) 小红今年12岁，她父亲比她大30岁，编程计算她的父亲在几年后比她年龄大一倍，那时父女的年龄各为多少？ 代码如下： Private Sub Form_Click() Dim age As Integer age = 12 While age * 2 age + 30 age = age + 1 Wend Print 经过; age - 12; 年 Print 小红父女的年龄分别是：; age + 30; 和; age End Sub 4. 循环的嵌套 一个循环体内又包含了一个完整的循环结构称为循环的嵌套. 例5.13(补)打印九九乘法表. For i = 1 To 9 For j = 1 To 9 se = i × j = i * j Print Tab((j - 1) * 9 + 1); se; Next j Print Next i 思考：打印上三角或下三角程序如何改动？要打印下三角? For j = 1 To i For ii =1 To 10 For jj=1 To 20