VB 射击游戏程序设计实验报告 实验名称：Visual Basic 程序射击游戏 一、 实验目的与要求 1、 掌握Visual Basic 中常用控件的使用，熟悉其基本功能 2、 学习用属性窗口设置对象窗口及用代码设置对象属性的方法。 3、 学习如何用对象（窗体和控件）建立界面及在代码编辑器中输入程序代码的基本操作。 4、 掌握简单的游戏程序设计。 二、 实验内容 射击小游戏：程序运行后的画面如下图所示，此时窗体中只有“开始”按钮时无效的。单击“初学者”、“业余水平”或者“职业水平”按钮后，即可设定为靶子的图像位置的变换速度，级别越高变换速度越快，同时“开始”按钮变为有效。窗体右边有两个标签，上边的标签时显示比赛的剩余时间，下面的标签显示打中靶子的个数。 单击“开始”按钮，窗体中会出现一个小图像，此时各个按钮均无效、不可见。操作鼠标单击该图像，如果击中了，则窗体内右下边标签中的数据会自动加 1。.如下图a 所示。十秒钟后游戏结束，自动弹出对话框，显示总成绩。 三、 实验步骤 1. 设置界面：1 个窗体，4 个标签，5 个按钮和3 个时钟，如图所示： 2. 设置对象的属性：Timer1 时钟用来触发“靶子”按钮控件的变化，Timer2 时钟用来控制比赛的时间，Timer3 时钟用来控制 Label1 中的秒数显示变化。 3. “靶子”按钮的Defau lt 属性值设置为 False,表示回车键不响应；Cancle 属性设置为 False,表示按Esc 键不响应；Pictu re 属性为加载一幅小图像给按钮；sty le 属性为 1-Graphical,表示按钮上可以显示图像和文字。 界面显示： 成绩显示： 四、 程序代码 Dim N,S,R as Integer Priv ate Su b 初学者-Click() Timer1.Interv al = 1000 Command1.Enabled = Tru e End Su b Priv ate Su b 业余水平-Click() Timer1.Interv al = 800 Command1.Enabled = Tru e End Su b Private Sub 职业水平-Click() Timer1.Interval = 600 Command1.Enabled = True End Sub Private Sub 开始-Click() N = 0 S = 0 Command1.Enabled = True Command1.Visible = True Command1.Left = 2600 Command1.Top = 2000 Command2.Enabled = False Command3.Enabled = False Command4. Enabled = False Command5. Enabled = False Command2.Visible = False Command3.Visible = False Command4.Visible = Fals...
VIP
