打地鼠VB程序源代码.doc

下载文档 降价啦

172
0
约1.36万字
约 16页
2018-03-25 发布于重庆
举报
版权申诉
保障服务

打地鼠VB程序源代码.doc

1、本文档共16页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

打地鼠VB程序源代码

******DDS******* Dim allnum As Integer, oknum As Integer 定义变化次数打中次数 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 = allnum + 1 变化次数值+1 For i = 0 To 23 Picture1(i).Visible = False 地鼠消失 Next Randomize Picture1(Int(Rnd() * 23)).Visible = True 随机函数控制地鼠图片显示 End Sub Private Sub gy_Click() MsgBox 打地鼠 + Chr(13) + Chr(13) + Boy小作品 + Chr(13) + _ QQ：591028872, , 作者寄语作者寄语 End Sub ********SJB******** Private Sub Form_Activate() Option1.Caption = 石头 Option2.Caption = 剪刀 Option3.Caption = 布 Option1.Value = False Option2.Value = False Option3.Value = False End Sub Private Sub Option1_Click() Randomize Select Case Int(3 * Rnd) Case 0: a = MsgBox(对方也出石头！继续！, 1 + 64, 快乐游戏) Case 1: a = MsgBox(哈哈！你赢了！对方出的是剪刀！奖励你一个苹果！, 1 + 64, 快乐游戏) Case 2: a = MsgBox(你输了！对方出的是布哦！不好意思，苹果给对方了哈！, 1 + 64, 快乐游戏) End Select Option1.Value = False End Sub Private Sub Option2_Click() Randomize Select Case Int(3 * Rnd) Case 0: a = MsgBox(你输了！对方出的是石头哦