VB.Net - 常量和枚举

---

---

常量指的是程序在执行过程中不能改变的固定值。这些固定值也称为字面量。

常量可以是任何基本数据类型，例如整数常量、浮点常量、字符常量或字符串字面量。也存在枚举常量。

常量与普通变量一样，只是它们的 值在定义后不能修改。

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

声明常量

在 VB.Net 中，常量使用Const语句声明。Const 语句用于模块、类、结构、过程或块级别，以代替字面值。

Const 语句的语法如下：

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

其中：

• attributelist − 指定应用于常量的属性列表；可以使用逗号分隔多个属性。可选。

• accessmodifier − 指定哪些代码可以访问这些常量。可选。值可以是：Public、Protected、Friend、Protected Friend 或 Private。

• Shadows − 这使得常量隐藏基类中相同名称的编程元素。可选。

• Constantlist − 给出声明的常量名称列表。必需。

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

constantname [ As datatype ] = initializer

• constantname − 指定常量的名称

• datatype − 指定常量的类型

• 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.14149
      Dim radius, area As Single
      radius = 7
      area = PI * radius * radius
      Console.WriteLine("Area = " & Str(area))
      Console.ReadKey()
   End Sub
End Module

编译并执行上述代码后，将产生以下结果：

Area = 153.933

在 VB.Net 中打印和显示常量

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

声明枚举

枚举类型使用Enum语句声明。Enum 语句声明一个枚举并定义其成员的值。Enum 语句可以在模块、类、结构、过程或块级别使用。

Enum 语句的语法如下：

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

其中：

• attributelist − 指的是应用于变量的属性列表。可选。

• accessmodifier − 指定哪些代码可以访问这些枚举。可选。值可以是：Public、Protected、Friend 或 Private。

• Shadows − 这使得枚举隐藏基类中相同名称的编程元素。可选。

• enumerationname − 枚举的名称。必需

• datatype − 指定枚举及其所有成员的数据类型。

• memberlist − 指定在此语句中声明的成员常量列表。必需。

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 变量 *Colors* 的声明和使用：

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