Imports System
Public Class Test
Public Shared Sub Main()
Dim n as Integer = 16
Console.WriteLine(Convert.ToString(n, 2).PadLeft(8, "0"C))
Console.WriteLine(Convert.ToString(n - 1, 2).PadLeft(8, "0"C))
Console.WriteLine(Convert.ToString(n AND (n - 1), 2).PadLeft(8, "0"C))
Dim b as Boolean = (n And (n - 1)) = 0
Console.WriteLine(b)
End Sub
End Class
'run:
' 00010000
' 00001111
' 00000000
' True