Question

How to count the total bits of a number that equal to one (1) in VB.NET

Answer 1

Imports System

Public Class Test
    Public Shared Function count_bits(n as integer)
        Dim count as Integer = 0
        
        Do While n > 0
            count += n And 1
            n >>= 1
        Loop 
        
        return count 
    End Function
    
    Public Shared Sub Main()
        Dim n as Integer = 1358
        
        Console.WriteLine(Convert.ToString(n, 2).PadLeft(16, "0"C))
        Console.WriteLine(count_bits(n))
        
    End Sub
End Class


'run:

'0000010101001110
'6

 

70+ SQL courses for beginners and professionals