在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

碱金属都是活泼金属，都易失去1个电子。