求翻译，一个贪吃蛇源码，本人初学看不懂。

干 不能贴代码 谁能帮忙留个油箱 或者教我怎么才能看懂也行

我倒是有个比较简单的类似于贪食蛇的游戏源码，带注释的。在http://www.pen88.com/download/game.rar
你那个是论坛上以前发布的那个么？你可以贴到自己的百度空间上，这样大家就都可以看到了

谢谢
我看看

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Dim nieuw As Boolean, level As Long
Dim startpositie(1) As Long
Dim sLevel(36) As String
Dim sNieuwLevel(17) As String
Dim X1 As Long, Y1 As Long
Dim keuze As Long, klik As Boolean
Private Sub OnStart(Index As Integer)
 Select Case Index
 Case 0
 With Theme
 .Top = 0
 .Left = 0
 .Height = Me.ScaleHeight
 .Width = Me.ScaleWidth
 .SethWndRgn Me
 End With
 End Select
End Sub
Private Sub Form_Load()
 Call OnStart(0)
 picVeld.Cls: Set picVeld.Picture = Nothing
 
 For Y = 0 To picVeld.Height Step 15
 picVeld.Line (0, Y)-(picVeld.Width, Y), &HFFFFFF
 Next Y
 For X = 0 To picVeld.Width Step 15
 picVeld.Line (X, 0)-(X, picVeld.Height), &HFFFFFF
 Next X
 For X = 1 To picVeld.Width Step 15
 BitBlt picVeld.hDC, X, 1, 14, 14, pic(1).hDC, 0, 0, vbSrcCopy
 BitBlt picVeld.hDC, X, picVeld.Height - 15, 14, 14, pic(1).hDC, 0, 0, vbSrcCopy
 Next X
 For Y = 1 To picVeld.Height Step 15
 BitBlt picVeld.hDC, 1, Y, 14, 14, pic(1).hDC, 0, 0, vbSrcCopy
 BitBlt picVeld.hDC, picVeld.Width - 15, Y, 14, 14, pic(1).hDC, 0, 0, vbSrcCopy
 Next Y
 Set picVeld.Picture = picVeld.Image: Cls
 
 MenuLevelLaden
 
 NieuweMap
 keuze = 1
End Sub
Private Sub MenuLevelLaden()
 For i = frmMenu.mnuOpenen.Count - 1 To 1 Step -1: Unload frmMenu.mnuOpenen(i): Unload frmMenu.mnuVerwijderen(i): Next i
 For i = 1 To 99
 If Dir$(App.Path & "\Levels\Level " & i & ".dat") <> vbNullString Then


 If i > 1 Then Load frmMenu.mnuOpenen(i - 1): Load frmMenu.mnuVerwijderen(i - 1)
 frmMenu.mnuOpenen(i - 1).Caption = "关口 " & i: frmMenu.mnuVerwijderen(i - 1).Caption = "关口 " & i
 frmMenu.mnuOpenen(i - 1).Tag = i: frmMenu.mnuVerwijderen(i - 1).Tag = i
 frmMenu.mnuOpenen(i - 1).Enabled = True: frmMenu.mnuVerwijderen(i - 1).Enabled = True
 Else: Exit For
 End If
 Next i
End Sub
Public Sub mnuEditor1_Click(Index As Integer)
 Select Case Index
 Case 0
 NieuweMap
 Case 1
 Case 2
 Case 3
 If LevelOpslaan = True Then
 Caption = "Leveleditor - [empty map - level " & level & ".dat]"
 Theme.Caption = "关口编辑器 - [现有地图 - 关口 " & level & ".dat]"
 MenuLevelLaden
 nieuw = False
 MsgBox "Do you think this is a nice level? Send it to h.bloemhof@planet.nl and I will put it in the next update!", vbInformation, "Leveleditor"
 End If
 Case 4
 Case 5
 Case 6
 Case 7
 Unload Me
 End Select
End Sub
Private Sub NieuweMap()
 sLevel(0) = "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM"
 sLevel(1) = "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM"
 For i = 2 To 33
 sLevel(i) = "MM........................................................MM"
 Next i
 sLevel(34) = "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM"
 sLevel(35) = "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM"
 
 Caption = "关口编辑器 - [新建地图 - 关口 " & frmMenu.mnuOpenen.Count + 1 & ".dat]"
 Theme.Caption = "关口编辑器 - [新建地图 - 关口 " & frmMenu.mnuOpenen.Count + 1 & ".dat]"
 level = frmMenu.mnuOpenen.Count + 1
 nieuw = True
 frmMenu.mnuEditor1(3).Enabled = False: TLB.Buttons(5).Enabled = True
 picVeld.Cls
End Sub


Public Sub mnuOpenen_Click(Index As Integer)
 LevelLaden Index + 1
 Caption = "关口编辑器 - [现有地图 - 关口 " & Index + 1 & ".dat]"
 Theme.Caption = "关口编辑器 - [现有地图 - 关口 " & Index + 1 & ".dat]"
 nieuw = False
End Sub
Public Sub mnuVerwijderen_Click(Index As Integer)
 LevelVerwijderen Index + 1
End Sub
Private Sub Form_Resize()
 Call OnStart(0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
 frmNibbles.Show
End Sub
Private Sub lblMenu_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
 Select Case Index
 Case 0
 PopupMenu frmMenu.mnuEditor, , picMenu.Left + lblMenu(Index).Left, picMenu.Top + lblMenu(Index).Top + lblMenu(Index).Height + 2
 End Select
End Sub
Private Sub picVeld_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 klik = True
 WijzigVeld
End Sub
Private Sub WijzigVeld()
 
 If Not X1 <= 0 And Not X1 >= 29 And Not Y1 <= 0 And Not Y1 >= 17 Then
 BitBlt picVeld.hDC, X1 * 15 + 1, Y1 * 15 + 1, 14, 14, pic(keuze).hDC, 0, 0, vbSrcCopy
 
 Select Case keuze
 Case 0
 If startpositie(0) = X1 And startpositie(1) = Y1 Then
 frmMenu.mnuEditor1(3).Enabled = False: TLB.Buttons(5).Enabled = True
 End If
 
 If Not Mid$(sLevel(Y1 * 2), (X1 + 1) * 2, 1) = "." Then
 sLevel(Y1 * 2) = Left$(sLevel(Y1 * 2), (X1 + 1) * 2 - 2) & ".." & Mid$(sLevel(Y1 * 2), (X1 + 1) * 2 + 1)
 sLevel(Y1 * 2 + 1) = Left$(sLevel(Y1 * 2 + 1), (X1 + 1) * 2 - 2) & ".." & Mid$(sLevel(Y1 * 2 + 1), (X1 + 1) * 2 + 1)
 End If
 Case 1
 If startpositie(0) = X1 And startpositie(1) = Y1 Then


 frmMenu.mnuEditor1(3).Enabled = False: TLB.Buttons(5).Enabled = True
 End If
 
 If Not Mid$(sLevel(Y1 * 2), (X1 + 1) * 2, 1) = "M" Then
 sLevel(Y1 * 2) = Left$(sLevel(Y1 * 2), (X1 + 1) * 2 - 2) & "MM" & Mid$(sLevel(Y1 * 2), (X1 + 1) * 2 + 1)
 sLevel(Y1 * 2 + 1) = Left$(sLevel(Y1 * 2 + 1), (X1 + 1) * 2 - 2) & "MM" & Mid$(sLevel(Y1 * 2 + 1), (X1 + 1) * 2 + 1)
 End If
 Case 2
 If Mid$(sLevel(Y1 * 2), (X1 + 1) * 2, 1) = "M" Then
 sLevel(Y1 * 2) = Left$(sLevel(Y1 * 2), (X1 + 1) * 2 - 2) & ".." & Mid$(sLevel(Y1 * 2), (X1 + 1) * 2 + 1)
 sLevel(Y1 * 2 + 1) = Left$(sLevel(Y1 * 2 + 1), (X1 + 1) * 2 - 2) & "MM" & Mid$(sLevel(Y1 * 2 + 1), (X1 + 1) * 2 + 1)
 End If
 
 TLB_ButtonClick TLB.Buttons(1)
 startpositie(0) = X1: startpositie(1) = Y1: TLB.Buttons(5).Enabled = False
 frmMenu.mnuEditor1(3).Enabled = True
 End Select
 picVeld.Refresh
 End If
End Sub
Private Sub picVeld_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If InStr(1, (X + 1) / 15, ",") <> 0 Then
 X1 = Left$((X + 1) / 15, InStr(1, (X + 1) / 15, ",") - 1)
 Else: X1 = (X + 1) / 15
 End If
 If InStr(1, (Y + 1) / 15, ",") <> 0 Then
 Y1 = Left$((Y + 1) / 15, InStr(1, (Y + 1) / 15, ",") - 1)
 Else: Y1 = (Y + 1) / 15
 End If
 If Not lblX.Caption = "X: " & X1 Then lblX.Caption = "X: " & X1
 If Not lblY.Caption = "Y: " & Y1 Then lblY.Caption = "Y: " & Y1
 
 If klik = True Then WijzigVeld
End Sub

frmLevelEditor(frmLevelEditor(English).frm)
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Dim nieuw As Boolean, level As Long
Dim startpositie(1) As Long
Dim sLevel(36) As String
Dim sNieuwLevel(17) As String
Dim X1 As Long, Y1 As Long
Dim keuze As Long, klik As Boolean
Private Sub OnStart(Index As Integer)
 Select Case Index
 Case 0
 With Theme
 .Top = 0
 .Left = 0
 .Height = Me.ScaleHeight
 .Width = Me.ScaleWidth
 .SethWndRgn Me
 End With
 End Select
End Sub
Private Sub Form_Load()
 Call OnStart(0)
 picVeld.Cls: Set picVeld.Picture = Nothing
 
 For Y = 0 To picVeld.Height Step 15
 picVeld.Line (0, Y)-(picVeld.Width, Y), &HFFFFFF
 Next Y
 For X = 0 To picVeld.Width Step 15
 picVeld.Line (X, 0)-(X, picVeld.Height), &HFFFFFF
 Next X
 For X = 1 To picVeld.Width Step 15
 BitBlt picVeld.hDC, X, 1, 14, 14, pic(1).hDC, 0, 0, vbSrcCopy
 BitBlt picVeld.hDC, X, picVeld.Height - 15, 14, 14, pic(1).hDC, 0, 0, vbSrcCopy
 Next X
 For Y = 1 To picVeld.Height Step 15
 BitBlt picVeld.hDC, 1, Y, 14, 14, pic(1).hDC, 0, 0, vbSrcCopy
 BitBlt picVeld.hDC, picVeld.Width - 15, Y, 14, 14, pic(1).hDC, 0, 0, vbSrcCopy
 Next Y
 Set picVeld.Picture = picVeld.Image: Cls
 
 MenuLevelLaden
 
 NieuweMap
 keuze = 1
End Sub
Private Sub MenuLevelLaden()
 For i = frmMenu.mnuOpenen.Count - 1 To 1 Step -1: Unload frmMenu.mnuOpenen(i): Unload frmMenu.mnuVerwijderen(i): Next i
 For i = 1 To 99
 If Dir$(App.Path & "\Levels\Level " & i & ".dat") <> vbNullString Then


 If i > 1 Then Load frmMenu.mnuOpenen(i - 1): Load frmMenu.mnuVerwijderen(i - 1)
 frmMenu.mnuOpenen(i - 1).Caption = "关口 " & i: frmMenu.mnuVerwijderen(i - 1).Caption = "关口 " & i
 frmMenu.mnuOpenen(i - 1).Tag = i: frmMenu.mnuVerwijderen(i - 1).Tag = i
 frmMenu.mnuOpenen(i - 1).Enabled = True: frmMenu.mnuVerwijderen(i - 1).Enabled = True
 Else: Exit For
 End If
 Next i
End Sub
Public Sub mnuEditor1_Click(Index As Integer)
 Select Case Index
 Case 0
 NieuweMap
 Case 1
 Case 2
 Case 3
 If LevelOpslaan = True Then
 Caption = "Leveleditor - [empty map - level " & level & ".dat]"
 Theme.Caption = "关口编辑器 - [现有地图 - 关口 " & level & ".dat]"
 MenuLevelLaden
 nieuw = False
 MsgBox "Do you think this is a nice level? Send it to h.bloemhof@planet.nl and I will put it in the next update!", vbInformation, "Leveleditor"
 End If
 Case 4
 Case 5
 Case 6
 Case 7
 Unload Me
 End Select
End Sub
Private Sub NieuweMap()
 sLevel(0) = "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM"
 sLevel(1) = "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM"
 For i = 2 To 33
 sLevel(i) = "MM........................................................MM"
 Next i
 sLevel(34) = "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM"
 sLevel(35) = "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM"
 
 Caption = "关口编辑器 - [新建地图 - 关口 " & frmMenu.mnuOpenen.Count + 1 & ".dat]"
 Theme.Caption = "关口编辑器 - [新建地图 - 关口 " & frmMenu.mnuOpenen.Count + 1 & ".dat]"
 level = frmMenu.mnuOpenen.Count + 1
 nieuw = True
 frmMenu.mnuEditor1(3).Enabled = False: TLB.Buttons(5).Enabled = True
 picVeld.Cls
End Sub


Public Sub mnuOpenen_Click(Index As Integer)
 LevelLaden Index + 1
 Caption = "关口编辑器 - [现有地图 - 关口 " & Index + 1 & ".dat]"
 Theme.Caption = "关口编辑器 - [现有地图 - 关口 " & Index + 1 & ".dat]"
 nieuw = False
End Sub
Public Sub mnuVerwijderen_Click(Index As Integer)
 LevelVerwijderen Index + 1
End Sub
Private Sub Form_Resize()
 Call OnStart(0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
 frmNibbles.Show
End Sub
Private Sub lblMenu_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
 Select Case Index
 Case 0
 PopupMenu frmMenu.mnuEditor, , picMenu.Left + lblMenu(Index).Left, picMenu.Top + lblMenu(Index).Top + lblMenu(Index).Height + 2
 End Select
End Sub
Private Sub picVeld_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 klik = True
 WijzigVeld
End Sub
Private Sub WijzigVeld()
 
 If Not X1 <= 0 And Not X1 >= 29 And Not Y1 <= 0 And Not Y1 >= 17 Then
 BitBlt picVeld.hDC, X1 * 15 + 1, Y1 * 15 + 1, 14, 14, pic(keuze).hDC, 0, 0, vbSrcCopy
 
 Select Case keuze
 Case 0
 If startpositie(0) = X1 And startpositie(1) = Y1 Then
 frmMenu.mnuEditor1(3).Enabled = False: TLB.Buttons(5).Enabled = True
 End If
 
 If Not Mid$(sLevel(Y1 * 2), (X1 + 1) * 2, 1) = "." Then
 sLevel(Y1 * 2) = Left$(sLevel(Y1 * 2), (X1 + 1) * 2 - 2) & ".." & Mid$(sLevel(Y1 * 2), (X1 + 1) * 2 + 1)
 sLevel(Y1 * 2 + 1) = Left$(sLevel(Y1 * 2 + 1), (X1 + 1) * 2 - 2) & ".." & Mid$(sLevel(Y1 * 2 + 1), (X1 + 1) * 2 + 1)
 End If
 Case 1
 If startpositie(0) = X1 And startpositie(1) = Y1 Then


 frmMenu.mnuEditor1(3).Enabled = False: TLB.Buttons(5).Enabled = True
 End If
 
 If Not Mid$(sLevel(Y1 * 2), (X1 + 1) * 2, 1) = "M" Then
 sLevel(Y1 * 2) = Left$(sLevel(Y1 * 2), (X1 + 1) * 2 - 2) & "MM" & Mid$(sLevel(Y1 * 2), (X1 + 1) * 2 + 1)
 sLevel(Y1 * 2 + 1) = Left$(sLevel(Y1 * 2 + 1), (X1 + 1) * 2 - 2) & "MM" & Mid$(sLevel(Y1 * 2 + 1), (X1 + 1) * 2 + 1)
 End If
 Case 2
 If Mid$(sLevel(Y1 * 2), (X1 + 1) * 2, 1) = "M" Then
 sLevel(Y1 * 2) = Left$(sLevel(Y1 * 2), (X1 + 1) * 2 - 2) & ".." & Mid$(sLevel(Y1 * 2), (X1 + 1) * 2 + 1)
 sLevel(Y1 * 2 + 1) = Left$(sLevel(Y1 * 2 + 1), (X1 + 1) * 2 - 2) & "MM" & Mid$(sLevel(Y1 * 2 + 1), (X1 + 1) * 2 + 1)
 End If
 
 TLB_ButtonClick TLB.Buttons(1)
 startpositie(0) = X1: startpositie(1) = Y1: TLB.Buttons(5).Enabled = False
 frmMenu.mnuEditor1(3).Enabled = True
 End Select
 picVeld.Refresh
 End If
End Sub
Private Sub picVeld_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If InStr(1, (X + 1) / 15, ",") <> 0 Then
 X1 = Left$((X + 1) / 15, InStr(1, (X + 1) / 15, ",") - 1)
 Else: X1 = (X + 1) / 15
 End If
 If InStr(1, (Y + 1) / 15, ",") <> 0 Then
 Y1 = Left$((Y + 1) / 15, InStr(1, (Y + 1) / 15, ",") - 1)
 Else: Y1 = (Y + 1) / 15
 End If
 If Not lblX.Caption = "X: " & X1 Then lblX.Caption = "X: " & X1
 If Not lblY.Caption = "Y: " & Y1 Then lblY.Caption = "Y: " & Y1