Imports System
Public Class Program
Public Shared Function totalBits(ByVal num As Integer) As Integer
Return Math.Floor(Math.Log(num, 2.0)) + 1
End Function
Public Shared Sub Main()
Dim n As Integer = 12 ' 1100
Console.WriteLine(totalBits(n))
n = 386 ' 1 1000 0010
Console.WriteLine(totalBits(n))
n = 2658 ' 1010 0110 0010
Console.WriteLine(totalBits(n))
End Sub
End Class
' run:
'
' 4
' 9
' 12
'