Option Explicit Dim a As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Option1_Click() Timer1.Interval = 1000 End Sub Private Sub Option2_Click() Timer1.Interval = 500 End Sub Private Sub Option3_Click() Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() If a = 1 Then Image1.Picture = LoadPicture(App.Path & "\pic\1.gif") a = 2 Else Image1.Picture = LoadPicture(App.Path & "\pic\2.gif") a = 1 End If Image1.Left = Image1.Left - 200 If Image1.Left < 0 Then Image1.Left = 11160 End Sub(
课件网) 3.2 设计打地鼠游戏 八年级下册 打地鼠，商场里经常看到。游戏规则比较简单，打中随机出现的地鼠就能得分，那么，VB能否设计一个打地鼠游戏呢？ 若想用VB设计打地鼠游戏，需思考以下3个问题： 1、打地鼠的核心功能是什么？ 2、如何从核心的功能开始增加游戏的复杂度和可玩性？ 3、做的打地鼠游戏能吸引其他同学来玩吗？ 1、功能分析 一、打地鼠游戏初级版 你认为打地鼠游戏程序应该包含哪些基本功能？ 实 践 打地鼠程序最核心的角色是：地鼠和锤子 地鼠：动作交替出现或隐藏。 锤子：动作就是移动和击打地鼠，击打就是单击鼠标。 目 录 壹 春未老，风细柳斜斜，风细柳斜斜。 贰 春未老，风细柳斜斜，风细柳斜斜。 叁 春未老，风细柳斜斜，风细柳斜斜。 新知讲解 1、功能分析 一、打地鼠游戏初级版 你认为打地鼠游戏程序应该包含哪些基本功能？ 实 践 打地鼠程序最核心的角色是：地鼠和锤子 地鼠：动作交替出现或隐藏。 锤子：动作就是移动和击打地鼠，击打就是单击鼠标。 2、界面分析 初级版打地鼠界面中，涉及控件对象：Image、Timer和Form。 对象 名称 控件作用 关键属性 Image控件 Ds 地鼠 Picture、visible Timer控件 Timer1 控制地鼠出现或隐藏的时间 interval Form窗体 Form1 游戏界面窗口 mouselcon、mousepointer 地鼠被打中消失的代码： If Image2(Index).Picture = ds.Picture Then Image2(Index).Picture = em.Picture 地鼠的出现与隐藏，由Timer事件控制，地鼠出现与隐藏交替变换代码： 3、代码分析 地鼠的出现与隐藏，由Timer事件控制，地鼠出现与隐藏交替变换代码： For i = 0 To 11 Image2(i).Picture = em.Picture Next i For a = 0 To 4 j = Int(Rnd 12) Image2(j).Picture = ds.Picture Next a 3、代码分析 加分：sum.Caption = sum.Caption + 1 4、调试程序 关于软件的版本号 主版本号：功能模块有大变动。 次版本号：次版对应的只是局部变动。局部变动造成和以前版本不能兼容。 修订版本号：局部变动，主要是局部函数的功能改进，或者bug的修正，或者功能的扩充。 新知导入 关于软件的版本号 扩 展 主版本号：功能模块有大变动。 次版本号：次版对应的只是局部变动。局部变动造成和以前版本不能兼容。 修订版本号：局部变动，主要是局部函数的功能改进，或者bug的修正，或者功能的扩充。 课后习题 （1）以下叙述中错误的是 (C) A）Visual Basic 是事件驱动型可视化编程工具 B）Visual Basic应用程序不具有明显的开始和结束语句 C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性 D）Visual Basic中控件的某些属性只能在运行时设置 课后习题 2、将定时器的时间间隔设置为1秒，那定时器的Interval属性值应为(A)。 A．1000??B．1??C．100???D．10 3、当设置了定时器的有关属性后，使窗体自动向下移动的语句是Move（C）。 ?A．Left，Top+100???B．Top+100?? ?C．Top-100?? D．Top=Top+1 ... ...
