电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

打地鼠VB程序代码

打地鼠VB程序代码_第1页
1/3
打地鼠VB程序代码_第2页
2/3
打地鼠VB程序代码_第3页
3/3
打地鼠 VB 程序代码打地鼠 VB 程序代码打地鼠 VB 程序代码 1 Private Const totaltime = 30 Private sum As Long, nt As Long Private Sub Command1_Click() 结束按钮 End End Sub Private Sub timer1_timer() If Timernt > totaltime Then Timer1.Enabled = False MsgBox "时间到!!!" Text1.Text = "您一共打中 " 定义变化次数 打中次数 Private Sub a_Click() Timer1.Interval = 1000 新手 End Sub Private Sub b_Click() Timer1.Interval = 700 达人 End Sub Private Sub c_Click() Timer1.Interval = 500 老手 End Sub Private Sub Command1_Click() If Command1.Caption = "继续" Then Timer1.Enabled = True Label2.Caption = "运行中..." Else Timer1.Enabled = True 时间启动 allnum = 0 变化次数初始为 0 oknum = 0 打中次数初始为 0 Label2.Caption = "运行中..." End If Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False 暂停 Label2.Caption = "暂停中..." Command1.Caption = "继续" Command1.Enabled = True Command2.Enabled = False End Sub Private Sub Command3_Click() Unload Me 结束 End Sub Private Sub Form_Load() Timer1.Enabled = False 时间不启动 allnum = 0 变化次数初始为 0 oknum = 0 打中次数初始为 0 End Sub Private Sub Picture1_Click(Index As Integer) If Picture1(Index).Visible = True Then Picture1(Index).picture = Src.Picture1.picture 击晕图显示 oknum = oknum + 1 打中次数+1 End If End Sub Private Sub tc_Click() Unload Me 退出 End Sub Private Sub Timer1_Timer() Text1.Text = oknum 打印得分 allnum = allnum + 1 变化次数值+1 For i = 0 To 23 Picture1(i).Visible = False 地鼠消逝 Next Randomize Picture1(Int(Rnd() * 23)).Visible = True 随机函数控制地鼠图片显示 End Sub打地鼠 VB 程序代码 3 Form1: Private Sub Form_Load() Dim temp As Integer Randomize temp = Int(Rnd * 3) + 1 Form1.Picture = LoadPicture("C:\Users\Administrator\...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

打地鼠VB程序代码

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部