VB打地鼠游戏.docVIP

Form1: Private Sub Form_Load() Dim temp As Integer Randomize temp = Int(Rnd * 3) + 1 Form1.Picture = LoadPicture(C:\Users\Administrator\Desktop\打地鼠\picture temp .jpg) WindowsMediaPlayer1.URL = C:\Users\Administrator\Desktop\打地鼠\Heavens Devils.wma End Sub Private Sub Label1_Click() Form2.Show Form2.num = -1 Form1.Hide WindowsMediaPlayer1.URL = Open C:\Users\Administrator\Desktop\打地鼠\primary.dat For Append As #1 写操作 Close #1 Open C:\Users\Administrator\Desktop\打地鼠\intermediate.dat For Append As #2 Close #2 Open C:\Users\Administrator\Desktop\打地鼠\advanced.dat For Append As #3 Close #3 End