VB程序设计中的控制语句.docVIP

罗源县高级职业中学教案纸 第四章? VB程序设计中的控制语句 批 语 第三讲 For 循环语句 授课类型：讲授新课 教学目标：掌握For 循环语句的基本结构及用法 教学重点：For 循环语句的用法 教学难点For 循环语句的用法 教学方法：多媒体演示教学 课时安排：四课时 具体教学过程： 新课内容： 提出问题：求某班某次考试成绩总分和平均分。 分析：一般来说，要求某个班的成绩总分和平均分，我们都是先把每个同学的总分加起来，得到全班的总分后再除以本班同学的总人数就可以得到全班的平均分了，好，大家不防先试着按自己的想法写写这个程序，先试着完成二个人的总分与平均分的计算，再扩展到多个人。 没有学习循环程序的时候，学生一般采用己有的知识完成，输入一个人的分数，加一个人的分数，下一个学生的分数又写同一个输入语句的办法完成，如果班里有多个人时，程序显得较长，且重复，那么如何避免这种情况呢？ 现在请大家看看我这里的一个程序的运行效果，观察程序能否完成以上的任务？ Private Sub Command1_Click() Dim i, n As Integer Dim average, total, score As Double i = 0: total = 0 n = InputBox(请输入全班学生人数：) Do Until i = n i = i + 1 循环结构 score = Val(InputBox(请输入学生分数：)) total = total + score Loop average = total / i MsgBox 全班平均分数为： average End Sub 大家不防先把这个程序运行一下，看看它的运行结果。这里用了一个循环语句，它是什么意思呢？ 环语句的基本知识 i) 循环语句的语法格式： Do Until condition statements Loop ii) 循环语句的执行过程：（1）求解contition条件表达式的真假值。（2）如果其值为真，则退出循环。（3）如果其值为假，则执行循环体中的语句组。 （4）当遇到Loop语句时，继续循环语句的第一句，直到条件为真退出循环。（5）退出循环后，执行循环语句的下一条语句。 iii) 用流程图解释循环语句的执行过程如下： 五、引入Do while 语句 1、将以上循环程序中的Do Until语句改为Do While语句，程序的其它部分不变，运行该程序，看看程序的执行结果是什么？ 学生发现程序出现了“溢出”的错误，为什么会出现这样的错误呢？ 2、错误分析： 程序运行时，I的初始值赋为0,不论全班人数n输入多少，循环语句都没有执行，所以当执行到计算平均值average=total/I时，I的值是0,造成了分母为0，分数值溢出的错误。 3、结论： Do While 语句执行时，与Do Until语句正好相反，当条件为真时，执行循环体，当条件为假时，退出循环，以上程序正好是条件一直为假，循环一次也不执行。 4、修改以上程序，将条件部分改为：（修改后正确的程序） Do while i n ‘修改的部分 i = i + 1 score = Val(InputBox(请输入学生分数：)) 循环结构 total = total + score Loop 六、举例说明：求1+2+……+99+100的累计和。大家不防先按你自己的想法在下面编程试一下，告诉我你们的计算结果是什么？ 思路：首先设置一个累计器sum，其初值为0，利用sum += n来计算（n依次取1、2、……、100），只要解决以下3个问题即可： （1）将i的初值设为0； （2）每循环1次，i增1；total的值增I。 （3）当i增到100时，停止计算。此时，total的值就是1～100的累计和。 根据已有的知识，单独实现每一步都不难。但是，由于需要经常使用这种重复计算结构（称为循环结构），我们完全可以用刚刚给大家介绍的循环语句来实现：Private Sub Command4_Click() Dim i, total As Integer i=0 Do While i 100 i = i + 1 循环语句中控制次数用I,total为总和 total = total + i Loop MsgBox 1到100的和为： total End sub 七、如何在循环过程中退出循环语句？ 运行