Question

How to invert all the bit values in BitArray with VB.NET

Answer 1

Imports System
Imports System.Collections

Public Class Program
	Public Shared Sub Main(ByVal args As String())
        Dim bits As BitArray = New BitArray({True, False, True, False, True, True})

        For i As Integer = 0 To bits.Length - 1
            bits(i) = bits(i) Xor True
        Next

        For i As Integer = 0 To bits.Length - 1
            Console.Write(If(bits(i), "1", "0"))
        Next
    End Sub
End Class



' run:
'
' 010100
'

 

70+ SQL courses for beginners and professionals