Imports System
Public Class Program
Public Sub Main()
Dim a As Integer = 10 ' 1010
Dim b As Integer = 11 ' 1001
Dim result As Integer = 0
Console.WriteLine("a AND (&) b : {0}", a AND b) ' 1010
Console.WriteLine("a OR (|) b : {0}", a Or b) ' 1011
Console.WriteLine("a XOR (^) b : {0}", a XOR b) ' 0001
Console.WriteLine("NOT (!) a : {0}", NOT a) ' 1111111111111111111111111111111111111111111111111111111111110101
Console.WriteLine("a << b : {0}", a << 2) ' 00101000
Console.WriteLine("a >> b : {0}", a >> 2) ' 0010
End Sub
End Class
' run:
'
' a AND (&) b : 10
' a OR (|) b : 11
' a XOR (^) b : 1
' NOT (!) a : -11
' a << b : 40
' a >> b : 2
'
