中文字幕综合一区,伊人av网,欧美中日韩在线,亚洲国产香蕉视频,黄视频在线免费,天天操天天爱天天爽,狠狠躁天天躁

軟題庫(kù) 移動(dòng)APP 掃碼下載APP 隨時(shí)隨地移動(dòng)學(xué)習(xí) 培訓(xùn)課程
試卷名稱 2006年上半年程序員考試下午真題試題(案例分析)
考試中心《2006年上半年程序員考試下午真題試題(案例分析)》在線考試
試卷年份2006年上半年
試題題型【分析簡(jiǎn)答題】
試題內(nèi)容

閱讀以下應(yīng)用說(shuō)明以及用Visual Basic開(kāi)發(fā)過(guò)程中進(jìn)行的屬性設(shè)置和所編寫的程序代碼,將應(yīng)填入 (n) 處的字句寫在答題紙的對(duì)應(yīng)欄內(nèi)。
 
【應(yīng)用說(shuō)明】
啟動(dòng)某應(yīng)用程序后,其運(yùn)行窗口左邊會(huì)出現(xiàn)兩只蝴蝶,下邊有“啟動(dòng)”和“停止”兩個(gè)按鈕。單擊“啟動(dòng)”按鈕后,伴隨“兩只蝴蝶”音樂(lè),兩只蝴蝶會(huì)分別沿兩條互絞的曲線,自左至右翩翩飛行(見(jiàn)下圖),而且飛出窗口右邊后又會(huì)再?gòu)拇翱谧筮咃w入。單擊“停止”按鈕時(shí),兩只蝴蝶停止飛行,回到初始狀態(tài),音樂(lè)也同時(shí)停止。再單擊“啟動(dòng)”按鈕時(shí),蝴蝶重新開(kāi)始伴音飛行。
在開(kāi)發(fā)該應(yīng)用時(shí),兩只蝴蝶用兩個(gè)圖像框來(lái)表示,分別命名為Image1和Image2,其Picture屬性分別設(shè)置為各個(gè)蝴蝶的圖像文件名,其stretch屬性都應(yīng)設(shè)置為 (1),使圖像能自動(dòng)改變大小以適應(yīng)圖像框。再在窗體中建立“啟動(dòng)”按鈕(名為CmdStart)和“停止”按鈕(名為CmdStop)。
蝴蝶所飛行的路線分別用正弦和余弦曲線描述。為此,首先需要用Scal方法對(duì)窗體定義坐標(biāo)系統(tǒng)。設(shè)左上角坐標(biāo)為(0,0),右下角坐標(biāo)為(20,6)。蝴蝶1的飛行曲線設(shè)為:y1=2+sin x,蝴蝶2的飛行曲線設(shè)為:y2=2+cos x。蝴蝶飛行的位置坐標(biāo)(x,y)確定了蝴蝶圖像框的位置(Left屬性值和Top屬性值)。
設(shè)置一個(gè)定時(shí)器(名為timer1),其定時(shí)時(shí)間間隔為0.1秒,所以其Interval屬性值應(yīng)設(shè)置為100。每隔0.1秒需要對(duì)兩個(gè)圖像框的位置進(jìn)行一次調(diào)整。初始時(shí),該定時(shí)器的Enabled屬性應(yīng)設(shè)為False(關(guān)閉狀態(tài))。
為使該應(yīng)用程序運(yùn)行時(shí)能播放聲音文件,在開(kāi)發(fā)時(shí)應(yīng)利用菜單“工程-部件”,選擇加載組件“Microsoft Multimedia Control 6.0”,并在窗體中設(shè)置多媒體控件(設(shè)命名為MMC)。由于不需要用戶控制,其Visible屬性可設(shè)置為False(不可見(jiàn))。右擊該控件,可選擇該控件中各按鈕的屬性,應(yīng)注意選擇“播放”有效、“停止”有效?!皟芍缓钡囊魳?lè)文件應(yīng)提前準(zhǔn)備好,并通過(guò)某種音頻處理程序?qū)⑵滢D(zhuǎn)換成WAV格式,存放在開(kāi)發(fā)該應(yīng)用的當(dāng)前目錄中。
【Visual Basic程序代碼】
Dim (2)      ‘聲明全局變量
Private Sub Form_Load()
Scale(0,0)-(20,6) ‘定義窗體的坐標(biāo)系統(tǒng)
End Sub
Private Sub CtndStart_Click()
X = 0
MMC.DeviceType = “WaveAudio” ‘設(shè)置多媒體設(shè)備類型
MMC.FileName = “兩只蝴蝶.wav”    ‘確定聲音文件名
MMC.Command = ”O(jiān)pen”   ‘打開(kāi)多媒體設(shè)備
MMC.Command = ”Play”    ‘啟動(dòng)聲音的播放
Tirner1.Enabled = True    ‘打開(kāi)定時(shí)器
End Sub
Private Sub Tirner1_Timer()
If x>20 Then x = x-20    ‘蝴蝶飛到右邊界后再回到左邊界
Image1.Left = x   ‘動(dòng)態(tài)調(diào)整蝴蝶框的位置
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″    ‘關(guān)閉多媒體設(shè)備
End Sub


相關(guān)試題

推薦文章