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 − 指定分配給常量的值

例如：

'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.Net 中列印和顯示常量

VB.Net 提供以下列印和顯示常量：

宣告列舉

列舉型別使用Enum語句宣告。Enum 語句宣告一個列舉並定義其成員的值。Enum 語句可以在模組、類、結構、過程或塊級別使用。

Enum 語句的語法如下：

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

其中：

• attributelist − 指的是應用於變數的屬性列表。可選。

• accessmodifier − 指定哪些程式碼可以訪問這些列舉。可選。值可以是：Public、Protected、Friend 或 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