Verificare se un numero è una potenza di 2

Per verificare se un numero è una potenza di 2, si può utilizzare il seguente codice:

Public Sub Main()
 
 Dim numero, m, c As Integer
 Dim s1, s2 As String
 
   m = 1
   numero = 16

   While m > 0
     If (numero And m) > 0 Then
        Inc c
     Endif
       m = m * CInt(2 * 1)
   Wend
 
   s1 = "Il numero " & numero
   s2 = " è una potenza di 2"
 
   If c = 1 Then
     Print s1; s2
   Else
     Print s1; " non"; s2
   Endif
  
End