怎么用VB6.0写一个贪吃蛇代码，要可以记录蛇的长度

下面是一个简单的VB6.0贪吃蛇代码实现，可以记录蛇的长度：

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
     ' 按键事件
     Select Case KeyCode
         Case vbKeyUp
             If Direction <> 2 Then Direction = 1
         Case vbKeyDown
             If Direction <> 1 Then Direction = 2
         Case vbKeyLeft
             If Direction <> 4 Then Direction = 3
         Case vbKeyRight
             If Direction <> 3 Then Direction = 4
     End Select
 End Sub

 Private Sub Form_Load()
     ' 加载事件
     Randomize
     Timer1.Interval = 100
     Width = 3000
     Height = 3000
     Me.Left = 0
     Me.Top = 0
     Me.BackColor = vbBlack
     Me.KeyPreview = True
     Me.ScaleMode = vbPixels
     ReDim Snake(100, 2)
     Snake(0, 0) = 5 * 15
     Snake(0, 1) = 5 * 15
     Snake(0, 2) = 1
     FoodX = Int(Rnd() * 50) * 15
     FoodY = Int(Rnd() * 50) * 15
     DrawSnake
 End Sub

 Sub DrawSnake()
     ' 绘制蛇
     Dim i As Integer
     Dim X As Integer
     Dim Y As Integer
     For i = SnakeLength To 0 Step -1
         X = Snake(i, 0)
         Y = Snake(i, 1)
         If i = SnakeLength Then
             Me.PSet (X, Y), vbRed
         Else
             Me.PSet (X, Y), vbGreen
         End If
     Next i
     Me.PSet (FoodX, FoodY), vbYellow
 End Sub

 Sub MoveSnake()
     ' 移动蛇
     Dim i As Integer
     Dim X As Integer
     Dim Y As Integer
     For i = SnakeLength To 1 Step -1
         Snake(i, 0) = Snake(i - 1, 0)
         Snake(i, 1) = Snake(i - 1, 1)
         Snake(i, 2) = Snake(i - 1, 2)
     Next i
     X = Snake(0, 0)
     Y = Snake(0, 1)
     If Direction = 1 Then
         Y = Y - 15
     ElseIf Direction = 2 Then
         Y = Y + 15
     ElseIf Direction = 3 Then
         X = X - 15
     ElseIf Direction = 4 Then
         X = X + 15
     End If
     Snake(0, 0) = X
     Snake(0, 1) = Y
     If X < 0 Or X > Me.ScaleWidth Or Y < 0 Or Y > Me.ScaleHeight Then
         MsgBox "Game Over!"
         End
     End If
     If X = FoodX And Y = FoodY Then
         SnakeLength = SnakeLength + 1
         Snake(SnakeLength, 2) = Snake(SnakeLength - 1, 2) + 1
         FoodX = Int(Rnd() * 50) * 15
         FoodY = Int(Rnd() * 50) * 15
     End If
 End Sub

 Private Sub Timer1_Timer()
     ' 定时器事件，每隔一段时间更新一次
     MoveSnake
     DrawSnake
 End Sub

在这个代码中，我们使用了一个二维数组来存储蛇的位置，Snake(i, 0)表示第i节蛇身的横坐标，Snake(i, 1)表示第i节蛇身的纵坐标，Snake(i, 2)表示第i节蛇身的长度。

我们通过绑定窗体的键盘事件来控制蛇的移动方向，每隔一段时间通过定时器事件来更新蛇的位置并重新绘制蛇。

当蛇头碰到边界或者碰到食物时，我们需要更新蛇的长度并重新生成一个食物。通过这种方式可以记录蛇的长度。