Imports System
Module FirstSetBit
' Function to find the position of the first set bit
Function FindFirstSetBitPosition(num As Integer) As Integer
' Edge case: If the number is 0, there are no set bits
If num = 0 Then
Return 0 ' Return 0 to indicate no set bit
End If
'
' num And -num isolates the lowest set bit.
' Math.Log(...) / Math.Log(2) gives the zero-based index of that bit.
'
Return CInt(Math.Log(num And -num) / Math.Log(2))
End Function
Sub Main()
Dim num As Integer = 4224 ' Binary: 0001 0000 1000 0000
' Find and display the position of the first set bit
Dim position As Integer = FindFirstSetBitPosition(num)
If position = 0 Then
Console.WriteLine("The number has no set bits (it's 0).")
Else
Console.WriteLine("The position of the first set bit is: " & position)
End If
End Sub
End Module
'
' run:
' The position of the first set bit is: 7
'
