第6章循環结结构.docVIP

第6章 循环结结构 在Visual Basic程序的三种结构中,循环结构是一种重要结构。 循环的本质：不断地重复某种动作。 对计算机程序而言，循环必须具备两个重要因素： 1. 在一定的条件下，重复执行一组语句 2. 必然出现不满足条件的情况，使循环终止 VB中提供了两种类型的循环语句：一种是计数循环语句；另一种是条件循环语句。Visual Basic 支持的循环结构有： ☆ Do…Loop ☆ For...Next ☆ While…Wend 重点掌握： Do…Loop、 For.Next、 While…Wend等前三种循环 6.1 Do…Loop循环结构 6．1．1 当型循环结构 Do…Loop循环用于事先不知道循环次数的循环结构。此种语句四种语法格式： ⑴ . Do While … Loop 语句 ⑵ . Do … Loop While 语句 ⑶ . Do Until …Loop 语句 ⑷ . Do …Loop Until 语句 ⑴. Do While … Loop语句 语法格式： Do While 〈条件表达式〉 循环体〉 [Exit Do] 〈循环体〉 Loop 说明： ① 条件表达式可以是一个逻辑表达式，也可以是一个关系表达式，其值应是逻辑型。 ② Do While和Loop应成对出现。 ③ 循环体中要有控制循环的语句，以避免出现死循环。 ④ 由于该循环的特点是先判断条件，然后再决定是否要执行循环体里的语句。所以，这种循环可以一次也不执行循环体。 ⑤ Exit Do 表示当遇到该语句时，强制退出循环，执行Loop后的下一条语句 例6-1 求1+2+3+……+100 Private Sub Form_Click() Dim sum, n As Integer sum = 0: n = 1 Do While n = 100 sum = sum + n n = n + 1 Loop Text1.Text = Str(sum) End Sub 例6-2 计算若干各个学生每门课的平均平均分。 Private Sub Form_Click() Dim score, sum, N As Integer Dim average As Single N = 0 sum = 0 score = InputBox(请输入第 N + 1 个同学的成绩, 成绩输入) Do While score -1 sum = sum + score N = N + 1 score = InputBox(请输入第 N + 1 个同学的成绩, 成绩输入) Loop average = sum / N Print 平均分=; average End Sub 例6-2a 使用exit do的程序。 求出 Private Sub Form_Click() Dim n As Integer Dim s As Integer n = 1 s = 0 Do While s 1000 s = s + n * n n = n + 1 Loop Print s=; s, n=; n End Sub 6．1．2 直到型循环语句 Do … Loop While语句 语法格式1： Do 〈循环体〉 [Exit Do] 〈循环体〉 Loop While〈条件表达式〉 语法格式2： Do 〈循环体〉 [Exit Do] 〈循环体〉 Loop until〈条件表达式〉 ① 至少要执行循环体一次。 ② 与Do While循环的区别： Do While循环先测试条件是否成立，只有成立才执行循环；而该循环先执行循环体，后测试条件是否成立。 例6-3 用直到型循环实现1+3+5+7+……+999，当和大于5000时退出。 Private Sub Command1_Click() Dim s, n As Integer s = 0: n = 1 Do s = s + n If s 5000 Then Exit Do n = n + 2 Loop While n = 999 Print s=; s End Sub Private Sub Command2_Click() Dim s, n As Integer s = 0: n = 1 Do s = s + n If s 5000 Then Exit Do n = n + 2 Loop Until n 999 Print s=; s End Sub 例6-4 人口增长问题。 Private Sub Command1_Click() Dim p As Doub