Private Sub Form_KeyDown(KeyCode為整數，Shift為整數)
Dim C壹樣長
如果鍵碼= 27，則結束
如果鍵碼= 32，則
如果定時器1。Enabled = True Then
定時器1。啟用=假
Label1。可見=真
其他
定時器1。啟用=真
Label1。可見=假
如果…就會結束
如果…就會結束
C =未綁定(她)
如果GFangXiang = True，則退出Sub
選擇案例鍵碼
案例37
如果她(C)。F = 2，然後退出Sub
她(丙)。F = 0
GFangXiang = True
案例38
如果她(C)。F = 3，然後退出Sub
她(丙)。F = 1
GFangXiang = True
案例39
如果她(C)。F = 0，然後退出Sub
她(丙)。F = 2
GFangXiang = True
案例40
如果她(C)。F = 1然後退出Sub
她(丙)。F = 3
GFangXiang = True
結束選擇
末端接頭
私有子窗體_Load()
我。AutoRedraw = True
我。背景色= & ampHC000 & amp
我。FillColor = 255
我。FillStyle = 0
我。縮放寬度= 24
我。ScaleHeight = 24
我。WindowState = 2
設置定時器1 =控制。添加(" VB。定時器”，“定時器1”)
Set Label1 =控件。添加(" VB。標簽"，"標簽1 ")
Label1。AutoSize = True
Label1。背景樣式= 0
Label1 = "暫停"
Label1。ForeColor = RGB(255，255，0)
Label1。FontSize = 50
褚時華
末端接頭
私有子窗體_Resize()
出錯時轉到1:
與我
如果。WindowState & lt& gt那麽1
。Cls
。ScaleMode = 3
HWB =。ScaleHeight /。刻度寬度
。縮放寬度= 24
。ScaleHeight = 24
Label1。動(我。ScaleWidth - Label1寬度)/ 2，(我。ScaleHeight - Label1高度)/ 2
塗畫
我。Line (X，Y)-(X + 1，Y + 1)，RGB(255，255，0)，BF
如果…就會結束
以…結尾
1:
末端接頭
私有子定時器1_Timer()
Dim C壹樣長，I壹樣長
出錯時轉到2:
初晴
C =未綁定(她)
選擇案例She(C)。F
案例0
如果莊臺(她(C)。X - 1，她(C)。那麽Y) = 2
C = C + 1
ReDim Preserve She(C)
她(丙)。F =她(C - 1)。F
她(丙)。X =她(C - 1)。X - 1
她(丙)。Y =她(C - 1)。Y
禪生十五
轉到1:
ElseIf莊泰(她(C)。X - 1，她(C)。Y) = 1
轉到2:
如果…就會結束
案例1
如果莊臺(她(C)。x，她(C)。那麽Y - 1) = 2
C = C + 1
ReDim Preserve She(C)
她(丙)。F =她(C - 1)。F
她(丙)。X =她(C - 1)。X
她(丙)。Y =她(C - 1)。Y - 1
禪生十五
轉到1:
ElseIf莊泰(她(C)。x，她(C)。那麽Y - 1) = 1
轉到2:
如果…就會結束
案例2
如果莊臺(她(C)。X + 1，她(C)。那麽Y) = 2
C = C + 1
ReDim Preserve She(C)
她(丙)。F =她(C - 1)。F
她(丙)。X =她(C - 1)。X + 1
她(丙)。Y =她(C - 1)。Y
禪生十五
轉到1:
ElseIf莊泰(她(C)。X + 1，她(C)。Y) = 1
轉到2:
如果…就會結束
案例3
如果莊臺(她(C)。x，她(C)。那麽Y + 1) = 2
C = C + 1
ReDim Preserve She(C)
她(丙)。F =她(C - 1)。F
她(丙)。X =她(C - 1)。X
她(丙)。Y =她(C - 1)。Y + 1
禪生十五
轉到1:
ElseIf莊泰(她(C)。x，她(C)。那麽Y + 1) = 1
轉到2:
如果…就會結束
結束選擇
莊臺(她(0)。x，她(0)。Y) = 0
對於I = 0至C
選擇案例She(I)。F
案例0
她(我)。X =她(我)。X - 1
案例1
她(我)。Y =她(我)。Y - 1
案例2
她(我)。X =她(我)。X + 1
案例3
她(我)。Y =她(我)。Y + 1
結束選擇
然後
調正
1:
GFangXiang = False
莊臺(她(C)。x，她(C)。Y) = 1
塗畫
出口接頭
2:
如果MsgBox("遊戲結束，點擊是重啟遊戲，點擊否"，vbYesNo，" Snake") = vbYes那麽。
褚時華
其他
結束
如果…就會結束
末端接頭
私子初十化()
我。Cls
定時器1。啟用=真
定時器1。間隔= 200
擦除莊臺
雷迪姆舍(2)
她(0)。F = 2
她(0)。X = 9
她(0)。Y = 11
莊臺(9，11) = 1
她(1)。F = 2
她(1)。X = 10
她(1)。Y = 11
莊臺(10，11) = 1
她②。F = 2
她②。X = 11
她②。Y = 11
莊臺(11，11) = 1
塗畫
禪生十五
末端接頭
二等兵初晴()
暗淡我壹樣長
對於I = 0到UBound(她)
我。行(她(我)。x，她(我)。Y)-(她(我)。X + 1，她(我)。Y + 1)，我。背景色，BF
然後
末端接頭
二等兵塗畫()
暗淡我壹樣長
對於I = 0到UBound(她)
我。圈(她(我)。X + 0.5，她(我)。Y + 0.5)，0.49，RGB(255，255，0)，，HWB
然後
末端接頭
私子調正()
暗淡我壹樣長
對於I = 0到UBound(She) - 1
她(我)。F =她(I + 1)。F
然後
末端接頭
私有分產省事物()
隨機化定時器
1:
X = Int(Rnd * 24)
Y = Int(Rnd * 24)
如果莊泰(X，Y)>0然後轉到1:
莊臺(X，Y) = 2
我。Line (X，Y)-(X + 1，Y + 1)，RGB(255，255，0)，BF
末端接頭
直接復制到空的代碼窗口