VB编写小游戏

怎样用vb编写贪吃蛇游戏~

1、向上前进的时候，对代码进行一个详解。

2、向上前进时，x坐标不动，y坐标-1，如果下一个有食物 下一个位置的坐标和食物的坐标相同。把食物转化成蛇的身体。

3、如果蛇吃到了食物，就开始加速，并且食物的得分+2。

4、如果没有吃到食物，蛇可以正常往前走，恢复原来的方块。

5、向下前进时，x坐标不动，y坐标+1。

6、如果有食物就把食物转化为身体。


7、如果没有吃到食物，蛇可以正常往前走，恢复原来的方块。

Private Sub Command0_Click()
Dim x As String
x = "●"
If Command2.Caption = x Then
Command2.Caption = "○"
Else
Command2.Caption = "●"
End If
If Command4.Caption = x Then
Command4.Caption = "○"
Else
Command4.Caption = "●"
End If
If Command6.Caption = x Then
Command6.Caption = "○"
Else
Command6.Caption = "●"
End If
If Command8.Caption = x Then
Command8.Caption = "○"
Else
Command8.Caption = "●"
End If
End Sub
Private Sub Command1_Click()
Dim x As String
x = "●"
If Command8.Caption = x Then
Command8.Caption = "○"
Else
Command8.Caption = "●"
End If
If Command2.Caption = x Then
Command2.Caption = "○"
Else
Command2.Caption = "●"
End If
If Command0.Caption = x Then
Command0.Caption = "○"
Else
Command0.Caption = "●"
End If
End Sub
Private Sub Command2_Click()
Dim x As String
x = "●"
If Command0.Caption = x Then
Command0.Caption = "○"
Else
Command0.Caption = "●"
End If
If Command1.Caption = x Then
Command1.Caption = "○"
Else
Command1.Caption = "●"
End If
If Command3.Caption = x Then
Command3.Caption = "○"
Else
Command3.Caption = "●"
End If
End Sub
Private Sub Command3_Click()
Dim x As String
x = "●"
If Command0.Caption = x Then
Command0.Caption = "○"
Else
Command0.Caption = "●"
End If
If Command2.Caption = x Then
Command2.Caption = "○"
Else
Command2.Caption = "●"
End If
If Command4.Caption = x Then
Command4.Caption = "○"
Else
Command4.Caption = "●"
End If
End Sub
Private Sub Command4_Click()
Dim x As String
x = "●"
If Command0.Caption = x Then
Command0.Caption = "○"
Else
Command0.Caption = "●"
End If
If Command3.Caption = x Then
Command3.Caption = "○"
Else
Command3.Caption = "●"
End If
If Command5.Caption = x Then
Command5.Caption = "○"
Else
Command5.Caption = "●"
End If
End Sub
Private Sub Command5_Click()
Dim x As String
x = "●"
If Command0.Caption = x Then
Command0.Caption = "○"
Else
Command0.Caption = "●"
End If
If Command4.Caption = x Then
Command4.Caption = "○"
Else
Command4.Caption = "●"
End If
If Command6.Caption = x Then
Command6.Caption = "○"
Else
Command6.Caption = "●"
End If
End Sub
Private Sub Command6_Click()
Dim x As String
x = "●"
If Command0.Caption = x Then
Command0.Caption = "○"
Else
Command0.Caption = "●"
End If
If Command5.Caption = x Then
Command5.Caption = "○"
Else
Command5.Caption = "●"
End If
If Command7.Caption = x Then
Command7.Caption = "○"
Else
Command7.Caption = "●"
End If
End Sub
Private Sub Command7_Click()
Dim x As String
x = "●"
If Command0.Caption = x Then
Command0.Caption = "○"
Else
Command0.Caption = "●"
End If
If Command6.Caption = x Then
Command6.Caption = "○"
Else
Command6.Caption = "●"
End If
If Command8.Caption = x Then
Command8.Caption = "○"
Else
Command8.Caption = "●"
End If
End Sub
Private Sub Command8_Click()
Dim x As String
x = "●"
If Command0.Caption = x Then
Command0.Caption = "○"
Else
Command0.Caption = "●"
End If
If Command7.Caption = x Then
Command7.Caption = "○"
Else
Command7.Caption = "●"
End If
If Command1.Caption = x Then
Command1.Caption = "○"
Else
Command1.Caption = "●"
End If
End Sub
Private Sub yun_Click()
If Command0.Caption = x & Command1.Caption = x And Command2.Caption = x And Command3.Caption = x And Command4.Caption = x And Command5.Caption = x And Command6.Caption = x And Command7.Caption = x And Command8.Caption = x Then
Label2.Caption = "成功了~~~~！！！祝贺啊！！！"
Else
Label2.Caption = "又没完成！乱点个嘛啊。。"
End If
End Sub

窗体放两个Label控件，一个Timer控件：
Dim n As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
If Label1.Top > 0 Then Label1.Top = Label1.Top - 50
Case vbKeyDown
If Label1.Top < ScaleHeight - Label1.Height Then Label1.Top = Label1.Top + 50
Case vbKeyLeft
If Label1.Left > 0 Then Label1.Left = Label1.Left - 50
Case vbKeyRight
If Label1.Left < ScaleWidth - Label1.Width Then Label1.Left = Label1.Left + 50
End Select
Call check
End Sub
Private Sub check()
If Abs(Label1.Top - Label2.Top) <= 50 And Abs(Label1.Left - Label2.Left) <= 50 Then
n = n + 1
Label2.Move Rnd * ScaleWidth, Rnd * ScaleHeight
End If
End Sub
Private Sub Form_Load()
KeyPreview = True
Randomize
With Label1
.Caption = ""
.BackColor = vbWhite
.Move (ScaleWidth - .Width) / 2, (ScaleHeight - .Height) / 2, 500, 500
End With
With Label2
.Caption = ""
.BackColor = vbYellow
.Move Rnd * ScaleWidth, Rnd * ScaleHeight, 500, 500
End With
Timer1.Interval = 60000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
MsgBox "这局对准了" & n & "次黄方块"
Unload Me
End Sub

---

VB编写小游戏视频