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