- VB.Net 基礎教程
- VB.Net - 首頁
- VB.Net - 概述
- VB.Net - 環境設定
- VB.Net - 程式結構
- VB.Net - 基本語法
- VB.Net - 資料型別
- VB.Net - 變數
- VB.Net - 常量
- VB.Net - 修飾符
- VB.Net - 語句
- VB.Net - 指令
- VB.Net - 運算子
- VB.Net - 決策
- VB.Net - 迴圈
- VB.Net - 字串
- VB.Net - 日期和時間
- VB.Net - 陣列
- VB.Net - 集合
- VB.Net - 函式
- VB.Net - 子程式
- VB.Net - 類和物件
- VB.Net - 異常處理
- VB.Net - 檔案處理
- VB.Net - 基本控制元件
- VB.Net - 對話方塊
- VB.Net - 高階窗體
- VB.Net - 事件處理
- VB.Net 高階教程
- VB.Net - 正則表示式
- VB.Net - 資料庫訪問
- VB.Net - Excel表格
- VB.Net - 傳送郵件
- VB.Net - XML處理
- VB.Net - Web程式設計
- VB.Net 有用資源
- VB.Net - 快速指南
- VB.Net - 有用資源
- VB.Net - 討論
VB.Net - BitArray
BitArray 類管理一個緊湊的位值陣列,這些位值表示為布林值,其中 true 表示位為開 (1),false 表示位為關 (0)。
當需要儲存位但事先不知道位數時,可以使用它。可以使用從零開始的整數索引訪問 BitArray 集合中的專案。
BitArray 類的屬性和方法
下表列出了一些常用的BitArray類的屬性:
| 序號 | 屬性及說明 |
|---|---|
| 1 | Count 獲取 BitArray 中包含的元素數。 |
| 2 | IsReadOnly 獲取一個值,該值指示 BitArray 是否為只讀。 |
| 3 | Item 獲取或設定 BitArray 中特定位置的位的值。 |
| 4 | Length 獲取或設定 BitArray 中的元素數量。 |
下表列出了一些常用的BitArray類的方法:
| 序號 | 方法名稱及用途 |
|---|---|
| 1 |
Public Function And (value As BitArray) As BitArray 對當前 BitArray 中的元素與指定 BitArray 中的相應元素執行按位 AND 運算。 |
| 2 |
Public Function Get (index As Integer) As Boolean 獲取 BitArray 中特定位置的位的值。 |
| 3 |
Public Function Not As BitArray 反轉當前 BitArray 中的所有位值,以便設定為 true 的元素更改為 false,設定為 false 的元素更改為 true。 |
| 4 |
Public Function Or (value As BitArray) As BitArray 對當前 BitArray 中的元素與指定 BitArray 中的相應元素執行按位 OR 運算。 |
| 5 |
Public Sub Set (index As Integer, value As Boolean ) 將 BitArray 中特定位置的位設定為指定值。 |
| 6 |
Public Sub SetAll (value As Boolean) 將 BitArray 中的所有位設定為指定值。 |
| 7 |
Public Function Xor (value As BitArray) As BitArray 對當前 BitArray 中的元素與指定 BitArray 中的相應元素執行按位異或運算。 |
示例
以下示例演示了 BitArray 類的用法:
Module collections
Sub Main()
'creating two bit arrays of size 8
Dim ba1 As BitArray = New BitArray(8)
Dim ba2 As BitArray = New BitArray(8)
Dim a() As Byte = {60}
Dim b() As Byte = {13}
'storing the values 60, and 13 into the bit arrays
ba1 = New BitArray(a)
ba2 = New BitArray(b)
'content of ba1
Console.WriteLine("Bit array ba1: 60")
Dim i As Integer
For i = 0 To ba1.Count
Console.Write("{0 } ", ba1(i))
Next i
Console.WriteLine()
'content of ba2
Console.WriteLine("Bit array ba2: 13")
For i = 0 To ba2.Count
Console.Write("{0 } ", ba2(i))
Next i
Console.WriteLine()
Dim ba3 As BitArray = New BitArray(8)
ba3 = ba1.And(ba2)
'content of ba3
Console.WriteLine("Bit array ba3 after AND operation: 12")
For i = 0 To ba3.Count
Console.Write("{0 } ", ba3(i))
Next i
Console.WriteLine()
ba3 = ba1.Or(ba2)
'content of ba3
Console.WriteLine("Bit array ba3 after OR operation: 61")
For i = 0 To ba3.Count
Console.Write("{0 } ", ba3(i))
Next i
Console.WriteLine()
Console.ReadKey()
End Sub
End Module
編譯並執行以上程式碼後,將產生以下結果:
Bit array ba1: 60 False False True True True True False False Bit array ba2: 13 True False True True False False False False Bit array ba3 after AND operation: 12 False False True True False False False False Bit array ba3 after OR operation: 61 True False True True False False False False