Dim (2) ’声明全局变量
Private Sub Form_Load()
Scale(0，0)-(20，6) ’定义窗体的坐标系统
End Sub
Private Sub CmdStart_Click()
x=0
MMC.DevkeType=’’WaveAudio’’ ’设置多媒体设备类型
MMC.FileName=’’两只蝴蝶.wav’’ ’确定声音文件名
MMC．Cornmand=’’Open’’ ’打开多媒体设备
MMC．Command=’’P1ay’’ ’启动声音的播放
Timer1.Enabled=True ’打开定时器
End Sub
Private Sub Timer1_Timer()
Ifx＞20 Thenx=x-20 ’蝴蝶飞到右边界后再回到左边界
Image1.Left=x ’动态调整蝴蝶框的位置
Imagel.Top= (3)
Image2.Len=x
lmage2.Top= (4)
x=x+0.1 ’确定蝴蝶下一步飞行位置
End Sub
Private Sub CmdStop_Click()
(5)
Image1.Left=0 ’蝴蝶位置初始化
Image1．Top=2
Image2．Left=0
Imagc2.Top=3
MMlC.Command=’’Stop’’ ’停止播放
MMC．Command=’’Ciosc’’ ’关闭多媒体设备
End Sub
【参考答案】
True (2)x As Single (3)2+sin(x) (4)2+cos(x) (5)Timer1.Enabl......