打地鼠VB程序源代码.docVIP

******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(你输了！对方出的是石头哦