2.3.3节 程序的循环结构

3．Do...Loop
4．Do ... Loop Until语句 Do...Loop Until语句可以在程序中实现“直到”循环， 其格式为 Do <循环体语句> [Exit Do] Loop Until <条件表达式> 执行过程是首先执行循环体内的语句代码，遇到Loop Until语句则判断条件是否成立，不成立则返回到循环的开始 语句，再次执行循环体，这样一直到Until条件成立时才退出 循环。 它与Do ... Loop While循环语句的区别在于条件成 立就退出循环结果。
练习：1.将上述代码改成do循环结构。
2.计算1*2*3*…….*100的值。计算 1+3+5+7+……+999的值。 分析问题，写出算法，画出流程图，写出程 序并在VB中运行，得出结果。
计算1*2*3*…….*100的值。

Private Sub Command1_Click( ) Dim i as integer,s as double s=1 For i=1 To 100 s=s*i Next i Print “1*2*3*……*100=”;s End Sub
Private Sub cmdOk_Click() Dim n As Integer, Sum As Integer intSum = 0 For n = 1 To 24 Sum = Sum + n Next n lblSum.Caption = "两年共存入：" & Sum & "元" End Sub 上段代码中使用For/Next语句实现循环，变量n的初始值为1， 每执行一次循环，n的值加1(即循环步长为1)，直到n>24,退 出循环。如果循环步长为2，那么，For语句为： For n = 1 To 24 Step 2。 3.调试并运行程序 4.按F5运行程序。 5.保存程序文件
2．Do While...Loop语句 Do While...Loop语句可以在程序中实现“当”循环,其格式为: Do While<条件表达式> <循环体语句> [Exit Do] Loop 执行过程是首先判断条件表达式的值是否为True。若不是，则退出循 环，执行Loop后面的语句。若是True，则执行循环代码，当执行到Loop 语句时，返回到Do While语句，继续判断条件表达式的值是否为True，如 此反复执行，直到条件表达式的值为False才退出循环。
2.3.பைடு நூலகம்节
一、 教学目标 1、 知识与技能
程序的循环结构
(for循环结构 DO循环结构)
掌握循环结构编程的一般步骤及特点。（1）掌握VB语言的FOR和DO循环语
句、语句的格式、功能和执行过程；（2）掌握VB语言的循环嵌套的规则。 培养和提升学生:（1）学会使用VB语言的FOR循环语句来实现循环控制结构， 解决实际问题；（2初步掌握程序调试运行的方法。 2、 方法与过程 采用“问题解决教学法”。 3、 情感态度和价值观 （1）经历用计算机解决问题的过程，体验成功的快乐。 （2）在老师的指导下，与同学共同探究问题，让学生体验自主学习、协助学 习的乐趣。
1.For循环语句
格式：For 循环变量=初值 To 终值 （Step 步长值） 循环体语句组 （exit for） Next 循环变量
功能：以指定次数来重复执行一组语句。操作如下： 第一步，循环变量赋循环初值。 第二步，如果循环步长>0,测试循环变量是否大于循环终值；如果循环步长<0，测 试循环变量是否小于循环终值。步长默认为1。 是，转到Next的下一句运行。（退出循环） 否，运行循环体。 如果循环体中有Exit For语句，运行到此句，直接转向Next语句的下一句运行。 （退出循环） 运行到Next语句，循环变量=循环变量+步长。 转到第二步开始处运行。（循环一次完成）
我们。那么用程序如何解决上面的存钱问题呢？
1.设计界面 新建一个标准EXE 工程，在 Form1中放一个标签控件（lblSum）、 一个按钮控件(cmdOk)。 程序界面可参考图设计。
2.编写程序代码
双击cmdOk按钮，为cmdOk的Click事件过程编写代码：
Private Sub cmdOk_Click() Dim n As Integer, Sum As Integer intSum = 0 For n = 1 To 24 Sum = Sum + n Next n lblSum.Caption = "两年共存入：" & Sum & "元" End Sub
注意： 1.步长为负时，循环变量每加一次步长，值变小。步长为零时，循环变量值不变，因此循环 体内如果无Exit For 语句，则进入死循环。在设计时运行程序进入死循环可以使用Ctrl+Break，终 止程序执行。 2.在For循环语句中，For 和 Next是一对语句，必须成对出现，缺一不可。 3.可以嵌套使用，但是循环变量名必须使用不同的变量名，而且不可以书写交叉的For循环语 句。
二、 重点难点 让学生学会使用VB语言的FOR和DU循环语句来实现循环控制结构，解决实际问题。 三、 教学环境 1、 教材处理 教材选自《广东省普通高中信息技术选修一：算法与程序设计》第二章第二（4）节， 原教材的编排是以问题为线索，层层深入，通过亲身设计一个简单的程序实践来加 深本节知识的理解。 以VB编程的基本步骤为线索，通过对各阶段性问题的解决，形成循序渐进的梯度， 组成一个任务链，让学生在“做中学”“学中做”的过程中加深知识的理解，通过 适当地为学生提供拓展性的内容，充分挖掘学生潜力，让有余力的学生可以有更大 的发展空间。它既强调学生进行自主学习、协作学习，又能使学生在学习时有规可 依，使学生在程序设计中得到适度的创新体验。 2、 预备知识 学生已掌握了程序设计基础的顺序及选择结构。 3、 硬件要求 建议本节课在多媒体电脑教室中完成，最好有广播教学系统或投影仪，为拓展学习， 学生机应允许上互联网。 4、 所需软件 学生机要安装VB6.0或以上版本。 5、 所需课时 2课时（90分钟） 四、 教学过程
使用本循环应注意以下问题： (1) DO,Loop,While都是关键字，Do While和Loop应成对出现。 (2) 条件表达式的值应是布尔型。 (3) 循环体中要有控制循环的语句，以避免出现死循环。 (4) VisuaI Basic允许程序代码中嵌套判断或循环语句。 （5）在程序代码中可使用Exit Do语句强制退出循环
程序流程图
Visual Basic循环结构程序设计
所谓循环结构程序就是指对同一程序段进行若干次的重复执行，被重复执行的 语句组称为循环体。在程序中的循环有两种：一种为无条件循环，它是无休止地
重复执行某一程序段；一种为有条件循环，能够满足特定条件就重复执行某一程
序段。
Visual Basic提供多种循环语句以实现循环程序结构。
计算1+3+5+7+……+999的值。

Private Sub Command1_Click( ) Dim i as integer,s as single s=0 For i=1 To 999 step 2 s=s+i Next i Print “1+3+……+999=”;s End Sub
While语句 Do ...Loop While 语句也可以在程序中实现“当”循 环,其格式为: Do <循环体语句> [Exit Do] Loop While<条件表达式> 执行过程是首先执行循环体内的语句代码，遇到 Loop While语句则判断条件是否成立，成立则返回到循 环的开始语句，再次执行循环体，这样一直到While条件 不成立时才退出循环。 它与Do While循环语句的区别在 于Do While循环先测试条件是否成立，只有成立才执行 循环，而本循环语句则先执行循环体，然后才测试循环 条件是否成立。也就是说，循环体至少被执行一次。
导入：假设你从今年开始，1月份为“希望工程”存入1元钱，2月份存入2元
钱，3月份存入3元钱……依次类推，问：两年之后你将为“希望工程”存 入多少钱？ 我们假设n为月数，Sum是一个累加变量,且初始值为0，那么存入 钱的累计数Sum的计算方法是： 第1个月：n=1,n<=24条件成立，Sum=Sum+n，即Sum=0+1； 第2个月：n=2，n<=24条件成立，Sum=Sum+n，即Sum=1+2； 第3个月：n=3，n<=24条件成立，Sum=Sum+n，即Sum=3+3； …… 第24 个月：n= 24, n<=24 条件成立，intSum= intSum+ n，即 intSum=276+24； 第25个月：n=25,n<=24条件不成立，不再累计。 由此，我们发现每次都重复执行Sum=Sum+n这一语句，像这种 需要重复执行某一段代码的程序，我们就需要使用循环结构。