Question

How to count the total set bits in all numbers from 1 to N in VB.NET

Answer 1

Imports System
 
Public Class Test
    Public Shared Function count_set_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 Function count_total_set_bits(n as integer)
        Dim BitCount As Integer = 0 
        Dim i As Integer
   
        For i = 1 to n
            BitCount += count_set_bits(i)
        Next 
        
        return BitCount
    End Function
     
    Public Shared Sub Main()
        Dim n as Integer = 6
        
        ' 0001
        ' 0010
        ' 0011
        ' 0100
        ' 0101
        ' 0110

        Console.WriteLine(count_total_set_bits(n))
         
    End Sub
End Class
 
 
' run:
 
' 9

 

70+ SQL courses for beginners and professionals