参考答案:
详细解析:
阅读以下应用说明以及用Visual Basic开发过程中进行的属性设置和所编写的程序代码,将应填入 (n) 处的字句写在答题纸的对应栏内。
【应用说明】
启动某应用程序后,其运行窗口左边会出现两只蝴蝶,下边有“启动”和“停止”两个按钮。单击“启动”按钮后,伴随“两只蝴蝶”音乐,两只蝴蝶会分别沿两条互绞的曲线,自左至右翩翩飞行(见下图),而且飞出窗口右边后又会再从窗口左边飞入。单击“停止”按钮时,两只蝴蝶停止飞行,回到初始状态,音乐也同时停止。再单击“启动”按钮时,蝴蝶重新开始伴音飞行。
在开发该应用时,两只蝴蝶用两个图像框来表示,分别命名为Image1和Image2,其Picture属性分别设置为各个蝴蝶的图像文件名,其stretch属性都应设置为 (1),使图像能自动改变大小以适应图像框。再在窗体中建立“启动”按钮(名为CmdStart)和“停止”按钮(名为CmdStop)。
蝴蝶所飞行的路线分别用正弦和余弦曲线描述。为此,首先需要用Scal方法对窗体定义坐标系统。设左上角坐标为(0,0),右下角坐标为(20,6)。蝴蝶1的飞行曲线设为:y1=2+sin x,蝴蝶2的飞行曲线设为:y2=2+cos x。蝴蝶飞行的位置坐标(x,y)确定了蝴蝶图像框的位置(Left属性值和Top属性值)。
设置一个定时器(名为timer1),其定时时间间隔为0.1秒,所以其Interval属性值应设置为100。每隔0.1秒需要对两个图像框的位置进行一次调整。初始时,该定时器的Enabled属性应设为False(关闭状态)。
为使该应用程序运行时能播放声音文件,在开发时应利用菜单“工程-部件”,选择加载组件“Microsoft Multimedia Control 6.0”,并在窗体中设置多媒体控件(设命名为MMC)。由于不需要用户控制,其Visible属性可设置为False(不可见)。右击该控件,可选择该控件中各按钮的属性,应注意选择“播放”有效、“停止”有效。“两只蝴蝶”的音乐文件应提前准备好,并通过某种音频处理程序将其转换成WAV格式,存放在开发该应用的当前目录中。
【Visual Basic程序代码】
Dim (2) ‘声明全局变量
Private Sub Form_Load()
Scale(0,0)-(20,6) ‘定义窗体的坐标系统
End Sub
Private Sub CtndStart_Click()
X = 0
MMC.DeviceType = “WaveAudio” ‘设置多媒体设备类型
MMC.FileName = “两只蝴蝶.wav” ‘确定声音文件名
MMC.Command = ”Open” ‘打开多媒体设备
MMC.Command = ”Play” ‘启动声音的播放
Tirner1.Enabled = True ‘打开定时器
End Sub
Private Sub Tirner1_Timer()
If x>20 Then x = x-20 ‘蝴蝶飞到右边界后再回到左边界
Image1.Left = x ‘动态调整蝴蝶框的位置
Image1.Top = (3)
In;age2.Left = x
Image2.Top = (4)
x = x+0.l ‘确定蝴蝶下一步飞行位置
End Sub
Private Sub CmdStop_Click()
(5)
Itnage1.Left = 0 ‘蝴蝶位置初始化
Image1.Top = 2
Image2.Left = 0
Image2.Top = 3
MMC.Command = “Stop” ‘停止播放
MMC.Command = “Close″ ‘关闭多媒体设备
End Sub
参考答案:
详细解析: