文档介绍:PrivateSubForm_Load()DimtempAsIntegerRandomizetemp=Int(Rnd*3)+=LoadPicture("C:\Users\Administrator\Desktop\打地鼠\picture"&temp&".jpg")="C:\Users\Administrator\Desktop\打地鼠\Heaven'"EndSubPrivateSubLabel1_Click()=-=""Open"C:\Users\Administrator\Desktop\打地鼠\"ForAppendAs#1'写操作Close#1Open"C:\Users\Administrator\Desktop\打地鼠\"ForAppendAs#2Close#2Open"C:\Users\Administrator\Desktop\打地鼠\"ForAppendAs#3Close#3EndSubPrivateSubLabel2_Click()EndEndSubForm2:DimallnumAsInteger,oknumAsInteger'umAsInteger'判别是否第一次开始游戏Dimflags1AsBoolean'判别文件是否保存PublicflagsAsBoolean'判别是否播放声音PrivateSubcountine_Click()====TrueEndSubPrivateSubexit_Click()DimXAsIntegerDimttAsIntegerX=MsgBox("是否真的退出?",vbYesNo,"退出游戏框")IfX=6Thentt=MsgBox("退出游戏之前,是否保存",vbYesNo,"保存提示")Iftt=6ThenIfflags1==1000ThenOpen"C:\Users\Administrator\Desktop\打地鼠\"ForAppendAs#1'写操作Print#1,+""+Format(Date,"M/d/yy")Close#=500ThenOpen"C:\Users\Administrator\Desktop\打地鼠\"ForAppendAs#2Print#2,+""+Format(Date,"M/d/yy")Close#2ElseOpen"C:\Users\Administrator\Desktop\打地鼠\"ForAppendAs#3Print#3,+""+Format(Date,"M/d/yy")Close#3EndIfEndIfEndIf