§2.7循环结构.doc

§2.7循环结构 教 学 过 程教 学 内 容学生活动教学方法组织教学：稳定课堂教学秩序 检复： 首先教师在教师机上运行画线程序，在窗体上显示动态地画出一条直线，并不停地改变线的颜色。通过屏幕广播发送到每一台学生机，让学生观察运行结果。 提问： 编程序，在窗体上由点（1000，1000）至（3500，1000）之间画一条绿色水平直线，使用PSet方法。 答案： private sub form_click() Cls For i = 1000 To 3500 PSet (i, 1000),RGB(0,255,0) Next i End Sub Fox Next循环语句应该在什么情况下使用？ 答案：For Next循环语句用于循环次数确定的情况下。 引入： 我们知道，For Next循环语句用于循环次数确定的情况下。今天我们学习VB6.0中另外一个循环语句——Do Loop语句，Do Loop循环语句既可用于循环次数确定的情况，也可用于循环次数不确定的情况。所以，它是比Fox Next语句功能更强的循环语句。Do Loop循环语句共有四种格式，我们先学习它的第一种格式。 新授：  仔细观察 运行结果 口 答 口 答 进行多媒 体教学，吸引学生的注意力 展示课件 通过屏幕广播展示运行结果 教 学 内 容学生活动教学方法§2.7循环结构（三） （三）Do Loop语句 【格式1】 Do [While 循环条件] [循环体] [Exit Do] Loop 【执行过程】 1．先判断循环条件，当条件为真时，执行循环体，否则执行Loop下面的语句。 2．执行完循环体后，再判断循环条件，当条件为真时，重复执行循环体，直到条件为假时，结束循环，执行Loop下面的语句。 【使用说明】 1. Do、Loop、While及Exit Do都是关键字。循环体是需要重复执行的一个或多个语句。 2.循环条件是一个关系表达式或逻辑表达式。 3．该语句循环体的最少执行次数为零。 4．如果条件总是成立，Do循环就陷入“死循环”。这时可用Exit Do语句来无条件跳出循环，转去执行Loop下面的语句。 5．Do和Loop构成了Do循环。当只有这两个关键字时，程序将不停地执行Do和Loop之间的循环体。为了使程序能结束循环，必须使用可选的关键字While或Exit Do。 6．Do循环可以嵌套，其规则与Fox Next循环相同。 【例题1】 用Do Loop语句编程序，在窗体上从点（1000，1000）至点（3500，1000）之间画一条绿色水平直线，使用PSet方法。 【分析】 用Do Loop语句编写程序时，应该设一个循环条件，来控制循环什么时候结束。根据本题的题意， 认真听讲 积极思维 理解记忆 认真听讲 积极思维 理解记忆  展示课件 进行多媒 体 教 学 启发引导 通过多媒体课件进行教学，充分调动学生学习的积极性  教 学 内 容学生活动教学方法我们可设i为循环变量，初值为i=1000,循环条件为i≤3500，i的值每循环一次加1；循环体为画点语句和i的值加1。 程序如下：private sub form_click() Cls:i=1000 Do While i = 3500 PSet (i, 1000),RGB(0,255,0) i=i+1 Loop End Sub 【练习1】 用Do Loop语句编程序，在窗体上由点（1000，1000）至点（1000，3500）之间画一条红色垂直直线，使用PSet方法。 程序如下：private sub form_click() Cls:i=1000 Do While i = 3500 PSet ( 1000,i),RGB(255,0,0) i=i+1 Loop End Sub 【练习2】 在练习1的基础上加一段延时程序，使画直线的速度减慢。 程序如下：private sub form_click() Cls i=1000 Do While I = 3500 PSet (1000,i),RGB(255,0,0) i=i+1:a=1 Do While a=10000 a=a+1 Loop Loop End Sub理解Do Loop语句的执行过程，掌握编写程序的思路和方法。 根据要求编写程序并在微机上调试、运行。 此题是为较好的学生准备的练习题，练习1运行成功的学生可做此题。分析引导，讲解编写程序的思路和方法，培养学生分析问题、解决问题的能力。 讲练结合通过屏幕广播，教师引导学生找出某个学生的程序的优缺点。 展示课件 教师进巡回指导。 重点辅导练习1没有调试成功的学生。培养学生的动手能力。