第5章VB循环结构For.pptVIP

2.4程序循环结构 用输入框输入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)进入循环条件是什么？ (2)循环体的算法是什么？ (3)结束循环条件是什么？ 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 可省略，即默认为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 数值型 2.3.1 For循环语句 1.超级水稻种植试验的统计分析 问题 2-6：现已知某个因素M种水平5次试验的亩产量如表2-8所示，求各种水平影响下的平均亩产量。 …… 995 1020 955 1100 987 水平3 788 755 843 699 509 水平2 845 886 790 1099 908 水平1 第5次 第4次 第3次 第2次 第1次 水平 （1）分析问题。 Average=(Crop1+ Crop2+ Crop3+ Crop4+ Crop5)/5 输入水平数M，重复计算M次即可。 （2）设计算法。 ①输入水平数； ②对于每一个I（I=1,2，…，M)做如下第③ ~⑨步； ③输入第一次试验的亩产量Crop1； ④输入第一次试验的亩产量Crop2； ⑤输入第一次试验的亩产量Crop3； ⑥输入第一次试验的亩产量Crop4； ⑦输入第一次试验的亩产量Crop5； ⑧计算Average=(Crop1+ Crop2+ Crop3+ Crop4+ Crop5)/5的值； ⑨输出水平I的平均亩产量Average； ⑩ 结束。 （3）编写程序 Private Sub Command1_Click() M = InputBox(请输入水平数M：) For I = 1 To M Crop1 = Val(InputBox(请输入第一次实验的亩产量：)) Crop2 = Val(InputBox(请输入第二次实验的亩产量：)) Crop3 = Val(InputBox(请输入第三次实验的亩产量：)) Crop4 = Val(InputBox(请输入第四次实验的亩产量：)) Crop5 = Val(InputBox(请输入第五次实验的亩产量：)) Average = (Crop1 + Crop2 + Crop3 + Crop4 + Crop5) / 5 Print 水平; I; 的平均亩产量Average=; Average Next I End Sub 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 : 必须成对出现，缺一不可。 (配对原则) 可以嵌套使用，但内、外循环的变量不能同名，不能交叉 正确的循环