【发布】发布一个1字节的集合类

集合类说明：
Public Sub Add(e As Byte)
----将e添加到集合中
----如果e已经在集合中，则调用此过程没有任何变化
Public Sub AddBytes(First As Byte, Last As Byte)
----将从First到Last的所有元素添加入集合
----如果First>Last会报错
Public Property Has(e As Byte) As Boolean
----获取\设置元素e是否在集合中
Public Sub Delete(e As Byte)
----将e从集合中删除
----如果e不在集合中，则调用此过程没有任何变化
Public Sub DeleteBytes(First As Byte, Last As Byte)
----将从First到Last的所有元素从集合中删除
----如果First>Last会报错
Public Sub Clear()
----将此集合设为空集
Public Sub All()
----将此集合设为全集
Public ReadOnly Property IsEmpty() As Boolean
----获取集合是否为空集
Public ReadOnly Property IsUniversal() As Boolean
----获取集合是否为全集
Public ReadOnly Property ToArray() As Byte()
----将集合转换为Byte数组，按元素从小到大排列

集合类代码
Option Explicit
Private Declare Sub ZeroMemory Lib "kernel32" Alias "RtlZeroMemory" (Dest As Any, ByVal numBytes As Long)
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Sub FillMemory Lib "kernel32" Alias "RtlFillMemory" (Dest As Any, ByVal numBytes As Long, ByVal Fill As Byte)
Dim Data(0 To 31) As Byte
Public Sub Add(e As Byte)
Data(e \ 8) = Data(e \ 8) Or (2 ^ (e Mod 8))
End Sub
Public Sub AddBytes(First As Byte, Last As Byte)
Dim i As Byte
If Last < First Then Err.Raise 5: Exit Sub
For i = First To Last
Add i
Next
End Sub
Public Property Get Has(e As Byte) As Boolean
Has = Data(e \ 8) And (2 ^ (e Mod 8))
End Property
Public Property Let Has(e As Byte, Value As Boolean)
If Value Then Add e Else Delete e
End Property
Public Sub Delete(e As Byte)
Data(e \ 8) = Data(e \ 8) And Not (2 ^ (e Mod 8))
End Sub
Public Sub DeleteBytes(First As Byte, Last As Byte)
Dim i As Byte
If Last < First Then Err.Raise 5: Exit Sub
For i = First To Last
Delete i
Next
End Sub
Public Sub Clear()
ZeroMemory Data(0), 32
End Sub
Public Sub All()
FillMemory Data(0), 32, 255
End Sub
Public Function GetData() As Byte()
GetData = Data
End Function
Public Sub SetData(NewData() As Byte)
If LBound(NewData) <> 0 Or UBound(NewData) <> 31 Then Err.Raise 9: Exit Sub
CopyMemory Data(0), NewData(0), 32
End Sub
Public Property Get IsEmpty() As Boolean
Dim i As Integer
For i = 0 To 31
If Data(i) Then IsEmpty = False: Exit Sub
Next
IsEmpty = True
End Property
Public Property Get IsUniversal() As Boolean
Dim i As Integer
For i = 0 To 31
If Not Data(i) Then IsUniversal = False: Exit Sub
Next
IsUniversal = True
End Property
Public Property Get ToArray() As Byte()
Dim i As Integer
Dim Tmp() As Byte
Dim Ptr As Integer
If IsEmpty Then Exit Property
Ptr = -1
ReDim Preserve Tmp(0 To 255)
For i = 0 To 255
If Has(CByte(i)) Then
Ptr = Ptr + 1
Tmp(Ptr) = i
End If
Next
ReDim Preserve Tmp(0 To Ptr)
ToArray = Tmp
End Property