第5章VB循环结构For.pptVIP

P50例题 Private Sub Form_click() Dim s As Single, i As Integer n = Val(InputBox(请输入n, 提示)) s = 0 For i = 1 To n Step 1 s = s + I Next i Print 1到; n; 之和为：; s End Sub Private Sub Command1_Click() s = 0 For k = 1 To 3 If k = 1 Then x = 1 ElseIf k = 2 Then x = 2 ElseIf k = 3 Then x = 3 Else x = 4 End If Print x s = s + x Next k Print s End Sub * 用输入框输入10个数字，并用Print方法输出 A = Val(InputBox(输入第1个数)) B = Val(InputBox(输入第2个数)) C = Val(InputBox(输入第3个数)) D = Val(InputBox(输入第4个数)) E = Val(InputBox(输入第5个数)) …… Print A Print B Print C Print D Print E …… For I=1 To 5 A = Val(InputBox(输入10个数)) Print A Next I 判断1个数n的奇偶性 5.3 循 环 结 构 判断10个数n的奇偶性 n =Val(InputBox(输入数据)) Select Case n Case 1, 3, 5, 7, 9 Print n; 是奇数。 Case 0, 2, 4, 6, 8 Print n; 是偶数。 Case Else Print n; 超出范围！ End Select n = Val(InputBox(输入数据)) Select Case n Case 1, 3, 5, 7, 9 Print n; 是奇数。 Case 0, 2, 4, 6, 8 Print n; 是偶数。 Case Else Print n; 超出范围！ End Select For k=1 TO 10 Next k 一般循环结构流程图 (1)进入循环条件是什么？ (2)循环体的算法是什么？ (3)结束循环条件是什么？ 本章讨论VB的两种循环语句： 计数循环语句 For-Next 条件循环语句 While-Wend Do-Loop 5.3.1 For-Next 循环控制 格式： For 循环变量=初值 To 终值 [Step 步长] [循环体] [Exit For] Next [循环变量] (一般用于循环次数已知) 功能：按确定的次数执行循环体。 t =0 For I = 2 To 10 Step 2 t=t + I Print t Next I I: 循环变量 2: 初值 10: 终值 2: 步长 循环体 I=I+2 T F I 10 ? 结束 循环变量I的取值分别为: 2,4,6,8,10 完成 t=2,6,12,20,30 的计算 讨论For-Next 循环变量必须为数值型。 循环次数 步长 Exit For: 强制退出循环 0 初值终值 ( Step 1 可省略) 0 初值终值 =0 死循环 For I=1 to 100 S=S+I Next I For I=100 to 1 Step -1 S=S+I Next I For-Next的流程图—阅读 N x = 初值 x 终值 ? 循环体 x = x + 步长 Y 开始 结束 N x = 初值 x 终值 ? 循环体 x = x +步长 Y 开始 结束 当步长＞0时 当步长0时 For X=1 To 10 Step 2 … Next X For X=10 To 2 Step -2 … Next X For-Next : 必须成对出现，缺一不可。 (配对原则) 可以嵌套使用，但内、外循环