第3章进度与作业.ppt

第3章 分支结构程序设计 训练2 If语句和Select Case语句 1.训练目标 （1）熟悉单选按钮、复选框、框架、直线和形状控件 （2）学会使用if语句和Select Case语句 （3）掌握分支结构程序设计方法 2.功能要求 工程包括“启动”、“确认身份”、“欢迎界面”、“猫抓球”、“掷骰子游戏“、”创新功能“和”再见“7个窗体。界面设计自定，但要求界面友好，功能完善。各窗体功能如下： （1）”启动“窗体，参考界面如图1所示。单击”进入“按钮，进入”确认身份“窗体，单击”结束“按钮，进入”再见“窗体。 3. 提示 （1）“猫抓球”窗体中，按住向上按钮时控制猫向上移动，需要触发mouseDown事件，该事件使控制向左方向的计时器可用；释放向上按钮时控制猫停止向上移动，需要触发mouseUp事件，该事件使控制向左方向的计时器不可用。也可以用click事件控制猫的移动 （2）“猫抓球”窗体中，如何判断是否抓到球的算法：定义a、b、c、d四个变量分别存放球和小猫的中心横、纵坐标（即中心left、top的值），当abs(a-b)200 and abs(c-d)200则认为猫抓到球了，则小球不再移动，也就是说控制小球移动的计时器不再可用。（在上下左右移动都会用到这个算法，所以大家也可以先参照教材第5章，定义一个过程，在事件中分别调用过程，避免代码重用） 3. 提示 (3)例如猫向上移动时计时器事件参考代码： Private sub tmrup_timer() Imgcat.top=imgcat.top-100 Dim a As Double Dim b As Double Dim c As Double Dim d As Double a = shpBall.Left + shpBall.Width / 2 b = imgCat.Left + imgCat.Width / 2 c = shpBall.Top + shpBall.Height / 2 d = imgCat.Top + imgCat.Top / 2 If Abs(a - b) 200 And Abs(c - d) 200 Then MsgBox 恭喜，猫抓到球了！, vbInformation, 胜利“ i=0 tmrBall.Enabled = False tmrLeft.Enabled = False tmrRight.Enabled = False tmrUp.Enabled = False tmrDown.Enabled = False End If end sub 3. 提示 (4)控制球随机移动的计时器事件参考代码：（ （球最多移动5次） Private Sub tmrBall_Timer() Randomize shpBall.Left = Int(Rnd * (picPlay.Width - 400)) + 200 shpBall.Top = Int(Rnd * (picPlay.Height - 400)) + 200 i = i + 1 If i = 5 Then i=0 MsgBox 对不起，猫没抓到球，加油！, vbInformation, 失败 tmrBall.Enabled = False tmrLeft.Enabled = False tmrRight.Enabled = False tmrUp.Enabled = False tmrDown.Enabled = False End If End sub 3. 提示 (5)掷骰子时，每个选手每一轮摇30次，“查看结果”在两个选手都摇过3轮后才有效，参考代码： Private Sub tmrFirst_Timer() Randomize Select Case k Case 0 lblFirst1.Caption = Int(Rnd * 6) + 1 Case 1 lblFirst2.Caption = Int(Rnd * 6) + 1 Case 2 lblFirst3.Caption = Int(Rnd * 6) + 1 End Select i