来自「Visual Basic中,对于文本比较好的处理方式.」· 代码 · 共 10 行

Attribute VB_Name = "Module1"
Sub main()
   t = Hour(Time)
   If t <= 12 Then
       Form1.Show
   Else
       Form2.Show
   End If
End Sub