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

Private Sub Command1_Click() Dim Score As Single, PassN As Integer, n As Integer Dim i As Integer, Sum As Single Text1 = : Text2 = : Text3 = Sum = 0: PassN = 0: n = 0 For i = 1 To 50 统计人数大于50时停止循环 Score = Val(InputBox(请输入学生成绩:)) If Score 0 Then 输入负数时停止循环 Exit For Else If Score = 60 Then PassN = PassN + 1 统计及格人数 n = n + 1 统计总人数 Sum = Sum + Score 统计总分 End If Next i Text1.Text = Str$(n) Text2.Text = Str$(PassN) Text3.Text = Str$(Sum / n) End Sub 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）当