Vb小游戏程序代码
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
末端接头
直接复制到空的代码窗口