打地鼠VB程序(图).docVIP

Dim i, a As Integer Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Image2(i).Left X And X (Image2(i).Left + Image2(i).Width) And Y Image2(i).Top And Y (Image2(i).Top + Image2(i).Height) Then Form1.Caption = 9 Image3.Left = Image2(i).Left Image3.Top = Image2(i).Top Image3.Visible = True End If End Sub Private Sub Timer1_Timer() For i = 0 To 8 Image2(i).Visible = False Next i i = Int(9 * Rnd) Image2(i).Visible = True Image3.Visible = False End Sub