在Visual Basic 程序启动运行中设置一个封面窗口，显示一些有意义的信息，要求显示时间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

如果怀疑自己得了艾滋病怎么办？