VB.Net - 常数和枚举

constants 常数指的是程序在执行过程中可能不会改变的固定值。 这些固定值也称为文字。

常量可以是任何基本数据类型，如整数常量，浮点常量，字符常量或字符串常量。 还有枚举常量。

常量被视为常规变量，除了它们的值不能在它们的定义之后被修改。

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

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

Const语句的语法是：
[ < 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提供以下打印和显示常量：

Constant 描述
vbCrLf 回车/换行字符组合。
vbCr 回车字符。
vbLf 换行字符。
vbNewLine 换行字符。
vbNullChar 空字符。
vbNullString 不等于零长度字符串（“”）; 用于调用外部过程。
vbObjectError 错误号。用户定义的错误号应大于此值。例如：
Err.Raise（数字）= vbObjectError + 1000
vbTab 标签字符。
vbBack 退格字符。

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

Enum语句的语法如下：
[ < 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

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

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