Question

How to count the total bits required to store a given integer number in VB.NET

Answer 1

Imports System
				
Public Class Program
	Private Shared Function CountBits(ByVal num As Integer) As Integer
        Dim bitCounter As Integer = 0
		
		For i As Integer = 0 To 31 Step 1
            If ((1 << i) And num) Then
                bitCounter = i + 1
            End If
        Next
         
        Return bitCounter
    End Function
	
	Public Sub Main()
        Dim num As Integer = 251

		num = 251

        Console.Write("Total bits required to store {0} are: {1}", num, CountBits(num))

	End Sub
End Class



' run:
'
' Total bits required to store 251 are: 8
'

 

70+ SQL courses for beginners and professionals