资源描述：
《VB打地鼠游戏》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、Form1:PrivateSubForm_Load()DimtempAsIntegerRandomizetemp=Int(Rnd*3)+1Form1.Picture=LoadPicture("C:UsersAdministratorDesktop打地鼠picture"&temp&".jpg")WindowsMediaPlayer1.URL="C:UsersAdministratorDesktop打地鼠Heaven'sDevils.wma"EndSubPrivateSubLabel1_Click()
2、Form2.ShowForm2.num=-1Form1.HideWindowsMediaPlayer1.URL=""Open"C:UsersAdministratorDesktop打地鼠primary.dat"ForAppendAs#1'写操作Close#1Open"C:UsersAdministratorDesktop打地鼠intermediate.dat"ForAppendAs#2Close#2Open"C:UsersAdministratorDesktop打地鼠advanced.d
3、at"ForAppendAs#3Close#3EndSubPrivateSubLabel2_Click()EndEndSubForm2:DimallnumAsInteger,oknumAsInteger'定义变化次数打中次数PublicnumAsInteger'判别是否第一次开始游戏Dimflags1AsBoolean'判别文件是否保存PublicflagsAsBoolean'判别是否播放声音PrivateSubcountine_Click()pause.Enabled=TrueTimer1.Enabled=True
4、countine.Enabled=FalseWLXZ.Enabled=TrueEndSubPrivateSubexit_Click()DimXAsIntegerDimttAsIntegerX=MsgBox("是否真的退出？",vbYesNo,"退出游戏框")IfX=6Thentt=MsgBox("退出游戏之前,是否保存",vbYesNo,"保存提示")Iftt=6ThenIfflags1=TrueThenEndElseIfTimer1.Interval=1000ThenOpen"C:UsersAdministra
5、torDesktop打地鼠primary.dat"ForAppendAs#1'写操作Print#1,Text1.Text+""+Format(Date,"M/d/yy")Close#1ElseIfTimer1.Interval=500ThenOpen"C:UsersAdministratorDesktop打地鼠intermediate.dat"ForAppendAs#2Print#2,Text1.Text+""+Format(Date,"M/d/yy")Close#2ElseOpen"C:Users
6、AdministratorDesktop打地鼠advanced.dat"ForAppendAs#3Print#3,Text1.Text+""+Format(Date,"M/d/yy")Close#3EndIfEndIfEndIfEndEndIfEndSubPrivateSubForm_Load()Form4.Check1.Value=1WindowsMediaPlayer1.Controls.stopcountine.Enabled=Falsepause.Enabled=FalseWLXZ.Enabled=F
7、alseForm5.Top=Form2.Top+700Form5.Left=Form2.Leftflags1=Falseflags=TrueEndSubPrivateSubhelp_Click()Form3.ShowEndSubPrivateSubnew_game_Click()num=num+1DimtAsIntegerIf(num>0)Thent=MsgBox("新游戏开始之前,是否保存",vbYesNo,"保存提示")Ift=6Thenflags1=TrueIfTimer1.Interval=1000ThenO
8、pen"C:UsersAdministratorDesktop打地鼠primary.dat"ForAppendAs#1'写操作Print#1,Text1.Text+""+Format(Date,"M/d/yy")Close#1ElseIfTimer1.Interval=500ThenOpen"C:UsersAdministrato
