code346b.txt

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

Public Enum Weekdays
  Monday = 10
  Tuesday=20
  Wednesday=30
  Thursday=40
  Friday=50
End Enum


Public Sub Main()
  Debug.Print Monday, Tuesday, Wednesday, Thursday, Friday
End Sub