vb程序设计中的控制语句

《vb程序设计中的控制语句》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、罗源县高级职业中学教案纸第四章 VB程序设计中的控制语句批语第三讲For循环语句授课类型：讲授新课教学目标：掌握For循环语句的基本结构及用法教学重点：For循环语句的用法教学难点For循环语句的用法教学方法：多媒体演示教学课时安排：四课时具体教学过程：新课内容：提出问题：求某班某次考试成绩总分和平均分。分析：一般来说，要求某个班的成绩总分和平均分，我们都是先把每个同学的总分加起来，得到全班的总分后再除以本班同学的总人数就可以得到全班的平均分了，好，大家不防先试着按自己的想法写写这个程序，先试着完成二个

2、人的总分与平均分的计算，再扩展到多个人。没有学习循环程序的时候，学生一般采用己有的知识完成，输入一个人的分数，加一个人的分数，下一个学生的分数又写同一个输入语句的办法完成，如果班里有多个人时，程序显得较长，且重复，那么如何避免这种情况呢？现在请大家看看我这里的一个程序的运行效果，观察程序能否完成以上的任务？PrivateSubCommand1_Click()Dimi,nAsIntegerDimaverage,total,scoreAsDoublei=0:total=0-8-n=InputBox("请输入

3、全班学生人数：")DoUntili>=ni=i+1循环结构score=Val(InputBox("请输入学生分数："))total=total+scoreLoopaverage=total/iMsgBox"全班平均分数为："&averageEndSub大家不防先把这个程序运行一下，看看它的运行结果。这里用了一个循环语句，它是什么意思呢？环语句的基本知识i)循环语句的语法格式：DoUntilconditionstatementsLoopii)循环语句的执行过程：（1）求解contition条件表达式的真假

4、值。（2）如果其值为真，则退出循环。（3）如果其值为假，则执行循环体中的语句组。（4）当遇到Loop语句时，继续循环语句的第一句，直到条件为真退出循环。（5）退出循环后，执行循环语句的下一条语句。iii)用流程图解释循环语句的执行过程如下：-8-按程序顺序执行每条语句，当遇到DoUntil语句时计算条件语句的值假真执行循环体内的语句退出循环执行循环语句的下一条语句遇到loop语句时五、引入Dowhile语句1、将以上循环程序中的DoUntil语句改为DoWhile语句，程序的其它部分不变，运行该程序，看

5、看程序的执行结果是什么？学生发现程序出现了“溢出”的错误，为什么会出现这样的错误呢？2、错误分析：-8-程序运行时，I的初始值赋为0,不论全班人数n输入多少，循环语句都没有执行，所以当执行到计算平均值average=total/I时，I的值是0,造成了分母为0，分数值溢出的错误。3、结论：DoWhile语句执行时，与DoUntil语句正好相反，当条件为真时，执行循环体，当条件为假时，退出循环，以上程序正好是条件一直为假，循环一次也不执行。4、修改以上程序，将条件部分改为：（修改后正确的程序）Dowhil

6、ei

7、l的值就是1～100的累计和。-8-根据已有的知识，单独实现每一步都不难。但是，由于需要经常使用这种重复计算结构（称为循环结构），我们完全可以用刚刚给大家介绍的循环语句来实现：PrivateSubCommand4_Click()Dimi,totalAsIntegeri=0DoWhilei<100i=i+1循环语句中控制次数用I,total为总和total=total+iLoopMsgBox"1到100的和为："&totalEndsub七、如何在循环过程中退出循环语句？运行以下程序：请同学们观察此程序与上

8、面的计算1—100的和程序有什么不同点？程序执行的结果是什么？PrivateSubCommand4_Click()Dimi,totalAsIntegeri=0DoWhilei<100i=i+1total=total+IifI=50thenexitdo循环中途退出循环的语句LoopMsgBox"1到50的和为："&total‘输出结果的语句Endsub-8-程序分析：循环体中加入的条件语句含义为：当I的值加到50时，则执行exitdo语句，退