:超级水稻种植试验的统计分析袁隆平院士是我国著名的杂交水稻专家。他主持研究的超级水稻,每公顷产量能达14000公斤以上,居世界领先地位,被誉为“超级水稻之父”。他在研究实验超级水稻时,经常要开展在不同因素环境下的种植试验,对试验得到的大量数据进行统计分析,从中找出规律,培育出更高产、更优质的水稻。陈婷是一个生物迷,她与同组的李明和张军一起参加了学校的水稻种植研究性学****活动。在活动中,需要对多种因素不同水平(如不同的温度、湿度、地壤酸碱度等)的影响下水稻生长情况进行观察,收集数据,并进行统计分析和研究,从中筛选出适合各种因素水平的种子。陈婷提出:能否利用计算机对水稻种植试验的大量数据进行统计分析呢?水平第1次第2次第3次第4次第5次水平19081099790886845水平2509699843755788水平398711009551020995……问题:现已知某个因素的几种水平5次试验的亩产量,求各种水平环境下的平均亩产量。1、分析问题求各种水平影响下5次试验的平均亩产量,实际上就是一个简单重复求5次试验的平均亩产量问题。公式为:Average=(Crop1+Crop2+Crop3+Crop4+Crop5)/5因此,只要输入水平数M,重复计算M次就行。2、设计算法①输入水平数M②对于每一个I(I=1,2,…M)重复③④⑤③输入5次的实验亩产量Crop1-Crop5④计算Average=(Crop1+Crop2+Crop3+Crop4+Crop5)/5⑤输入水平数I的平均亩产量Average流程图:开始输入M的值重复计算M次数据输入数据求平均值输出结果结束定义M、I等量的数据类型案例:超级水稻种植试验的统计分析3、mand1_Click()DimIAsInteger,MAsIntegerDimCrop1AsSingle,Crop2AsSingle,Crop3AsSingleDimCrop4AsSingle,Crop5AsSingleDimAverageAsSingleM=InputBox("请输入水平数M:")ForI=1ToMCrop1=Val(InputBox("请输入第一次实验的亩产量:"))Crop2=Val(InputBox("请输入第二次实验的亩产量:"))Crop3=Val(InputBox("请输入第三次实验的亩产量:"))Crop4=Val(InputBox("请输入第四次实验的亩产量:"))Crop5=Val(InputBox("请输入第五次实验的亩产量:"))Average=(Crop1+Crop2+Crop3+Crop4+Crop5)/5Print"水平";I;"的平均亩产量Average=";AverageNextIEndSub4、调试程序FOR循环语句的格式的基本格式是: For 循环变量=初值 To 终值 Step 步长值 语句组Next循环变量FOR循环语句说明:(1)循环变量是数值型变量;(2)初值、终值、步长均为数值表达式;(3)当初值<终值时,步长应为正数;当初值>终值时,步长应为负数;如省略Step,则步长为1;(4)语句组可是一个或多个语句,也称为循环体(5)循环次数=(终值-初值)/步长+1的整数部
程序的循环结构 来自淘豆网www.taodocs.com转载请标明出处.