| プログラム | プログラムの解説 | 実 行 |
 |
＜モグラ「モ」の出現＞ （1） 縦・横の位置を乱数で求め、ここでは2～6の値に 収まるようにします。 tate = Int(Rnd() * 5) + 2 yoko = Int(Rnd() * 5) + 2 （2）（1）で決まったセルに「モ」を出現させます。 Cells(tate, yoko).Value = "モ" ＜制限時間内の処理＞ （1）終了時刻（現在時刻に１０秒を超えた値）まで繰り返す。 hajime = Timer Do While Timer < hajime + 10 DoEvents Loop （2）モグラ「モ」をクリックしたときの処理です If ActiveCell.Value = "モ" Then←いまクリックしたセルの値が「モ」ならの意味 Range("I4").Value = Range("I4").Value + 10←点数加算 Cells(tate, yoko).Value = ""←今のモグラ「モ」を消す tate = Int(Rnd() * 5) + 2 ←次の位置を決める yoko = Int(Rnd() * 5) + 2 Cells(tate, yoko).Value = "モ" End If |