VB实现贪吃蛇小游戏.docx

1、VB实现贪吃蛇小游戏VB实现贪吃蛇小游戏比较适合VB初学者，属原创作品图1图2图3如图1所示，布置控件，其中有4个timer控件，1个picture控件（底图），4个command控件（上下左右），10个label控件。其他功能都在程序里实现，其中贪吃蛇都是由点来组成的，初学者主要学习一下timer控件的应用，还有贪吃蛇拐弯怎么实现的。图2、图3是游戏视图。主程序：Public a, b, f As Double: Public i, j, c, d, e, g, h, z As IntegerDim aa(100) As Double: Dim bb(100) As DoublePrivat

2、e Sub Form_Load()a = 100: b = 300: c = 4 a、b定义第一个点（红点）位置，c能控制蓝点数量g = 2000: h = 2000Timer1.Interval = (200 - z * 30) 定义每个定时器间隔时间 0.2STimer2.Interval = (200 - z * 30)Timer3.Interval = (200 - z * 30)Timer4.Interval = (200 - z * 30)Timer5.Interval = 300Timer1.Enabled = True 初设一开始向右走Timer2.Enabled = Fals

3、eTimer3.Enabled = FalseTimer4.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() 向右走Picture1.Cls 没循环一次就清除上一次画的图像，要不就看不出运动了Picture1.DrawWidth = 10 定义画图粗细b = b + 100 b每次都加100，画图后坐标就变了aa(i) = abb(j) = bPicture1.PSet (b, a), vbRed 绘制第一个点（红）For k = 1 To c 此k-for循环从1到c，绘制c个蓝色点 If aa(99) = 0 Then 如果游戏刚开始，以下绘

4、制方法，一开始j=0，j-k为负，bb（j-k）与aa（j-k）数组无效，因此在j=c时单独绘制 If j = c And i = c Then f = 400 - 100 * (k - j) Picture1.PSet (f, 100), vbBlue Else Picture1.PSet (bb(j - k), aa(i - k), vbBlue 其他情况时，蓝点走过红点的轨迹 End If End If If aa(99) 0 Or bb(99) 0 Then 如果时j和i运行到99后变为0，则bb（0）为红点时，蓝点必须走bb（99）、bb（98）. If j = c And i =

5、100 Then d = d - 100 If e = 100 Then e = e - 100 Picture1.PSet (bb(d), aa(e), vbBlue Else Picture1.PSet (bb(j - k), aa(i - k), vbBlue End If End IfNext kIf b 4900 Or b 4900 Or a c Then 咬尾了就重新开始游戏，以下进行了数据重置和清零 For p = 1 To c If bb(j) = bb(j - p) And aa(i) = aa(i - p) Then j = -1: i = -1: b = 300: a =

6、 100: c = 4: z = 0 MsgBox (对不起！您咬尾了！接下来将重新开始游戏！) For o = 0 To 99 aa(o) = 0: bb(o) = 0 Next o Exit For End If Next pEnd Ifj = j + 1i = i + 1If j = 100 Or i = 100 Then j = 0: i = 0 j不能持续增长，有可能会溢出，现在另j到了100就变0End SubPrivate Sub Timer2_Timer() 向左走Picture1.ClsPicture1.DrawWidth = 10b = b - 100aa(i) = abb

7、(j) = bPicture1.PSet (b, a), vbRedFor k = 1 To c If aa(99) = 0 Then If j = c And i = c Then Picture1.PSet (400 - 100 * (k - j), 100), vbBlue Else Picture1.PSet (bb(j - k), aa(i - k), vbBlue End If End If If aa(99) 0 Or bb(99) 0 Then If j = c And i = 100 Then d = d - 100 If e = 100 Then e = e - 100 P

8、icture1.PSet (bb(d), aa(e), vbBlue Else Picture1.PSet (bb(j - k), aa(i - k), vbBlue End If End IfNext kIf b 4900 Or b 4900 Or a c Then For p = 1 To c If bb(j) = bb(j - p) And aa(i) = aa(i - p) Then j = -1: i = -1: b = 300: a = 100: c = 4: z = 0 MsgBox (对不起！您咬尾了！接下来将重新开始游戏！) For o = 0 To 99 aa(o) = 0

9、: bb(o) = 0 Next o Timer2.Enabled = False Timer1.Enabled = True Exit For End If Next pEnd Ifj = j + 1i = i + 1If j = 100 Or i = 100 Then j = 0: i = 0End SubPrivate Sub Timer3_Timer() 向下走Picture1.ClsPicture1.DrawWidth = 10a = a + 100aa(i) = abb(j) = bPicture1.PSet (b, a), vbRedFor k = 1 To c If aa(99

10、) = 0 Then If j = c And i = c Then Picture1.PSet (f, 100 - 100 * (k - j), vbBlue Else Picture1.PSet (bb(j - k), aa(i - k), vbBlue End If End If If aa(99) 0 Or bb(99) 0 Then If j = c And i = 100 Then d = d - 100 If e = 100 Then e = e - 100 Picture1.PSet (bb(d), aa(e), vbBlue Else Picture1.PSet (bb(j

11、- k), aa(i - k), vbBlue End If End IfNext kIf b 4900 Or b 4900 Or a c Then For p = 1 To c If bb(j) = bb(j - p) And aa(i) = aa(i - p) Then j = -1: i = -1: b = 300: a = 100: c = 4: z = 0 MsgBox (对不起！您咬尾了！接下来将重新开始游戏！) For o = 0 To 99 aa(o) = 0: bb(o) = 0 Next o Timer3.Enabled = False Timer1.Enabled = T

12、rue Exit For End If Next pEnd Ifj = j + 1i = i + 1If j = 100 Or i = 100 Then j = 0: i = 0End SubPrivate Sub Timer4_Timer() 向上走Picture1.ClsPicture1.DrawWidth = 10a = a - 100aa(i) = abb(j) = bPicture1.PSet (b, a), vbRedFor k = 1 To c If aa(99) = 0 Then If j = c And i = c Then Picture1.PSet (400 - 100

13、* (k - j), 100), vbBlue Else Picture1.PSet (bb(j - k), aa(i - k), vbBlue End If End If If aa(99) 0 Or bb(99) 0 Then If j = c And i = 100 Then d = d - 100 If e = 100 Then e = e - 100 Picture1.PSet (bb(d), aa(e), vbBlue Else Picture1.PSet (bb(j - k), aa(i - k), vbBlue End If End IfNext kIf b 4900 Or b

14、 4900 Or a c Then For p = 1 To c If bb(j) = bb(j - p) And aa(i) = aa(i - p) Then j = -1: i = -1: b = 300: a = 100: c = 4: z = 0 MsgBox (对不起！您咬尾了！接下来将重新开始游戏！) For o = 0 To 99 aa(o) = 0: bb(o) = 0 Next o Timer4.Enabled = False Timer1.Enabled = True Exit For End If Next pEnd Ifj = j + 1i = i + 1If j =

15、100 Or i = 100 Then j = 0: i = 0End SubPrivate Sub Command1_Click() 上If Timer3.Enabled = False ThenTimer2.Enabled = FalseTimer1.Enabled = FalseTimer4.Enabled = TrueEnd IfEnd Sub Private Sub Command2_Click() 下If Timer4.Enabled = False And j c ThenTimer1.Enabled = FalseTimer2.Enabled = FalseTimer3.Ena

16、bled = TrueEnd IfEnd SubPrivate Sub Command3_Click() 左If Timer1.Enabled = False ThenTimer3.Enabled = FalseTimer4.Enabled = FalseTimer2.Enabled = TrueEnd IfEnd SubPrivate Sub Command4_Click() 右If Timer2.Enabled = False ThenTimer4.Enabled = FalseTimer3.Enabled = FalseTimer1.Enabled = TrueEnd IfEnd Sub

17、Private Sub picture1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 38 And Timer3.Enabled = False Then 上Timer2.Enabled = FalseTimer3.Enabled = FalseTimer1.Enabled = FalseTimer4.Enabled = TrueEnd IfIf KeyCode = 40 And Timer4.Enabled = False And j c Then 下Timer2.Enabled = FalseTimer1.Enable

18、d = FalseTimer4.Enabled = FalseTimer3.Enabled = TrueEnd IfIf KeyCode = 37 And Timer1.Enabled = False Then 左Timer1.Enabled = FalseTimer3.Enabled = FalseTimer4.Enabled = FalseTimer2.Enabled = TrueEnd IfIf KeyCode = 39 And Timer2.Enabled = False Then 右Timer2.Enabled = FalseTimer3.Enabled = FalseTimer4.

19、Enabled = FalseTimer1.Enabled = TrueEnd IfEnd SubPrivate Sub Timer5_Timer()Picture1.DrawWidth = 7Picture1.PSet (g, h), RGB(50, 50, 0)If b = g And a = h Then g = (Int(Rnd * 48) + 1) * 100 h = (Int(Rnd * 48) + 1) * 100 c = c + 1End IfIf c = 30 Then z = z + 1 j = 0: i = 0: b = 300: a = 100: c = 4 MsgBo

20、x (恭喜您！进入下一关！) For o = 0 To 99 aa(o) = 0: bb(o) = 0 Next o Timer4.Enabled = False Timer3.Enabled = False Timer2.Enabled = False Timer1.Enabled = TrueEnd IfIf p = 6 ThenMsgBox (您真是快手王啊！重新开始吧！) j = -1: i = -1: b = 300: a = 100: c = 4: z = 0 MsgBox (对不起！您咬尾了！接下来将重新开始游戏！) For o = 0 To 99 aa(o) = 0: bb(o) = 0 Next oEnd IfTimer1.Interval = (200 - z * 30) 定义每个定时器间隔时间 0.2STimer2.Interval = (200 - z * 30)Timer3.Interval = (200 - z * 30)Timer4.Interval = (200 - z * 30)Label3.Caption = gLabel4.Caption = hLabel5.Caption = c + 1Label6.Caption = z + 1End Sub主程序结束