[填空題] 在Visual Basic 程序啟動(dòng)運(yùn)行中設(shè)置一個(gè)封面窗口，顯示一些有意義的信息，要求顯示時(shí)間5秒。Sub dlys(ByVal n As Sing
2021-07-20
[填空題] 在Visual Basic 程序啟動(dòng)運(yùn)行中設(shè)置一個(gè)封面窗口，顯示一些有意義的信息，要求顯示時(shí)間5秒。
Sub dlys(ByVal n As Single)
Dim tl As Single
Dim t2 As Single
t1 = Timer
Do
t2 = Timer
If t2 ＜ t1 Then t2 = t2 + 86400
If 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】處，使用延時(shí)子程序dlys，因?yàn)槭茄訒r(shí)5秒鐘，因此此處n的值為5；在空【14】處，應(yīng)該將封面窗體form2卸載掉，因?yàn)樗皇窃趩?dòng)的時(shí)候給用戶展示一個(gè)畫面信息，在以后程序運(yùn)行中將不再用到它，將它從內(nèi)存中徹底清除，使用語句Unload Form2。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。