1. 游戏编程的射击类游戏

这里所说的射击类，并非是类似《VR战警》的模拟射击（枪战），而是指纯粹的飞机射击，或者在敌方的枪林弹雨中生存下来，一般由玩家控制各种飞行物(主要是飞机)完成任务或过关的游戏。此类游戏分为两种，一叫科幻飞行模拟游戏（SSG=Science-Simulation Game），非现实的，想象空间为内容，如《自由空间》、《星球大战》系列等；另一种叫真实飞行模拟游戏（RSG=Real- Simulation Game），以现实世界为基础，以真实性取胜，追求拟真，达到身临其境的感觉。如《皇牌空战》系列、《苏-27》等等。另外，还有一些模拟其他的游戏也可归为STG，比如模拟潜艇的《猎杀潜航》，模拟坦克的《野战雄狮》等。STG也可以按照视角版面分为：纵版、横版、主观视角。
纵版：最为常见，如街机中的《雷电》、《鲛鲛鲛》、《空牙》等，都堪称经典之作。
横版：横轴射击，如《沙罗曼蛇》系列、《战区88》
主观视角：仿真，模拟战机就属此类。
一般指的是卷轴式射击游戏，出现的相当的游戏类型。纯2D STG的系统是在卷动的背景图片上，玩家自机的活动块与敌方子弹（和战机）的活动块，自机子弹的活动块和敌战机的碰撞计算。玩家在游戏中的目的就是获得最高分数的记录，或者是在敌方的枪林弹雨中成功存活。代表作品有彩京的《194X》系列，CAVE的《首领蜂》系列，IREM的《雷电》系列。伪3D的作品有《R-TYPE》系列，《雷霆战机》系列。

2. 跪求基于VB程序设计的射击类游戏！！要源代码！！最好是自己做的！！悬赏50分，给答案最好的那个啊！！

我有EXCEL上发射炮弹的VBA码，我自主编写，可以看到炮弹轨迹，爆炸声和象图（自己先准备文件），复原，再发，适用小孩玩。
Sub 弹射轨迹时间函数()
'采用时间值循环，语句变得更少。

For t = 0.1 To 30

Selection.ShapeRange.IncrementLeft 20

h = 20 - 9.8 * t * t / 200

Selection.ShapeRange.IncrementTop -h

Application.Wait Now() + TimeValue("00:00:1") '系统暂停1秒;

Next t
…… ’在这里插入声象效果。
End sub

'以下可以插入声象效果和状态复原，方便下一次运行。
ActiveSheet.Shapes("Picture 19").Select
Selection.ShapeRange.IncrementTop -280# '爆炸，小图。

Application.Wait Now() + TimeValue("00:00:1") '系统暂停1秒;

ActiveSheet.Shapes("Object 9").Select
Selection.Verb Verb:=xlPrimary '出现炮声。
Application.Wait Now() + TimeValue("00:00:2") '系统暂停2秒;

ActiveSheet.Shapes("Picture 15").Select
Selection.ShapeRange.IncrementTop -280# ''爆炸，依次扩大。

Application.Wait Now() + TimeValue("00:00:3") '系统暂停1秒;

ActiveSheet.Shapes("Picture 15").Select
Selection.ShapeRange.IncrementTop 280# '撤消爆炸痕迹,图象复位。

ActiveSheet.Shapes("Picture 19").Select
Selection.ShapeRange.IncrementTop 280#

ActiveSheet.Shapes("Picture 6").Select '炮弹复位
Selection.ShapeRange.IncrementLeft -608.25
Selection.ShapeRange.IncrementTop 177#
End Sub

3. 求一款街机游戏，80-90年代，射击类的，人和各种昆虫作战，打子弹(可编程喷火)和扔雷（可变红色的雷），

这个是街机版的 怒

（上面那两个人就是拉尔夫和克拉克了，呵呵）。

为了吃红色手雷经常被坑命的啊。