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 Integer Dim aa(100) As Double: Dim bb(100) As Double

Private Sub Form_Load()

a = 100: b = 300: c = 4 'a、b定义第一个点（红点）位置，c能控制蓝点数量 g = 2000: h = 2000

Timer1.Interval = (200 - z * 30) '定义每个定时器间隔时间 0.2S Timer2.Interval = (200 - z * 30) Timer3.Interval = (200 - z * 30) Timer4.Interval = (200 - z * 30) Timer5.Interval = 300

Timer1.Enabled = True '初设一开始向右走 Timer2.Enabled = False Timer3.Enabled = False Timer4.Enabled = False

End Sub

Private Sub Timer1_Timer() '向右走

Picture1.Cls '没循环一次就清除上一次画的图像，要不就看不出运动了

Picture1.DrawWidth = 10 '定义画图粗细

b = b + 100 'b每次都加100，画图后坐标就变了 aa(i) = a bb(j) = b

Picture1.PSet (b, a), vbRed '绘制第一个点（红）

For k = 1 To c '此k-for循环从1到c，绘制c个蓝色点

If aa(99) = 0 Then '如果游戏刚开始，以下绘制方法，一开始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 <= c Then

d = 100 - k + j: e = 100 - k + i '此行与以下两行作用就是为了实现蓝点绘制时混合了...bb（0）、bb（99）...的情况 If d >= 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 If Next k

If b > 4900 Or b < 100 Or a > 4900 Or a < 100 Then '碰墙则重新开始，以下进行了数据重置和清零

j = -1: i = -1: b = 300: a = 100: c = 4: z = 0 '如果碰墙了，j=-1时因为运行完了 后面有j=j+1，这样j就等于0了，把a、b重置

MsgBox (\对不起！您碰墙了！接下来将重新开始游戏！\ For o = 0 To 99

aa(o) = 0: bb(o) = 0 '把aa（）、bb（）数组中

所有的数清零 Next o End If

If j > 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 Exit For End If Next p End If

j = j + 1 i = i + 1

If j = 100 Or i = 100 Then j = 0: i = 0 'j不能持续增长，有可能会溢出，现在另j到了100就变0 End Sub

Private Sub Timer2_Timer() '向左走 Picture1.Cls

Picture1.DrawWidth = 10 b = b - 100 aa(i) = a bb(j) = b

Picture1.PSet (b, a), vbRed

For 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 <= c Then

d = 100 - k + j: e = 100 - k + i

If d >= 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 If Next k

If b > 4900 Or b < 100 Or a > 4900 Or a < 100 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

Timer2.Enabled = False Timer1.Enabled = True End If

If j > 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

Timer2.Enabled = False Timer1.Enabled = True Exit For End If Next p End If

j = j + 1 i = i + 1

If j = 100 Or i = 100 Then j = 0: i = 0 End Sub

Private Sub Timer3_Timer() '向下走 Picture1.Cls

Picture1.DrawWidth = 10 a = a + 100 aa(i) = a

本文来源：https://www.bwwdw.com/article/gugg.html