《打地鼠VB程序(图)》由会员分享，可在线阅读，更多相关《打地鼠VB程序(图)（2页珍藏版）》请在金锄头文库上搜索。
先知先觉预知术嚏喷（打哈欠）吉凶预兆Dim i, a As IntegerPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Image2(i).Left X And X Image2(i).Top And Y (Image2(i).Top + Image2(i).Height) ThenForm1.Caption = 9Image3.Left = Image2(i).LeftImage3.Top = Image2(i).TopImage3.Visible = TrueEnd IfEnd SubPrivate Sub Timer1_Timer()For i = 0 To 8Image2(i).Visible = FalseNext ii = Int(9 * Rnd)Image2(i).Visible = TrueImage3.Visible = FalseEnd Sub页脚内容2
