For i = 0 To 8 Image1(i).Visible = False '兔子消失 '这里加一句 Image1(Index).Picture= 这里放正常的打中之前的图的地址。 '打中后你把打中的image的图改了,却忘记改回来。 '============================== Next Randomize Image1(Int(Rnd() * 9)).Visible = True '随机函数控制兔子图片显示