1、江苏省苏州丝绸中等专业学校电子教案主备人 罗曦曦 职称 中学一级 教龄 12 所在教 研室 计算机协作备课人 无所授课程 VB 程序设计 课程性质 专业 任教班级 14021403 周课时数 4授课内容 任务 2.4 制作七彩霓虹灯 授课日期 10.23-30 授课课时 6教学目标理解循环结构原理掌握两种循环语句的使用能应用循环语句来解决实际问题教学重点 DO 循环语句和 FOR 循环语句教学难点 DO 循环语句的格式,FOR 循环语句格式，灵活循环语句来解决实际问题教学方法 合作探究法，项目教学法。教学准备（1） Do 语句专项练习.doc（2） 霓虹灯.exe（3） 霓虹灯 V2.0.ex
2、e教学过程教学活动教学环节教师 学生动态修改引入:在窗体上显示一颗星”*”语句:print “*”思考 :如果要在屏幕上显示五颗星怎么写?写五遍 print “*”如果是 10 颗星,100 颗星呢?一. 流程图画出循环结构的流程图.举例在实际生活中遇到的这种循环重复的活动，比如:跑八百米二. 介绍一个可实现循环结构的语句DO 语句，格式为：P71DO while/until 条件语句块exit doLoop当型循环DO 语句块exit doLoop while/until 条件直到型循环当型循环：当条件成立时执行循环体直到型循环：不管怎样先执行一次循环体再判断是否满足条件。例题：显示 10
3、颗星Private Sub Form_Click()i = 1Do While i 则下列叙述中，错误的是（ ）A 若“条件”是一个为 0 的常数，则一次也不执行循环体B “条件”可以是关系表达式、逻辑表达式或常数C 循环体中可以使用 Exit Do 语句D 如果“条件”总是为 True，则不停地执行循环体2设有以下循环结构：Do Until 循环体Loop 则下列叙述中，正确的是（ ）A 若“条件”为真，则至少执行一次循环体B 若“条件”为真，则一次循环体也不执行C 若“条件”为假，则一次循环体也不执行D 不管“条件”是否为真，至少执行一次循环体3执行以下语句后，a 的值是（ ）Dim a
4、As Integera=1Do Until a=100a=a+2LoopA99 B100 C溢出 D1014设有下列循环：i=1Do i=i+3Print iLoop Until i 要求程序运行后要执行 3 次循环体，则条件中 i 的最小值为（ ）A6 B7 C8 D95有如下语句段，执行完后，执行循环的次数是（ ）s=0 : i=1Do Print is=s+iPrint si=i+1If s10 ThenExit DoEnd IfLoop While i=10A5 B10 C15 D20【填空题】1程序的 3 种基本控制结构是 、和 。2运行程序产生死循环时可以按 键终止程序运行。3 以
5、下循环的执行次数是 。k=0Do While k=10k=k+1Loop=演示任务 2.3 霓虹灯分析任务:第一步:能够实现霓虹灯这三个字轮流显示,每隔 0.5 秒显示一个字。Private Declare Sub Sleep Lib “kernel32“ (ByVal dwmilliseconds As Long)Private Sub Command1_Click()Label1.Visible = TrueLabel2.Visible = FalseLabel3.Visible = FalseForm1.RefreshSleep 500Label1.Visible = FalseLabe
6、l2.Visible = TrueLabel3.Visible = FalseForm1.RefreshSleep 500Label1.Visible = FalseLabel2.Visible = FalseLabel3.Visible = TrueForm1.RefreshSleep 500Label1.Visible = FalseLabel2.Visible = FalseLabel3.Visible = FalseEnd Sub第二步：能够控制霓虹灯的重复显示次数功能。保存为霓虹灯 V1.0.exe添加语句：Dim n As Integern = Val(Text1.Text)For i = 1 To n循环体Next i第三步：每循环显示 5 次就提醒用户“是否退出循环” 。If i Mod 5 = 0 Thena = MsgBox(“是否退出循环？“, vbQuestion + vbYesNo)If a = 6 Then Exit ForEnd If1 思考这段代码写在什么位置才合适2 理解变量 I 的变化情况，每显示 5 次的表达3 Msgbox 的另外一种使用方法4 回收用户的选择：是6，否7第四步：修改上述程序，改成“七彩霓虹灯” ，并使用自定义过程来简化主程序。作业：写出 S=1*3*5*7*9,要求屏幕上显示“S=?”教学反思
