Visual-Basic循环结构程序设计.ppt

计算机软件技术基础 选择结构程序设计： If…Then 语句（单分支结构） If...Then…Else 语句（双分支结构） If…Then …Else If 语句（多分支结构）结构 Select Case 语句（多分支结构） 格式：Select Case 测试变量或表达式 [Case 表达式表1 [语句块1]] [Case 表达式表2 [语句块2]] …… [Case 表达式表n [语句块n]] [Case Else [语句块n+1]] End Select 格式：Do While 〈条件表达式〉 〈循环体〉 Loop Private Sub Form_Click() Dim i As Integer i = 1 Do While i <= 20 Print i i = i + 1 Loop End Sub 格式： Do 〈循环体〉 Loop While〈条件表达式〉 Private Sub Form_Click() Dim i As Integer i = 1 Do Print i i = i + 1 Loop While i <= 20 End Sub 格式： Do Until〈条件表达式〉 〈循环体〉 Loop Private Sub Form_Click() Dim i As Integer i = 1 Do Print i i = i + 1 Loop Until i > 20 End Sub 在For语句和Next语句之间的语句序列称为循环体，可以是一个或多个语句。 Next是循环终端语句，在Next后面的循环变量与For中的循环变量必须相同。 当循环是单层循环时，Next后面的循环变量可以不写。 例 3.18 求N的阶乘 N!=1*2*3*······*(N-1)*N Private Sub Form_Click() Dim s As Single Dim n As Integer s = 1 n = Val(InputBox("输入自然数n")) If n <= 0 Or n > 34 Then Exit Sub End If For i = 1 To n s = s * i Print s Next i Print "n="; n, "s="; s End Sub 3、循环的强制退出 Exit For Exit Do 常和If、Select Case配合使用，使循环中的程序不再继续进行 3-19 求从100~1000之间所有3的倍数的数之和，当和大于3000时，停止计算并输出和。 Private Sub Command1_Click() Dim i As Integer Dim sum As Integer sum = 0 i = 100 Do While i < 1000 If i Mod 3 = 0 Then sum = sum + i If sum > 3000 Then Exit Do End If End If i = i + 1 Loop Print i, sum End Sub 4、While…Wend循环 格式： While <条件表达式> <循环体> Wend 3.21 百元买百鸡问题 Private Sub Form_click() Cls Rem 百元买百鸡问题 Print "公鸡", "母鸡", "小鸡" For x = 0 To 20 For y = 0 To 33 z = 100 - x - y If 5 * x + 3 * y + z / 3 = 100 Then Print x, y, z End If