default.aspx

来自「This is a book about vb.you could learn 」· ASPX 代码 · 共 32 行

<%@Page Language="VB" %>

<%

Dim b As New BitArray(8,false)
Dim b2 As New BitArray(8,false)
Dim index As Integer


Response.Write( "<br>Count property is :" & b.Count )
Response.Write( "<br>")

index = 0

b(2) = True
b.Set(7, True)
b2(0) = True
b2(1) = True
b2(6) = True

b.Xor( b2 )

Dim value As Boolean
For Each value In b

	Response.Write( "<br>Bit " & index & " - value is : " & value )
	index += 1

Next

%>