神马品牌网潍坊市交通运输局局长:用VB编出一个射击游戏程序
来源：百度文库 编辑：神马品牌网 时间：2024/05/12 07:30:35
1.问题描述：
单击开始后显示射击目标。当鼠标在一秒钟内单击到目标（目标可以由图片、文本框等控件来表示）则加分，如果没有单击到目标就减少生命。生命减少到0时结束游戏。
2.问题的解决方案：
单击开始按钮后随机生成目标的位置（top和left属性），同时令timer控件开始计时。目标的单击事件中进行加总分和重新生成目标以及重新启动timer控件。如果规定时间内没有单击目标，会触发timer控件的timer事件，在timer事件中进行生命数减少、重新确定目标位置和重新启动timer控件的功能。
随机位置的确定:
利用控件的top和left属性可以改变控件的位置。随机位置利用rnd函数生成随机数。
如图
单击开始后显示射击目标。当鼠标在一秒钟内单击到目标（目标可以由图片、文本框等控件来表示）则加分，如果没有单击到目标就减少生命。生命减少到0时结束游戏。
2.问题的解决方案：
单击开始按钮后随机生成目标的位置（top和left属性），同时令timer控件开始计时。目标的单击事件中进行加总分和重新生成目标以及重新启动timer控件。如果规定时间内没有单击目标，会触发timer控件的timer事件，在timer事件中进行生命数减少、重新确定目标位置和重新启动timer控件的功能。
随机位置的确定:
利用控件的top和left属性可以改变控件的位置。随机位置利用rnd函数生成随机数。
如图