[导入韵律活动的教学程序设计]教学活动的程序合理与否是教育目标能否有效实现的重要保障因素，也是幼儿能否在学习中教长时间的保持身心愉快的重要保障。在韵律活动教学情境中，最根本的处理原则就是动静交替...+阅读

下面是源代码：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\打地鼠\Heaven's 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 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() pause.Enabled = True Timer1.Enabled = True countine.Enabled = False WLXZ.Enabled = 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 Timer1.Interval = 1000 Then Open ＂C:\Users\Administrator\Desktop\打地鼠\primary.dat＂ For Append As #1 '写操作 Print #1, Text1.Text + ＂ ＂ + Format(Date, ＂M/d/yy＂) Close #1 ElseIf Timer1.Interval = 500 Then Open ＂C:\Users\Administrator\Desktop\打地鼠\intermediate.dat＂ For Append As #2 Print #2, Text1.Text + ＂ ＂ + Format(Date, ＂M/d/yy＂) Close #2 Else Open ＂C:\Users\Administrator\Desktop\打地鼠\advanced.dat＂ For Append As #3 Print #3, Text1.Text + ＂ ＂ + Format(Date, ＂M/d/yy＂) Close #3 End If End If End If End End If End Sub Private Sub Form_Load() Form4.Check1.Value = 1 WindowsMediaPlayer1.Controls.stop countine.Enabled = False pause.Enabled = False WLXZ.Enabled = False Form5.Top = Form2.Top + 700 Form5.Left = Form2.Left flags1 = False flags = True End Sub Private Sub help_Click() Form3.Show End Sub Private Sub new_game_Click() num = num + 1 Dim t As Integer If (num >0) Then t = MsgBox（＂新游戏开始之前，是否保存＂， vbYesNo， ＂保存提示＂） If t = 6 Then flags1 = True If Timer1.Interval = 1000 Then Open ＂C:\Users\Administrator\Desktop\打地鼠\primary.dat＂ For Append As #1 '写操作 Print #1, Text1.Text + ＂ ＂ + Format(Date, ＂M/d/yy＂) Close #1 ElseIf Timer1.Interval = 500 Then Open ＂C:\Users\Administrator\Desktop\打地鼠\intermediate.dat＂ For Append As #2 Print #2, Text1.Text + ＂ ＂ + Format(Date, ＂M/d/yy＂) Close #2 Else Open ＂C:\Users\Administrator\Desktop\打地鼠\advanced.dat＂ For Append As #3 Print #3, Text1.Text + ＂ ＂ + Format(Date, ＂M/d/yy＂) Close #3 End If End If End If Call Form_Load allnum = 0 '变化次数初始为0 oknum = 0 '打中次数初始为0 Timer1.Enabled = True pause.Enabled = True WLXZ.Enabled = True End Sub Private Sub options_Click() Timer1.Enabled = False Form4.Show WLXZ.Enabled = False countine.Enabled = True End Sub Private Sub pause_Click() Dim r, g, b As Integer Timer1.Enabled = False countine.Enabled = True pause.Enabled = False WLXZ.Enabled = False Form5.Top = Form2.Top + 700 Form5.Left = Form2.Left Form5.Show

以下为关联文档：

韵律活动的教学程序设计教学活动的程序合理与否是教育目标能否有效实现的重要保障因素，也是儿童能否在学习中较长时间地保持身心愉快的重要保障。其实，在这个问题上，最根本的处理原则就是动静交替。当...

vb程序设计射击游戏Private Declare Function GetObject Lib ＂gdi32 ＂ Private Declare Function GetBitmapBits Lib ＂gdi32 ＂ Private Declare Function SetBitmapBits Lib ＂gdi32 ＂ Dim PicBits()...