Enum 类型名称

成员名=表达式（常量）

End Enum

创建一个一星期的 枚举类型 ：

Module Module1

    Enum days
        sunday = 0
        monday = 1
        yuesday = 2
        wednesday = 3
        thursday = 4
        friday = 5
        saturday = 6
    End Enum

    Sub Main()
        Dim showday As days
        showday = days.thursday
        Dim myday As String
        Console.WriteLine("枚举days")
        For Each myday In [Enum].GetNames(GetType(days))
            Console.Write("{0} ",myday)
        Next
        Console.ReadLine()
        Dim i As Integer
        For Each i In [Enum].GetValues(GetType(days))
            Console.WriteLine("一周中的第{0}天是{1}",i,[Enum].GetName(GetType(days),i))
        Next
        Console.ReadLine()
    End Sub

End Module

运行效果 ：