Visua Basic循环结构程序设计.pptVIP

计算机软件技术基础 选择结构程序设计： 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 〈条件表达式〉〈循环体〉LoopPrivate Sub Form_Click()Dim i As Integeri = 1Do While i = 20Print ii = i + 1Loop End Sub 格式： Do〈循环体〉Loop While〈条件表达式〉 Private Sub Form_Click()Dim i As Integeri = 1DoPrint ii = i + 1Loop While i = 20 End Sub 格式：Do Until〈条件表达式〉〈循环体〉Loop Private Sub Form_Click()Dim i As Integeri = 1DoPrint ii = i + 1Loop 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 ThenExit Sub End If For i = 1 To ns = s * iPrint 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 IntegerDim sum As Integersum = 0i = 100 Do While i 1000If i Mod 3 = 0 Thensum = sum + iIf sum 3000 ThenExit DoEnd IfEnd Ifi = i + 1 Loop Print i, sum End Sub 4、While…Wend循环 格式： While 条件表达式循环体 Wend 3.21 百元买百鸡问题 Private Sub Form_click()ClsRem 百元买百鸡问题Print 公鸡, 母鸡, 小鸡For x = 0 To 20For y = 0 To 33z = 100 - x - yIf 5 * x + 3 * y + z / 3 = 100 ThenPrint x, y, zEnd IfNext y, x End Sub 循环结构程序设计 VB中提供了两种类型的循环语句：计数循环语句；条件循环语句。 要求掌握的循环结构：☆ Do…Loop☆ For...Next Do…Loop语句有四种语法格式： ⑴ Do While … Loop 语句 ⑵ Do … Loop While 语句 ⑶ Do Until …Loop 语句 ⑷ Do …Loop Until 语句 For 循环变量 = 初值 To 终值 [Step 步长]循环体 Next [循环变量] 习 题 3-23 用下面公式计算Л的近似值，直到最后一项的绝对值小于10-6为止 Private Sub Form_Click()Dim s As IntegerDim n As Single, t As Single, pi As Singlen = 1pi = 0s = 1t = 1Do While Abs(t) = 0.000001 pi = pi + t n = n + 2 s = -s t = s / nLooppi = pi * 4Print pi=; piEnd Sub 5-2 编程求ex的近似值