tip0345.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 16 行

Public Enum Weekdays
  Monday
  Tuesday
  Wednesday
  Thursday
  Friday
End Enum

Public Sub Main()
  Dim Day As Weekdays

  For Day = Monday To Friday
    Debug.Print Day
  Next
End Sub