打地鼠VB程序图.doc
《打地鼠VB程序图.doc》由会员分享,可在线阅读,更多相关《打地鼠VB程序图.doc(1页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
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) And Y (Image2(i) + Image2(i).Height) ThenForm1.Caption = 9Image3.Left = Image2(i).LeftImage3 = Image2(i)Image3.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第 1 页
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 地鼠 VB 程序
限制150内