code346b.txt

VB大全（精华版）源代码

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