VB导购学案(文本).doc

VB导购学案 东风高中信息技术组2010 【教学目标】知识技能：运用分支结构进行选择，熟悉对象、属性、事件、驱动概念及应用，体验选择结构应用的算法实现。过程方法：理解开发面向对象程序的过程，感受选择结构的逻辑特点，增强解决实际问题的能力。情感态度：激发学生对程序设计的热爱，学会用系统分析方法探索，培养严谨规范的科学素质。 【教学重点】 掌握多重选择，调试多条分支的正确性, 增强分析解决问题的能力。 【教学难点】 正确构建多分支嵌套解决实际问题 任务导引 售货导购 （文件名apple .vbp） P44 商场苹果促销，规定购买两公斤以上，可以在原价每公斤1.5的基础上打八折。请设计一个程序计算购买X公斤的应付款。 自动售货机 导购界面仿真（参考） 2、闰年判断（文件名leap .vbp） P48 算法：输入一个年号year , 如果此年号能被400除尽，或者它能被4整除而不能被100整除，则它是闰年。否则，它是平年。如年号2010、2011、2000、1900呢？ 3、找最大值 ( 文件名large .vbp) P8 Y = max { a , b } 4、求a的绝对值 (文件名axx.vbp) P8 a (a=0) y= -a (a0) 二、知识关联（复习） VB输入 a=InputBOX(提示信息，标题，默认值，x坐标，y坐标) P36 赋值语句 变量=表达式 如p=x*y P35 name=text1.text 如QQ登录 VB输出 print “f(x,y,x)”；f_max： print”3*5=”,3*5 P36 MsgBox(提示信息，按钮，标题) 《教科P29》 Text2.text=words 对象名.属性名=属性值 P73 label2.caption=words 选择结构流程图 P43 IF 布尔表达式 Then 语句1 Else 语句2 End if 4、逻辑运算符：and, or ,not =,=, , = 布尔值True, false 5、取余运算mod, 整除\ P48 if (x mod 2 0 ) then print “奇数” else print “偶数” end if if (x / 2 = x\2 ) then print “偶数” else print “奇数” end if 三、 操作要点提示 向窗体添加控件 Label标签控件→提示（或显示结果）。 分别命名为“数量”、“应付金额”“优惠价”； Text Box文本控件→输入/输出。 对应“数量”，“应付金额”“优惠价”； Command Button命令按钮—编程人机交互。 分别命名为“计算”、“重置”。 四、编写事件代码参考 Apple.vbp Command1“计算”源代码 Private Sub Command1_Click( ) Const price=1.5 Dim num, money As Double num = Text1.Text Text2.text=” ” Text3.text=” ” if num0 then msgbox(“输入数据错！”) else Money=price*num Text2.text=money If (num=2) then Money=money*0.8 Text3.text=money Endif endif End Sub Command2“清除”源代码 Private Sub Command2_Click() Cls Text1.Text = Text2.Text =