[問(wèn)答題] 在考生文件夾下有一個(gè)工程文件sjt3.vbp，窗體中有兩個(gè)圖片框，名稱(chēng)分別為P1、P2，其中的圖片內(nèi)容分別是一架航天飛機(jī)和一朵云彩；一個(gè)命令按鈕，名稱(chēng)為C1，標(biāo)題為“發(fā)射”；一個(gè)計(jì)時(shí)器，名稱(chēng)為T(mén)imer1。并給出了兩個(gè)事件過(guò)程，但并不完整，要求：①設(shè)置Timer1的屬性，使其在初始狀態(tài)下不計(jì)時(shí)；②設(shè)置Timer1的屬性，使其每隔0.1s調(diào)用Timer事件過(guò)程一次；③去掉程序中的注釋符，把程序中的問(wèn)號(hào)改為正確的內(nèi)容，使得在運(yùn)行時(shí)單擊“發(fā)射”按鈕，則航天飛機(jī)每隔0.1s向上移動(dòng)一次，當(dāng)?shù)竭_(dá)P2的下方時(shí)停止移動(dòng)，如圖所示。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤(pán)。

[操作步驟]步驟A：按題目要求打開(kāi)工程文件，設(shè)置計(jì)時(shí)器屬性，如圖所示。步驟B：打開(kāi)代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)改為正確的內(nèi)容。 Private Sub CA_Click() TimerA.Enabled=True’單擊"發(fā)射"按鈕，則Timer生效 End Sub Private Sub TimerA_Timer() StatiC a% a=a+A If PA.Top＞PB.Top+PB.Height Then&rsqu

[解題思路] 工程文件中已建立全部控件，只需編寫(xiě)事件過(guò)程即可。Timer1控件的Interval屬性用來(lái)控制計(jì)時(shí)器事件發(fā)生的時(shí)間間隔，通過(guò)題意可知，該屬性設(shè)置為100(Interval是以ms為單位)。當(dāng)單擊“發(fā)射”按鈕時(shí)開(kāi)始計(jì)時(shí)，將計(jì)時(shí)器控件的Enabled屬性設(shè)置為T(mén)rue。如果使航天飛機(jī)即P1停止移動(dòng)，則將計(jì)時(shí)器控件的Enabled屬性設(shè)置為 False。