文档介绍：Form1:
Private Sub Form_Load()
Dim temp As Integer
Randomize
temp = Int(Rnd * 3) + 1
= LoadPicture("C:\Users\Administrator\Desktop\打地鼠\picture" & temp & ".jpg")
= "C:\Users\Administrator\Desktop\打地鼠\Heaven's "
End Sub
Private Sub Label1_Click()
= -1
= ""
Open "C:\Users\Administrator\Desktop\打地鼠\" For Append As #1 '写操作
Close #1
Open "C:\Users\Administrator\Desktop\打地鼠\" For Append As #2
Close #2
Open "C:\Users\Administrator\Desktop\打地鼠\" For Append As #3
Close #3
End Sub
Private Sub Label2_Click()
End
End Sub
Form2:
Dim allnum As Integer, oknum As Integer '定义变化次数打中次数
Public num As Integer '判别是否第一次开始游戏
Dim flags1 As Boolean '判别文件是否保存
Public flags As Boolean '判别是否播放声音
Private Sub countine_Click()
= True
= True
= False
= True
End Sub
Private Sub exit_Click()
Dim X As Integer
Dim tt As Integer
X = MsgBox("是否真的退出?", vbYesNo, "退出游戏框")
If X = 6 Then
tt = MsgBox("退出游戏之前,是否保存", vbYesNo, "保存提示")
If tt = 6 Then
If flags1 = True Then
End
Else
If = 1000 Then
Open "C:\Users\Administrator\Desktop\打地鼠\" For Append As #1 '写操作
Print #1, + " " + Format(Date, "M/d/yy")
Close #1
ElseIf = 50