暗淡？vx？作為？整數，？vy？作為？整數
暗淡？tm？作為？整數
暗淡？fs？作為？整數
私人？Sub？Command1_Click()
如果？定時器1。啟用？=?假的？然後
定時器1。啟用？=?真實的
如果？形狀2。Top？& gt？圖片1。身高？然後
暗淡？x？作為？整數
x？=?0
Shape1。向左？=?圖片1。寬度？/?2?-?Shape1。寬度？/?2
Shape1。Top？=?圖片1。身高？-?300
形狀2。向左？=?圖片1。寬度？/?2?-?形狀2。寬度？/?2
形狀2。Top？=?圖片1。身高？-?Shape1。身高？-?Shape1。身高？-?50
vx？=?30
vy？=?30
Label1(0)。可見？=?錯誤的
為了什麽？我？=?1?去哪？90?壹步？2
卸載？標簽1(i)
下壹個？我
為了什麽？我？=?1?去哪？90?壹步？2
加載？標簽1(i)
Label1(i)。可見？=?真實的
Label1(i)。標題？=?""
Label1(i)。向左？=?375?*?((我？-?1)?Mod？15)
Label1(i)。Top？=?135?*?x
？如果？我？Mod？15?=?0?還是？我？Mod？15?=?14?然後
？x？=?x？+?1
結束？如果
下壹個？我
結束？如果
結束？如果
結束？潛水艇
私人？Sub？Command2_Click()
結束
結束？潛水艇
私人？Sub？Form_Load()
標簽2。標題？=?“左”？& amp？3?& amp？"磁盤"
Label1(0)。可見？=?錯誤的
Shape1。向左？=?圖片1。寬度？/?2?-?Shape1。寬度？/?2
Shape1。Top？=?圖片1。身高？-?300
形狀2。向左？=?圖片1。寬度？/?2?-?形狀2。寬度？/?2
形狀2。Top？=?圖片1。身高？-?Shape1。身高？-?Shape1。身高？-?50
vx？=?30
vy？=?30
打電話？rnk1
標簽4。標題？=?"通過1 "
結束？潛水艇
私人？Sub？Picture1_KeyDown(鍵碼？作為？整數，？移位？作為？整數)
如果？鍵碼？=?37?然後
如果？Shape1。向左？& gt？0?然後
Shape1。向左？=?Shape1。向左？-?50
結束？如果
埃爾瑟夫？鍵碼？=?39?然後
如果？Shape1。向左？& lt？圖片1。寬度？-?Shape1。寬度？然後
Shape1。向左？=?Shape1。向左？+?50
結束？如果
結束？如果
結束？潛水艇
私人？Sub？定時器1 _定時器()
形狀2。向左？=?形狀2。向左？+?甲硫膦酸丙胺乙酯
形狀2。Top？=?形狀2。Top？-?小牛肉酵母
如果？形狀2。向左？& gt？圖片1。寬度？-?形狀2。寬度？然後呢？vx？=?-vx
如果？形狀2。Top？& lt？0?然後呢？vy？=?-維？圖片1。身高？-?500?然後
如果？形狀2。向左？& lt？0?然後呢？vx？=?vx？圖片1。向左？然後呢？vx？=?-vx
如果？形狀2。Top？& gt？圖片1。身高？-?Shape1。身高？-?形狀2。身高？然後呢。形狀2。Top？& lt？圖片1。身高？-?Shape1。身高？-?形狀2。身高？+?100?然後
如果？形狀2。向左？& gt？Shape1。向左？然後呢。形狀2。向左？& lt？Shape1。向左？+?Shape1。寬度？然後
vy？=?-vy
其他
vx？=?小牛肉酵母
結束？如果
結束？如果
如果？形狀2。Top？& gt=?圖片1。身高？然後
定時器1。啟用？=?錯誤的
tm？=?tm？+?1
標簽2。標題？=?“左”？& amp？3?-?tm？& amp？"磁盤"
如果？tm？=?3?然後
MsgBox？“遊戲？完了！”,?vbOKOnly，？“遊戲結束”
命令1。啟用？=?錯誤的
結束？如果
結束？如果
為了什麽？我？=?1?去哪？90
如果？Label1(i)。可見？=?真的嗎？然後
如果？形狀2。向左？& gt？Label1(i)。向左？-?形狀2。寬度？然後呢。形狀2。向左？& lt？Label1(i)。向左？+?Label1(i)。寬度？然後
如果？形狀2。Top？& lt=?Label1(i)。Top？+?Label1(i)。身高？然後
如果？Label1(i)。可見？=?真的嗎？然後
vy？=?-vy
fs？=?fs？+?1
標簽3。標題？=?fs？& amp？“分”
為了什麽？j？=?1?去哪？90
如果？Label1(j)。可見？=?真的嗎？然後
GoTo？xx？退出？為
其他
如果？j？=?90?然後
x？=?x？+?1
標簽4。標題？=?“沒有”。？Str(x？+?1)?& amp？“關”
如果？x？=?2?然後
打電話？rnk2
Shape1。向左？=?圖片1。寬度？/?2?-?Shape1。寬度？/?2
Shape1。Top？=?圖片1。身高？-?300
形狀2。向左？=?圖片1。寬度？/?2?-?形狀2。寬度？/?2
形狀2。Top？=?圖片1。身高？-?Shape1。身高？-?Shape1。身高？-?50
定時器1。啟用？=?錯誤的
埃爾瑟夫？x？=?3?然後
打電話？rnk3
Shape1。向左？=?圖片1。寬度？/?2?-?Shape1。寬度？/?2
Shape1。Top？=?圖片1。身高？-?300
形狀2。向左？=?圖片1。寬度？/?2?-?形狀2。寬度？/?2
形狀2。Top？=?圖片1。身高？-?Shape1。身高？-?Shape1。身高？-?50
定時器1。啟用？=?錯誤的
結束？如果
結束？如果
結束？如果
xx:
下壹個？j
結束？如果
Label1(i)。可見？=?錯誤的
卸載？標簽1(i)
退出？為
結束？如果
結束？如果
結束？如果
下壹個？我
結束？潛水艇
模塊1:
暗淡？x？作為？整數
公共？Sub？rnk1()
為了什麽？我？=?1?去哪？90
開？錯誤？簡歷？然後
卸載？表單1。標簽1(i)
下壹個？我
x？=?0
為了什麽？我？=?1?去哪？90
加載？表單1。標簽1(i)
如果？我？Mod？2?=?0?然後
表單1。Label1(i)。可見？=?錯誤的
其他
表單1。Label1(i)。可見？=?真實的
表單1。Label1(i)。背景色？=?RGB(Int(Rnd？*?255),?Int(Rnd？*?255),?Int(Rnd？*?255))
表單1。Label1(i)。標題？=?""
表單1。Label1(i)。向左？=?375?*?((我？-?1)?Mod？15)
表單1。Label1(i)。Top？=?135?*?x
如果？我？Mod？15?=?0?還是？我？Mod？15?=?14?然後
x？=?x？+?1
結束？如果
結束？如果
下壹個？我
結束？潛水艇
公共？Sub？rnk2()
暗淡？x？作為？整數，？我？作為？整數
為了什麽？我？=?1?去哪？90
加載？表單1。標簽1(i)
如果？我？\?15?& gt？3?然後
x？=?5?-?我？\?15
其他
x？=?我？\?15
結束？如果
如果？我？Mod？15?& lt=?2?*?x？+?1?還是？我？Mod？15?& gt=?15?-?2?*?x？+?1?然後
如果？我？& gt？2?還是？我？=?1?然後
表單1。Label1(i)。可見？=?錯誤的
其他
表單1。Label1(i)。可見？=?真實的
表單1。Label1(i)。背景色？=?RGB(Int(Rnd？*?255),?Int(Rnd？*?255),?Int(Rnd？*?255))
表單1。Label1(i)。標題？=?""
表單1。Label1(i)。向左？=?375?*?((我？-?1)?Mod？15)
表單1。Label1(i)。Top？=?135?*?(我？\?15)
如果？我？Mod？15?=?0?還是？我？Mod？15?=?14?然後
x？=?x？+?1
結束？如果
結束？如果
下壹個？我
結束？潛水艇
公共？Sub？rnk3()
'
結束？潛水艇