打地鼠游戏
有3X3方阵每个格子都可能冒出地鼠，当冒出时，用鼠标点击它，命中得分。

制作步骤：
1.先按下图布局，方阵有9个按钮数组排列组成。

分别为command1(0)~command1(8).
2个标签，label1和label2用来显示得分；2个文本框临时存放x的值和地鼠出现计数用，使用时隐藏；定时器一个；开始按钮一个。

2.开始按钮事件command2
当单击“开始”按钮时，先将计数text2清零，分数label2清零
然后启动计时器Call Timer1_Timer。

Private Sub Command2_Click()
Text2.Text = 0
Label2.Caption = 0
Call Timer1_Timer
End Sub
3．计时器触发的事件
当计时器被启动时，先计数表示有一次地鼠冒出Text2.text = Val(Text2.text) + 1。

如果还未达到25次，那么把9个格子清空，随机产生一个数X，表示第x个地鼠要冒出：让command1(x)=”@”，然后再次激发计时器Timer1.Enabled = True。

如果已经达到25次，关闭计时器，地鼠计数清零text2.text=0。

要设置时钟发生器的每次发送间隔时间Interval=1000 (为1秒钟时钟事件发生1次) Private Sub Timer1_Timer()
Text2.text = Val(Text2.text) + 1
If Val(Text2.text) < =25 Then
For i = 0 To 8
Command1(i).Caption = ""
Next i
x = Int(Rnd() * 9)
Command1(x).Caption = "@"
Text1.Text = x
Timer1.Enabled = True
Else
Timer1.Enabled = False
Text2.Text = 0
End If
End Sub
4．方阵的格子被点击事件
Index会告诉我们是那个格子，此时只要判断刚产生的地鼠的位置在text1.text,而点击的位置是Index，如果相等则加4分。

（25次都击中会得100分）。

如果计时器已关闭就不能加分了（Timer1.Enabled = True）。

Private Sub Command1_Click(Index As Integer)
If Val(Text1.Text) = Index And Timer1.Enabled = True Then
Label2.Caption = Val(Label2.Caption) + 4
End If
End Sub
5．把text1和text2隐藏，字体大小有你自由设计。

这样即可开始游戏了！
6．请同学增加一个评判功能：
在分数下增加一个LABEL3，当游戏结束后，给游戏者一个文字评价。

如“你很棒！”，“你还需努力！”等等。