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
末端接頭
直接復制到空的代碼窗口