3.2设计打地鼠游戏-粤高教版（B版）八年级信息技术下册课件(共19张PPT)

3.2 设计打地鼠游戏 打地鼠，商场里经常看到。游戏规则比较简单，打中随机出现的地鼠就能得分，那么，VB能否设计一个打地鼠游戏呢？ 2 一、打地鼠游戏初级版 3 2、界面分析 设计鼠标指针为锤子 设计地鼠图像框 2、对象分析 2、Image4对象分析---控件数组实现 2、timer控件分析 2、form窗体分析 3、代码分析 Dim i, a, x As Integer Private Sub cmdStart_Click() Timer1.Enabled = True End Sub Private Sub cmdStop_Click() End End Sub 3、代码分析 Private Sub Image4_Click(Index As Integer) If Image4(Index).Picture = ds.Picture Then Image4(Index).Picture = em.Picture sum.Caption = sum.Caption + 1 End If End Sub 3、代码分析 Private Sub Timer1_Timer() For i = 0 To 11 Image4(i).Picture = em.Picture Next i For a = 0 To 4 j = Int(Rnd * 12) Image4(j).Picture = ds.Picture Next a End Sub 课后习题 一、查漏补缺1、Frame控件的作用是 。2、CheckBox控件表明的特定状态是 和 。3、在 可以查看到字体相关属性名称。4、如果出现同类型控件在一个事件中执行相同或类似的代码时，可以使用 来更好地管理控件和维护代码。 课后习题 二、问题实战 在打地鼠游戏中，李鸣想增加一个兔子对象，兔子跟地鼠一样随机出现，如果打中兔子了，将扣除一定的分数。