资源描述
2.4 程序的循环结构,袁隆平 Yuan Longping (1930.9.7 -) 出生于北平，1953年毕业于西南农学院。1964年开始研究杂交水稻，1973年实现三系配套，1974年育成第一个杂交水稻强优组合南优2号，1975年研制成功杂交水稻制种技术，从而为大面积推广杂交水稻奠定了基础。1985年提出杂交水稻育种的战略设想，为杂交水稻的进一步发展指明了方向。1987年任863计划两系杂交稻专题的责任专家，1995年研制成功两系杂交水稻，1997年提出超级杂交稻育种技术路线，2000年实现了农业部制定的中国超级稻育种的第一期目标，2004年提前一年实现了超级稻第二期目标。1995年当选为中国工程院院士。先后获得“国家特等发明奖”、“首届最高科学技术奖”等多项国内奖项和联合国“科学奖”、“沃尔夫奖”、“世界粮食奖”等11项国际大奖。出版中、英文专著6部，发表论文60余篇。,已知某个因素M种水平5次试验的亩产量如下表所示，求各种水平影响下的平均亩产量。,某个因素M种水平5次试验的亩产量（单位：千克）,1、分析问题,求各种水平影响下5次试验的平均亩产量，实际上就是一个简单重复求5次试验的平均亩产量问题。5次试验的平均亩产量可为 Average=(Crop1+Crop2Crop3+Crop4+Crop5)/5 所以，只要输入水平数M，重复计算M次就可以了。,2、设计算法,输入水平数M。,对于每一个I(I=1,2,3M)做如下第步 输入第一次实验的亩产量Crop1. 输入第二次实验的亩产量Crop2. 输入第三次实验的亩产量Crop3. 输入第四次实验的亩产量Crop4. 输入第五次实验的亩产量Crop5.,计算Average=(Crop1+Crop2+Crop3+Crop4+Crop5)/5的值。,输出水平数I的平均亩产量Average。,结束,循环结构：根据条件判断是否成立，如果条件成立则重复执行循环结构中某语句序列功能，直到条件不成立，退出循环结构为止。,循环的本质：不断地重复某种动作,在VB语言中，用于循环结构程序设计的语句有For循环语句和Do循环语句。,For循环语句主要用于描述预先知道循环次数的循环结构，是一种计数循环；Do循环语句是根据条件是否满足而决定循环是否继续进行。,1、 循环语句格式 For 循环变量=初值 To 终值 step 步长 语句组 next 循环变量,For循环语句,（1）循环变量为数值型变量。 （2）初值、终值、步长均为数值表达式。 （3）当初值小于终值时，步长应为正数；当初值大于终值时，步长应为负数；如果省略Step，则步长为1。 （4）语句组可以是一个或者多个语句，又称作循环体。 （5）循环体执行的次数为（终值初值）/步长1的整数部分。,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,2、For循环语句的执行过程,For,Next,Do循环语句,1、Do循环语句的基本格式 Do 循环体 Loop Until 循环终止条件,其中：循环体是一组VB语句；循环终止条件是一个逻辑表达式。,2、Do语句的执行过程,练习：用Do循环语句设计求“100以内能被3整除的所有正整数”的VB程序。,Private Sub Command1_Click( ),i=1,Do,If i Mod 3 = 0 Then Print i,i=i+1,Loop Until i100,End Sub,实践： P52、,For _To _,Sum = 0 For i = 1 To 100 Sum = Sum + i Next i Print “sum=“; Sum,
展开阅读全文