constants 常数指的是程序在执行过程中可能不会改变的固定值。 这些固定值也称为文字。
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提供以下打印和显示常量:
Constant | 描述 |
---|---|
vbCrLf | 回车/换行字符组合。 |
vbCr | 回车字符。 |
vbLf | 换行字符。 |
vbNewLine | 换行字符。 |
vbNullChar | 空字符。 |
vbNullString | 不等于零长度字符串(“”); 用于调用外部过程。 |
vbObjectError | 错误号。用户定义的错误号应大于此值。例如: Err.Raise(数字)= vbObjectError + 1000 |
vbTab | 标签字符。 |
vbBack | 退格字符。 |
[ < 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