[填空題] 在Visual Basic 程序啟動運行中設(shè)置一個封面窗口,顯示一些有意義的信息,要求顯示時間5秒。 Sub dlys(ByVal n As S
2021-07-20
[填空題] 在Visual Basic 程序啟動運行中設(shè)置一個封面窗口,顯示一些有意義的信息,要求顯示時間5秒。 Sub dlys(ByVal n As Single) Dim tl As Single Dim t2 As Single t1 = Timer Dot2 = TimerIf t2 < t1 Then t2 = t2 + 86400If t2 - tl > n Then Exit Do 【12】 Loop End Sub Sub main( ) Form2. Show dlys 【13】 【14】 Form1. Show End Sub
正確答案:[12]DoEvents [13]5 [14]Unload Form2
參考解析:在空【12】處,為了在閑置循環(huán)狀態(tài)下可響應(yīng)其他事件,使用語句DoEvents;接下來,在空【13】處,使用延時子程序dlys,因為是延時5秒鐘,因此此處n的值為5;在空【14】處,應(yīng)該將封面窗體form2卸載掉,因為它只是在啟動的時候給用戶展示一個畫面信息,在以后程序運行中將不再用到它,將它從內(nèi)存中徹底清除,使用語句Unload Form2。
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。