打地鼠，如何控制地鼠下次出现和消失，找到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 子例程不初始化变量。