Question

How to count the number of 1 bit in a given number with VB.NET

Answer 1

Imports System

Public Class Program
	Public  Shared Function Count1Bit(ByVal n As Integer) As Integer
        Dim count As Integer = 0

        While n > 0
            count += n And 1
			n = n >> 1
        End While

        Return count
    End Function

	Public Shared Sub Main()
        Dim n As Integer = 95 ' 0101 1111
		
        Dim count As Integer = Count1Bit(n)
		
        Console.WriteLine("Number of 1 bit = " & count)
    End Sub
End Class




' run:
'
' Number of 1 bit = 6
'

 

70+ SQL courses for beginners and professionals