打地鼠，如何控制地鼠下次出現和消失，找到VB詳細程式20

使用時間控制間隔時間。

地鼠在頂部，前幾天它被分割和修復，現在它隨著大攻擊而洩漏。

中間的地鼠是地圖中的一種遊戲，玩禪仙將小地鼠一起殺死到300，然後出現在3個地方，1是地鼠下方1層，2是地鼠下方2層，3是左邊。 （這是螢幕左側的紅色字母，看起來像是暴擊）。

如果 lz 仍有疑問，請 +。

QQ三國：TOP17三足：76yy我們願意回答您的所有問題！

在此祝房東新年快樂！ 答案 補充 Gopher 1 顆糖果中的 30 顆，1 組 1 顆糖果中的 5 顆。 地中央只有10顆左右的糖果，乙個接乙個地掉落。

地鼠比中型地鼠爆炸更多的東西。

有時間限制。

過去了多少時間。

中型地鼠將生成一次。

隨機函式 rnd 如果當前有 n 個孔，則隨機數 = int（（n-1）* rnd） +1，然後判斷是否顯示當前隨機數。

不知道您的遊戲是如何運作的？ 開口在影象上？然後有兩種情況你不打，一種是打洞但洞裡沒有地鼠，另一種是打洞打窗戶。

定義乙個外部變數 n 來記錄未命中次數，擊球時表格 n=n+1 並判斷 n 是否大於 3，擊球時，首先確定是否有地鼠，如果沒有地鼠，則 n=n+1 並判斷 n 是否大於 3如果大於 3，那麼遊戲就給我錢

定義乙個全域性變數。

如果你不按滑鼠，你會得到+1的變數，如果變數大於3，你將退出遊戲。

private sub image1_click()n = n + 1 '分數。

false '在點後隱藏以防止重複得分。

end sub

呵呵，我有原始碼，留言吧，我就不給你點子了。

彈出視窗：msgbox（"")

例如，msgbox（"10 積分")

PS：您無法向彈出視窗新增按鈕。

private const totaltime = 30

private sum as long, nt as long

private sub command1_click() '結束按鈕。

endend sub

private sub timer1_timer()

if timer - nt > totaltime then

falsemsgbox "是時候了！！ "

你已經擊中了一切" & sum & "Gopher，繼續努力！ "

end if

dim i as long

for i = 0 to 8: picture1(i).picture = loadpicture: next i

randomize

i = rnd * 8

picture1(i).picture =

end sub

private sub picture1_click(index as integer)

if not (picture1(index).picture is nothing) then

sum = sum + 1

它被擊中了" & sum & "乙隻地鼠！ "

end if

end sub

command1 click 子例程不初始化變數。