Visual Basic 常量与枚举

• 常量（constants）指的是程序在执行过程中可能不会改变的固定值。
• 常量可以是任何基本数据类型，如整数常量，浮点常量，字符常量或字符串文字。 也有枚举常量。
• 常量的处理方式与常规变量一样，只是它们的值在定义之后无法修改。
• 枚举是一组命名的整数常量。

声明常量

在 VB 中，使用 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 输出和显示常量

VB 提供了以下的输出(打印)和显示常量的方法:

声明枚举

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

Enum 语句的语法如下:

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

• attributelist：可选的。引用应用于变量的属性列表。
• accessmodifier：可选的。指定哪些代码可以访问这些常量。值可以是：Public, Protected, Friend, Protected Friend 或 Private。
• enumerationname：枚举的名称，必填的。
• Shadows：可选的。这使得常量隐藏了一个基类中相同名称的编程元素。
• 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