VB.Net 常量和枚举
-
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 -指定分配给常量的值
例如,'以下语句声明常量。' 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提供以下打印和显示常量-常量 说明 vbCrLf 回车符/换行符的组合。 vbCr 回车符。 vbLf 换行符。 vbNewLine 换行符。 vbNullChar 空字符。 vbNullString 与零长度字符串(“”)不同; 用于调用外部过程。 vbObjectError 错误号。 用户定义的错误号应大于此值。 例如:Err.Raise(Number)= vbObjectError + 1000 vbTab 制表符。 vbBack 退格字符。 -
声明枚举
使用Enum语句声明枚举类型。Enum语句声明一个枚举并定义其成员的值。Enum语句可以在模块,类,结构,过程或块级别使用。Enum语句的语法如下-[ < attributelist > ] [ accessmodifier ] [ Shadows ] Enum enumerationname [ As datatype ] memberlist End Enum
说明- attributelist-指应用于变量的属性列表。可选的。
- accessmodifier-指定哪些代码可以访问这些枚举。可选的。值可以是:Public,Protected,Friedn或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