问答题
Dim{{U}} (2) {{/U}} '声明全局变量
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={{U}} (3) {{/U}}
Image2.Len=x
lmage2.Top= {{U}}(4) {{/U}}
x=x+0.1 '确定蝴蝶下一步飞行位置
End Sub
Private Sub CmdStop_Click()
{{U}} (5) {{/U}}
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.Enabled=False
[分析]试题七
本题涉及两个技术要点。一是利用图像框在窗体中的动态定位实现简单动画，一是利用多媒体控件播放声音文件。
在窗体中，为了便于实现图像框的定位，一般需要先建立自定义的坐标系统。
在主窗体加载过程(Form Load)中，采用语句：
Seal(0，o)-(20，6)
就为该窗体设置了自己的坐标系统，左上角坐标为(0，0)，右下角坐标为(20，6)。
