【VB开源代码栏目提醒】：网学会员为广大网友收集整理了，VB程序设计中的控制语句 doc - 编程语言，希望对大家有所帮助！

- 1 - 罗源县高级职业中学教案纸 第四章 VB程序设计中的控制语句 批 语 第三讲 For 循环语句 授课类型讲授新课 教学目标掌握For 循环语句的基本结构及用法 教学重点For 循环语句的用法 教学难点For 循环语句的用法 教学方法多媒体演示教学 课时安排四课时 具体教学过程 新课内容 提出问题求某班某次考试成绩总分和平均分。

     分析一般来说要求某个班的成绩总分和平均分我们都是先把每个同学的总分加起来得到全班的总分后再除以本班同学的总人数就可以得到全班的平均分了好大家不防先试着按自己的想法写写这个程序先试着完成二个人的总分与平均分的计算再扩展到多个人。

     没有学习循环程序的时候学生一般采用己有的知识完成输入一个人的分数加一个人的分数下一个学生的分数又写同一个输入语句的办法完成如果班里有多个人时程序显得较长且重复那么如何避免这种情况呢 现在请大家看看我这里的一个程序的运行效果观察程序能否完成以上的任务 Private Sub Command1_Click Dim i n As Integer Dim average total score As Double i 0: total 0 - 2 - 罗源县高级职业中学教案纸 第四章 VB程序设计中的控制语句 批 语 n InputBox请输入全班学生人数 Do Until i n i i 1 循环结构 score ValInputBox请输入学生分数 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 用流程图解释循环语句的执行过程如下 - 3 - 罗源县高级职业中学教案纸 第四章 VB程序设计中的控制语句 批 语 五、引入Do while 语句 1、将以上循环程序中的Do Until语句改为Do While语句程序的其它部分不变运行该程序看看程序的执行结果是什么 学生发现程序出现了“溢出”的错误为什么会出现这样的错误呢 2、错误分析 按程序顺序执行每条语句当遇到Do Until语句时 计算条件语句的值 假 真 退出循环 执行循环体内的语句 遇到loop语句时 执行循环语句的下一条语句 - 4 - 罗源县高级职业中学教案纸 第四章 VB程序设计中的控制语句 批 语 程序运行时I的初始值赋为0不论全班人数n输入多少循环语句都没有执行所以当执行到计算平均值averagetotal/I时I的值是0造成了分母为0分数值溢出的错误。

     3、结论 Do While 语句执行时与Do Until语句正好相反当条件为真时执行循环体当条件为假时退出循环以上程序正好是条件一直为假循环一次也不执行。

     4、修改以上程序将条件部分改为修改后正确的程序 Do while i n ‘修改的部分 i i 1 score ValInputBox请输入学生分数 循环结构 total total score Loop 六、举例说明求12……99100的累计和。

     大家不防先按你自己的想法在下面编程试一下告诉我你们的计算结果是什么 思路首先设置一个累计器sum其初值为0利用sum n来计算n依次取1、2、……、100只要解决以下3个问题即可 1将i的初值设为0 2每循环1次i增1total的值增I。

     3当i增到100时停止计算。

    此时total的值就是1100的累计和。

     根据已有的知识单独实现每一步都不难。

    但是由于需要经常使用这种重复计算结构称为循环结构我们完全可以用刚刚给大 - 5 - 罗源县高级职业中学教案纸 第四章 VB程序设计中的控制语句 批 语 家介绍的循环语句来实现 Private Sub Command4_Click Dim i total As Integer i0 Do While i 100 i i 1 循环语句中控制次数用Itotal为总和 total total i Loop MsgBox 1到100的和为 total End sub 七、如何在循环过程中退出循环语句 运行以下程序 请同学们观察此程序与上面的计算1—100的和程序有什么不同点程序执行的结果是什么 Private Sub Command4_Click Dim i total As Integer i0 Do While i 100 i i 1 total total I if I50 then exit do 循环中途退出循环的语句 Loop MsgBox 1到50的和为 total ‘输出结果的语句 End sub - 6 - 罗源县高级职业中学教案纸 第四章 VB程序设计中的控制语句 批 语 程序分析 循环体中加入的条件语句含义为当I 的值加到50时则执行exit do 语句退出循环接着执行loop后的语句这样达到了中途退出循环的目的。

     循序渐进 与以上两种结构类似的do语句为 do …loop until condition do …loop while condition 它们的执行过程分别与do until 和do while语句相同不同的地方在于不论条件是否成立以上两语句都要执行一次。

     关于循环语句的几点说明 1、当不知道循环要执行多少次时最好选用Do循环。

     2、当循环中途要退出时需要选用exit do 语句。

     3、当循环至少要执行一次时选用do loop untio/do loop while 语句。

     实战训练 看下图画同心圆以10001000为圆心以100的整数倍为半径画圆直到半径大于1000。

     1、运行效果图 - 7 - 罗源县高级职业中学教案纸 第四章 VB程序设计中的控制语句 批 语 程序代码部分 IV、循环语句四种格式的异同点比较总结 Private Sub Command1_Click Dim i As Integer i 0 Do Until i 1000 Circle 1000 1000 I 循环结构体 i i 100 Loop End Sub 语句 格式 条件为真 条件为假 是否先判断 条件 1、Do until语句 Do until conditin loop 不执行 执行 是 2、Do while 语句 Do while condition loop 执行 不执行 是 3、Do loop until语句 Do Loop until condition 不执行 执行 否 4、Do loop while语句 Do Loop while condition 执行 不执行 否 - 8 - 罗源县高级职业中学教案纸 第四章 VB程序设计中的控制语句 批 语 V、布置作业 计算1——1000个自然数中的素数并把这些素数的和求出。

    所谓素数是指除了1和它本身以外再没有其它的数整除它。

     课后反思