enumeration 枚举是一组命名的整数常量。

声明常量

[ < attributelist> ] [ accessmodifier ] [ Shadows ] 
Const constantlist

1、attributelist：指定应用于常量的属性列表; 您可以提供多个属性，以逗号分隔。 可选的。

2、accessmodifier：指定哪些代码可以访问这些常量。 可选的。 值可以是：Public, Protected, Friend, Protected Friend, or Private.

3、Shadows:这使常量隐藏基类中相同名称的编程元素。 可选的。

4、Constantlist：给出声明的常量的名称列表。 必填。

其中，每个常量名都有以下语法和部分：

constantname [ As datatype ] = initializer

1、constantname 常量名：指定常量的名称

2、data type 数据类型：指定常量的数据类型

3、initializer 初始值设定：指定分配给常量的值

例如，

'The following statements declare constants.'
Const maxval As Long = 4999
Public Const message As String = "HELLO" 
Private Const piValue As Double = 3.1415

示例

以下示例演示了常量值的声明和使用：

Module constantsNenum
   Sub Main()
      Const PI = 3.14159
      Dim radius, area As Single
      radius = 7
      area = PI * radius * radius
      Console.WriteLine("Area = " & Str(area))
      Console.ReadKey()
   End Sub
End Module

当上述代码被编译和执行时，它产生了以下结果：

Area = 153.938

在VB.Net中输出和显示常量

VB.Net提供以下打印和显示常量：

声明枚举

[ < attributelist > ] [ accessmodifier ]  [ Shadows ] 
Enum enumerationname [ As datatype ] 
   memberlist
End Enum

1、attributelist:指应用于变量的属性列表。 可选的。

2、asscessmodifier：指定哪些代码可以访问这些枚举。 可选的。 值可以是：公共，受保护，朋友或私人。

3、Shadows：这使枚举隐藏基类中相同名称的编程元素。 可选的。

4、enumerationname：枚举的名称。 必填

5、datatype：指定枚举的数据类型及其所有成员。

6、memberlist：指定在此语句中声明的成员常数的列表。 必填。

成员列表中的每个成员具有以下语法和部分：

[< attribute list>] member name [ = initializer ]

• name 名称 ：指定成员的名称。必填。

• initializer 初始化 ：分配给枚举成员的值。可选的。

例如，

Enum Colors
   red = 1
   orange = 2
   yellow = 3
   green = 4
   azure = 5
   blue = 6
   violet = 7
End Enum

示例

以下示例演示了Enum变量颜色的声明和使用：

Module constantsNenum
   Enum Colors
      red = 1
      orange = 2
      yellow = 3
      green = 4
      azure = 5
      blue = 6
      violet = 7
   End Enum
   Sub Main()
      Console.WriteLine("The Color Red is : " & Colors.red)
      Console.WriteLine("The Color Yellow is : " & Colors.yellow)
      Console.WriteLine("The Color Blue is : " & Colors.blue)
      Console.WriteLine("The Color Green is : " & Colors.green)
      Console.ReadKey()
   End Sub
End Module

当上述代码被编译和执行时，它产生了以下结果：

The Color Red is: 1
The Color Yellow is: 3
The Color Blue is: 6
The Color Green is: 4