VB做游戏用DirectX是首选了，DirectX的体系很庞大，几乎Windows平台下的游戏都是基于DirectX开发的。 可以说开发游戏DirectX必学，推荐先看以下《Windows游戏开发大师技巧》等有了2D基础再看《3D游戏编程大师技巧》
题目问的这么大...
2，怎么用VB编写一个打飞机的小游戏用Timer控件隔一段时间更新飞机、炮弹等位置（炮弹应是粒子系统），并且需要用到在Form或者什么东东上面绘图的技术。需要知道每个游戏对象在屏幕中的位置，进行2D平面碰撞检测。感觉这样的东东用VB不是很好，面向对象程序要更好一些。可以考虑VB中的结构，达到类似面向对象编程的效果。
3，怎么用VB编游戏VB游戏源码http://www.baobaoxiaoyuan/html/diannaogaoshou/vb/20071214/161344.html
用VB DX 编程！到的空间去看看，我正在用VB作2D游戏那！
上面的有病毒
先画出界面，然后再编逻辑就好了。
VB是面向对象的编程软件！所以你制作游戏也不会说是很难只是比较麻烦而已！如果是怕麻烦建议别学了！如果不怕麻烦可以进群23400043在里面问人家就可以了！还有相关的网站的啊！
4，小游戏vb编程123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204贪吃蛇Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Dim C As LongIf KeyCode = 27 Then EndIf KeyCode = 32 Then If Timer1.Enabled = True Then Timer1.Enabled = False Label1.Visible = True Else Timer1.Enabled = True Label1.Visible = False End IfEnd IfC = UBound(She)If GFangXiang = True Then Exit SubSelect Case KeyCodeCase 37 If She(C).F = 2 Then Exit Sub She(C).F = 0 GFangXiang = TrueCase 38 If She(C).F = 3 Then Exit Sub She(C).F = 1 GFangXiang = TrueCase 39 If She(C).F = 0 Then Exit Sub She(C).F = 2 GFangXiang = TrueCase 40 If She(C).F = 1 Then Exit Sub She(C).F = 3 GFangXiang = TrueEnd SelectEnd Sub Private Sub Form_Load()Me.AutoRedraw = TrueMe.BackColor = &HC000&Me.FillColor = 255Me.FillStyle = 0Me.ScaleWidth = 24Me.ScaleHeight = 24Me.WindowState = 2Set Timer1 = Controls.Add("VB.Timer", "Timer1")Set Label1 = Controls.Add("VB.Label", "Label1")Label1.AutoSize = TrueLabel1.BackStyle = 0Label1 = "暂停"Label1.ForeColor = RGB(255, 255, 0)Label1.FontSize = 50ChuShiHuaEnd Sub Private Sub Form_Resize()On Error GoTo 1:With Me If .WindowState <> 1 Then .Cls .ScaleMode = 3 HWB = .ScaleHeight / .ScaleWidth .ScaleWidth = 24 .ScaleHeight = 24 Label1.Move (Me.ScaleWidth - Label1.Width) / 2, (Me.ScaleHeight - Label1.Height) / 2 HuaTu Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BF End IfEnd With1:End Sub Private Sub Timer1_Timer()Dim C As Long, I As LongOn Error GoTo 2:QingChuC = UBound(She)Select Case She(C).FCase 0 If ZhuangTai(She(C).X - 1, She(C).Y) = 2 Then C = C + 1 ReDim Preserve She(C) She(C).F = She(C - 1).F She(C).X = She(C - 1).X - 1 She(C).Y = She(C - 1).Y ChanShengShiWu GoTo 1: ElseIf ZhuangTai(She(C).X - 1, She(C).Y) = 1 Then GoTo 2: End IfCase 1 If ZhuangTai(She(C).X, She(C).Y - 1) = 2 Then C = C + 1 ReDim Preserve She(C) She(C).F = She(C - 1).F She(C).X = She(C - 1).X She(C).Y = She(C - 1).Y - 1 ChanShengShiWu GoTo 1: ElseIf ZhuangTai(She(C).X, She(C).Y - 1) = 1 Then GoTo 2: End IfCase 2 If ZhuangTai(She(C).X + 1, She(C).Y) = 2 Then C = C + 1 ReDim Preserve She(C) She(C).F = She(C - 1).F She(C).X = She(C - 1).X + 1 She(C).Y = She(C - 1).Y ChanShengShiWu GoTo 1: ElseIf ZhuangTai(She(C).X + 1, She(C).Y) = 1 Then GoTo 2: End IfCase 3 If ZhuangTai(She(C).X, She(C).Y + 1) = 2 Then C = C + 1 ReDim Preserve She(C) She(C).F = She(C - 1).F She(C).X = She(C - 1).X She(C).Y = She(C - 1).Y + 1 ChanShengShiWu GoTo 1: ElseIf ZhuangTai(She(C).X, She(C).Y + 1) = 1 Then GoTo 2: End IfEnd SelectZhuangTai(She(0).X, She(0).Y) = 0For I = 0 To C Select Case She(I).F Case 0 She(I).X = She(I).X - 1 Case 1 She(I).Y = She(I).Y - 1 Case 2 She(I).X = She(I).X + 1 Case 3 She(I).Y = She(I).Y + 1 End SelectNextTiaoZheng1:GFangXiang = FalseZhuangTai(She(C).X, She(C).Y) = 1HuaTuExit Sub2:If MsgBox("游戏结束，点“是”重新开始游戏，点“否”", vbYesNo, "贪吃蛇") = vbYes Then ChuShiHuaElse EndEnd IfEnd Sub Private Sub ChuShiHua()Me.ClsTimer1.Enabled = TrueTimer1.Interval = 200Erase ZhuangTaiReDim She(2)She(0).F = 2She(0).X = 9She(0).Y = 11ZhuangTai(9, 11) = 1She(1).F = 2She(1).X = 10She(1).Y = 11ZhuangTai(10, 11) = 1She(2).F = 2She(2).X = 11She(2).Y = 11ZhuangTai(11, 11) = 1HuaTuChanShengShiWuEnd Sub Private Sub QingChu()Dim I As LongFor I = 0 To UBound(She) Me.Line (She(I).X, She(I).Y)-(She(I).X + 1, She(I).Y + 1), Me.BackColor, BFNextEnd Sub Private Sub HuaTu()Dim I As LongFor I = 0 To UBound(She) Me.Circle (She(I).X + 0.5, She(I).Y + 0.5), 0.49, RGB(255, 255, 0), , , HWBNextEnd Sub Private Sub TiaoZheng()Dim I As LongFor I = 0 To UBound(She) - 1 She(I).F = She(I + 1).FNextEnd Sub Private Sub ChanShengShiWu()Randomize Timer1:X = Int(Rnd * 24)Y = Int(Rnd * 24)If ZhuangTai(X, Y) > 0 Then GoTo 1:ZhuangTai(X, Y) = 2Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BFEnd Sub
5，用vb编一个简单的游戏代码要详细说绝对不行有点绝。但vb不适合用来开发手机程序，vb开发软件工作量比较小，但做出来的软件代码效率都比较低，尤其是基于图形界面的游戏，而手机的cpu和内存资源又比较有限。现在手机程序一般是c语言体统的语言开发的，开发者能够精确掌握和控制程序占用的资源。你要是想用vb开发手机程序，不是不行，理论上可行。你首先需要设计一款手机，然后做出你自己的支持vb的手机固件，就可以用vb开发游戏啦~
说绝对不行有点绝。但vb不适合用来开发手机程序，vb开发软件工作量比较小，但做出来的软件代码效率都比较低，尤其是基于图形界面的游戏 ，而手机的cpu和内存资源又比较有限。现在手机程序一般是c语言体统的语言开发的，开发者能够精确掌握和控制程序占用的资源。你要是想用vb开发手机程序，不是不行，理论上可行。你首先需要设计一款手机，然后做出你自己的支持vb的手机固件，就可以用vb开发游戏啦~
6，如何编写一套完整的VB小游戏程序楼上的朋友所说个人认为一些纰漏.第一,不要在设计时经常改动设计方案,否则工期会延误. 难道在编码和设计的时候经常改动? 在设计的时候改动与后期的改动谁会带来比较大的损失呢?况且软件危机是怎样产生的? 这是软件工程出现的原因吧,所以首先分析好你的游戏框架,多花时间分析上!.第二,网络版则必须写 软件设计概要书 和 用户使用说明书...任何上规模的软件项目可以不写说明书? 具体点吧,保留下最本质的数据流图,更多的文档资料所带来的结果就是让你的软件更容易维护,即可测性,可修改性,可理解性都必须具备..如果只是几百或者1千行并且不是太复杂的小游戏的话,并且不希望非常大的扩展下去,那就随便画画草图脑子有个大概思路就差不多可以开始了.如果楼主想用vb做,那可能不太合适,本人也只是用过它做过一些俄罗斯方块,贪食蛇之类的小游戏还有类似斗地主那样的牌类游戏. 简单的说吧,首先你要知道你想做什么,并且可以用VB实现吗?如果可以继续分析,怎样做? 用什么样的技术?等确定了之后,大概的将编码写在纸上,如果自己觉得逻辑合适就将其输入电脑运行之,并在输入电脑运行之后不段调试尽量多找一些难发现的错误..
呵呵，我用VB编过一个贪吃蛇，``你要不要，但是代码可能不是很经典， 因为那是我刚学编程时做的一个```
画个text1和command1private sub command1_click()dim a as longa = rnd * 100msgbox iif(a = val(text1), "你猜对了，数字是:" & a, "你猜错了，正确答案是:" & a)end sub
不管你拿那种语言编游戏 你必须知道游戏需要的参数 如果是单机版你最后先把设计思路和目的想清楚,不要在设计时经常改动设计方案,否则工期会延误.如果是网络版则必须写 软件设计概要书 和 用户使用说明书 别看麻烦但是对你以后的开发很有帮助!
本文地址：游戏攻略频道 https://www.hkm168.com/game/1115106.html，易企推百科一个免费的知识分享平台，本站部分文章来网络分享，本着互联网分享的精神，如有涉及到您的权益，请联系我们删除，谢谢！
相关阅读
