列表

详情



  阅读以下应用说明以及用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
 

参考答案:

详细解析:

上一题