VB 枚举类型 Enum

Option Explicit
Private Enum Weeks
    sun = 0
    Mon = 1
    Tue = 2
    Wed = 3
    Thu = 4
    Fri = 5
    Sat = 6
End Enum


Private Sub Command1_Click()
    Dim week As Weeks
    week = Tue
    Print Weeks.sun
    Print week
End Sub