2、选择1进入游戏，可以看到左面的游戏界面，还有旁边的说明模块
3、如果死掉的话，游戏就会结束，就会有选择阶段。
4、选择2，进行游戏的说明，需要对界面的设置，还有清屏等功能。
前期准备阶段
1首先，大家需要做一个蛇的身体，就是在界面上显示一条蛇的样子。
2下面是代码展示模块，通过输出语句组成了大家想要的蛇的样子。
3大家需要一个开始界面所以现在来绘制开始游戏界面
4画出开始游戏菜单的边框
5画出游戏菜单中间的字体以及选项框
贪吃蛇Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Dim C As LongIf KeyCode = 27 Then EndIf KeyCode = 32 ThenIf Timer1.Enabled = True ThenTimer1.Enabled = FalseLabel1.Visible = TrueElseTimer1.Enabled = TrueLabel1.Visible = FalseEnd IfEnd IfC = UBound(She)If GFangXiang = True Then Exit SubSelect Case KeyCodeCase 37If She(C).F = 2 Then Exit SubShe(C).F = 0GFangXiang = TrueCase 38If She(C).F = 3 Then Exit SubShe(C).F = 1GFangXiang = TrueCase 39If She(C).F = 0 Then Exit SubShe(C).F = 2GFangXiang = TrueCase 40If She(C).F = 1 Then Exit SubShe(C).F = 3GFangXiang = TrueEnd SelectEnd SubPrivate 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 SubPrivate Sub Form_Resize()On Error GoTo 1:With MeIf .WindowState <> 1 Then.Cls.ScaleMode = 3HWB = .ScaleHeight / .ScaleWidth.ScaleWidth = 24.ScaleHeight = 24Label1.Move (Me.ScaleWidth – Label1.Width) / 2, (Me.ScaleHeight – Label1.Height) / 2HuaTuMe.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BFEnd IfEnd With1:End SubPrivate Sub Timer1_Timer()Dim C As Long, I As LongOn Error GoTo 2:QingChuC = UBound(She)Select Case She(C).FCase 0If ZhuangTai(She(C).X – 1, She(C).Y) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C – 1).FShe(C).X = She(C – 1).X – 1She(C).Y = She(C – 1).YChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X – 1, She(C).Y) = 1 ThenGoTo 2:End IfCase 1If ZhuangTai(She(C).X, She(C).Y – 1) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C – 1).FShe(C).X = She(C – 1).XShe(C).Y = She(C – 1).Y – 1ChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X, She(C).Y – 1) = 1 ThenGoTo 2:End IfCase 2If ZhuangTai(She(C).X + 1, She(C).Y) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C – 1).FShe(C).X = She(C – 1).X + 1She(C).Y = She(C – 1).YChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X + 1, She(C).Y) = 1 ThenGoTo 2:End IfCase 3If ZhuangTai(She(C).X, She(C).Y + 1) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C – 1).FShe(C).X = She(C – 1).XShe(C).Y = She(C – 1).Y + 1ChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X, She(C).Y + 1) = 1 ThenGoTo 2:End IfEnd SelectZhuangTai(She(0).X, She(0).Y) = 0For I = 0 To CSelect Case She(I).FCase 0She(I).X = She(I).X – 1Case 1She(I).Y = She(I).Y – 1Case 2She(I).X = She(I).X + 1Case 3She(I).Y = She(I).Y + 1End SelectNextTiaoZheng1:GFangXiang = FalseZhuangTai(She(C).X, She(C).Y) = 1HuaTuExit Sub2:If MsgBox(“游戏结束，点“是”重新开始游戏，点“否””, vbYesNo, “贪吃蛇”) = vbYes ThenChuShiHuaElseEndEnd IfEnd SubPrivate 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 SubPrivate 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 SubPrivate 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 SubPrivate Sub TiaoZheng()Dim I As LongFor I = 0 To UBound(She) – 1She(I).F = She(I + 1).FNextEnd SubPrivate 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
窗体放两个Label控件，一个Timer控件：Dim n As IntegerPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Select Case KeyCodeCase vbKeyUpIf Label1.Top > 0 Then Label1.Top = Label1.Top – 50Case vbKeyDownIf Label1.Top 0 Then Label1.Left = Label1.Left – 50Case vbKeyRightIf Label1.Left
1、基础语言阶段：常用的编程语言有，C,C++,JAVA，其中最广泛被使用的就是C++，C++语言是一切游戏程序的基础，换而言之，一个优秀的游戏程序员，必须非常熟练掌握并应用C++.
2、数据结构：在掌握C++之后，需要进行数据结构的学习，形象的讲，就是那么一大堆数据，如何去有序的排列其结构。通过对数据结构的学习，便能够开始阅读他人编写的代码，尝试 开发简单的程序，可以实现一些编程者自己的构想，是每个程序员必须掌握的技巧。
3、“库”的学习及应用：最常用的有MFC（微软公司类库）,GUI(图形界面库），当然“库”的知识及功能非常庞大，通常来说，熟练掌握一部分经常涉及的知识即可。
通过以上三点的学习，c++基础语言，数据结构，库的使用。你基本已经可以自己独立制作一个小游戏了，比如贪吃蛇，俄罗斯方块等等。
然后，将进入的高阶阶段，也将是直接涉及到游戏程序相关知识。
4、游戏程序对于硬件的操纵。比如，内存，CPU，显卡，这将会涉及到一些数学知识，比如立体几何，线性代数等，但是也不用惊慌，并不是非常困难。通过对硬件的熟练操纵，才能将游戏的画面，流畅度等等充分给予表达。
5、对于相关知识的学习。包括物理，脚本，美术等等。不需要深入了解，但相关知识的丰富对于你将来做游戏程序会有直接帮助。
6、对于游戏引擎的熟悉及使用。游戏引擎一般包括渲染器，内存管理器，组织管理几部分。对游戏的画面做出渲染，高效使用内存以及如何控制动画播放等功能。熟悉引擎的使用，也将对于游戏程序员有直观的帮助。
总结，以上就是关于小游戏代码编程以及c语言如何编写贪吃蛇小游戏基础的经验分享，卡友有疑问可以加wx或扫码加群！
