活动一-用For...Next语句实现循环结构.ppt

《活动一-用For...Next语句实现循环结构.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、活动一用For...Next语句实现循环结构问题：周末，小明到爸爸的电脑城去帮忙爸爸正忙着进行月底清点爸爸所在的品牌电脑部经营着不同品牌和型号的35种电脑他希望小明能编写一个程序，帮助计算每月电脑的销售总额。1、分析问题。通常，本问题可用连加的方法求解，即月销售总额由各品牌和型号电脑的月销售额相加得到。设s为电脑的月销售总额，xi为某种电脑的月销售额，i=1，2，3，…，35，则可列计算式：s=x1+x2+x3+…+xi-1+xi。若改为采用累加的方法，设s0=0，xi为某种电脑的月销售额，i=1，2，…，35，则s1=s0+x1s2=s1+x2……s35=s34+x35那么，解决本问题

2、，需重复进行的工作是：si=si-1+xi;重复计算的次数为：35。提示板需求解的问题是一个繁复的问题时，若能发现需重复进行的工作，就可采用循环结构的程序解决。此例是找到可重复进行计算的算式。2、设计算法。(1)阅读小明设计的算法。第1步：令s=0;第2步：令1=1;第3步：如果i≤35，则执行第4步，否则执行第7步;第4步：输入第i种电脑的月销售额到x;第5步：s=s+x;第6步：i=i+1，转第3步执行;第7步：结束。(2)分析算法。①哪几步在重复执行？②循环开始时i的值为多少？每执行一次循环操作,i的值怎样变化？循环结束时i的值为多少？变量i的作用是什么？③统计销售额的工作是由哪几

3、步完成的？(3)下图为循环结构的标准流程图，参照此图，试将本活动算法用流程图描述出来。循环控制变量赋初值终止判断语句块循环控制变量赋初值是否流程图：i=1,s=0i≤35s=s+pi=i+13、实现应用程序。(1)新建一个工程(2)完成以下代码，并将其输入代码窗口。提示板程序中第6—9句是循环结构语句，语句格式为：For循环控制变量=初值To终值[Step步长]循环体语句块Next[循环控制变量]PrivateSubForm_Click()DimsAsSingleDimxAsSingleDimiAsIntegers=0Fori=1To35Step1x=Val(InputBox("输入第"

4、&i&"种电脑的月销售额"))s=s+xNextiPrint"月销售总额为";Format(s,"#，###.00")EndSub(3)调试运行程序。(4)依次保存窗体文件、工程文件为sum.frm和sum.vbp。