例7.11.bas

来自「一本学习Visual Basic编程的好书」· BAS 代码 · 共 10 行

Attribute VB_Name = "Module1"
Sub main()            '先执行此过程
   t = Hour(Time)
   If t <= 12 Then
       Form1.Show
   Else
       Form2.Show
   End If
End Sub