VB.Net - 常量和枚举

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

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

常量被视为常规变量，除了它们的值在定义后无法修改.

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

声明常量

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

Const语句的语法是 :

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

其中，

• 属性列表 : 指定应用于常量的属性列表;您可以提供以逗号分隔的多个属性.可选.

• accessmodifier : 指定哪些代码可以访问这些常量.可选的.值可以是:公共，受保护，朋友，受保护的朋友或私人.

• 阴影 : 这使得常量隐藏了基类中相同名称的编程元素.可选.

• Constantlist : 给出声明的常量名称列表.必需.

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

constantname [ As 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

示例

以下示例演示了常量值&minus的声明和使用;

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

当编译和执行上述代码时，它会产生s以下结果 :

Area = 153.933

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

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

Sr.No.	常数和描述
1	vbCrLf 回车/换行字符组合.
2	vbCr 回车符.
3	vbLf 换行符.
4	vbNewLine 换行符.
5	vbNullChar 空字符.
6	vbNullString 与零长度字符串("")不同;用于调用外部程序.
7	vbObjectError 错误编号.用户定义的错误号应大于此值.例如:Err.Raise(Number)= vbObjectError + 1000
8	vbTab 制表符.
9	vbBack 退格字符.

声明枚举

使用

Enum语句的语法如下 :

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

其中，

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

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

• 阴影 : 这使得枚举隐藏了基类中具有相同名称的编程元素.可选.

• enumerationname : 枚举的名称.必填

• 数据类型 : 指定枚举及其所有成员的数据类型.

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

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

[< attribute list >] member 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