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

简述确定碎（砂）石桩加固深度的基本原则。