VB程序设计教案.doc

1、VB程序设计选择结构教学目标1.知识与技能1.了解选择结构的基本概念。2.了解关系表达式与逻辑表达式的概念。3.能利用VB中的条件语句实现简单的选择结构。2.过程与方法经历实践、分析、归纳，掌握IF语句的格式和功能。3.情感态度与价值观运用捉老鼠游戏，完善程序，发展学生思维的逻辑性及严谨的学习态度。4.行为与创新培养学生利用计算机的反馈作用进行探究学习的能力。课时安排安排2课时。教学重点与难点1.教学重点让学生学会使用VB语言的If分支语句，掌握分支判断程序结构，来解决实际问题，并且培养学生的探索、创新能力。2.教学难点对解决问题的方法和步骤的理解，并能根据实际问题写出程序代码。教学方法与手段

2、讲述与讨论、实验与验证。课前准备教学课件、实例程序教学过程教学环 节教师与学生活动设计意图设计情境、引入新课教师活动：让学生制作捉老鼠游戏学生活动：积极参与。教师活动：学生制作小游戏界面，教师指导，如果抓到小老鼠系统将会提示抓住老鼠了。一只小老鼠在草地上跑来跑去，现在要用鼠标控制敲钟它。敲中一次，就会弹出一次信息框。我们将通过制作这个小游戏程序，学习程序设计语言IF条件判断语句。由鼠标抓小老鼠同学们的不同选择引出本课的主题选择结构。通过制作小游戏使激发学生的思维能力，并引出本课的内容选择结构课堂小结小结总结本堂课的内容。拓展活动编写“小游戏”界面。培养学生的探索、创新能力。培养学生的创新，探索

3、能力VB程序设计选择结构教学目标1.知识与技能1.了解选择结构的基本概念。2.了解关系表达式与逻辑表达式的概念。3.能利用VB中的条件语句实现简单的选择结构。2.过程与方法经历实践、分析、归纳，掌握IF语句的格式和功能。3.情感态度与价值观运用捉老鼠游戏，完善程序，发展学生思维的逻辑性及严谨的学习态度。4.行为与创新培养学生利用计算机的反馈作用进行探究学习的能力。课时安排安排2课时。教学重点与难点1.教学重点让学生学会使用VB语言的If分支语句，掌握分支判断程序结构，来解决实际问题，并且培养学生的探索、创新能力。2.教学难点对解决问题的方法和步骤的理解，并能根据实际问题写出程序代码。教学方法与

4、手段讲述与讨论、实验与验证。课前准备教学课件、实例程序教学过程教学环 节教师与学生活动设计意图设计情境、引入新课新授教师活动：让学生制作捉老鼠游戏学生活动：积极参与。教师活动：学生制作小游戏界面，教师指导，如果抓到小老鼠系统将会提示抓住老鼠了。一只小老鼠在草地上跑来跑去，现在要用鼠标控制敲钟它。敲中一次，就会弹出一次信息框。我们将通过制作这个小游戏程序，学习程序设计语言IF条件判断语句。由鼠标抓小老鼠同学们的不同选择引出本课的主题选择结构。通过控件属性学生掌握本课界面设计由小游戏实例引出选择结构的一般流程图，讲解选择结构与条件语句选择结构选择结构流程图新授教师活动：Timer事件Private

5、 Sub Timer1_Timer()Randomize 随机化生成器X = Int(Rnd * 7000) X值为随机整数,范围在0-7000Y = Int(Rnd * 4000) Y值为随机整数,范围在0-4000Image1.Left = X Image1的左边界坐标为XImage1.Top = Y Image1的上边界坐标为YEnd Sub通过制作小游戏使激发学生的思维能力，并引出本课的内容选择结构学生通过教师讲解，理解控件属性新授当定时器开始工作时，每到Interval设定的时间，即执行一次代码。即产生X和Y两个随机数，每一次时间间隔产生的随机数是不一样的。 再将随机数赋予图片的左坐

6、标和顶坐标。由此面产生的效果是：每到一定时间，老鼠图片的所在位置就随机发生变化。学生通过老师讲解，理解选择结构并掌握选择结构的基本格式。新授2.停止按钮点击事件Private Sub Command2_Click()If Timer1.Enabled = True Then Timer1.Enabled = FalseEnd Sub通过程序学生理解IF语句。新授3.退出按钮点击事件Private Sub Command3_Click()If Timer1.Enabled = True Then 如果定时器仍在工作MsgBox 请先停止程序 弹出消息框警告Else 否则如果定时器已停止End 则

7、退出程序End IfEnd Sub新授4.开始按钮点击事件Private Sub Command1_Click()Timer1.Enabled = True 定时器开始工作If Combo1.Text = 初级水平 Then 当为初级水平时Timer1.Interval = 600 时间间隔为600毫秒ElseIf Combo1.Text = 中级水平 Then 当为中级水平时Timer1.Interval = 400 时间间隔为400毫秒ElseIf Combo1.Text = 高级水平 Then 当为高级水平时Timer1.Interval = 200 时间间隔为200毫秒End IfEn

8、d SubIF语句的第三种结构多重分支结构，其格式为：If ThenIf Then.ELSE If ThenEnd If5.击中老鼠事件当鼠标点中老鼠图像时，程序会弹出一个消息框，显示击中的信息。Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)MsgBox 抓住老鼠了！ 弹出消息框End Sub培养学生阅读程序的能力，测验学生对选择结构的理解程度。学生练习1.电梯的最大容量为12人，在此范围内电梯能正常运行，超出了这个范围电梯将发出警报。（C）Dim a as

9、integera=val(inputbox(“请输入进入电梯的人数”). a=12print “正常运行”print “发出警报”A.ifthenend ifelseB.thenifelseend ifC.ifthenelseend ifD.ifelsethenend if2.以下程序段运行后，分别输入5和6，则输出字符的排列顺序是（ B ）I=val(inputbox(“请输入I的值”)If I 6 then Print “#” ；Else Print “*”End ifA.*# B.#* C.# D.*3语句If x=1 Then y=1,下列说法正确的是（C ）。A、x=1和 y=1 均为赋值语句B、x=1和 y=1均为关系表达式C、x=