Question

How to generate binary numbers from 1 to N in VB.NET

Answer 1

Imports System
				
Public Module Module1
	Public Sub generateBinaryNumbers(n As Integer) 
		For i As Integer = 1 To n
            Console.WriteLine(Convert.ToString(i, 2))
		Next
	End Sub
	Public Sub Main()
		Dim n As Integer = 15
 
        generateBinaryNumbers(n)
	End Sub
End Module



' run:
'
' 1
' 10
' 11
' 100
' 101
' 110
' 111
' 1000
' 1001
' 1010
' 1011
' 1100
' 1101
' 1110
' 1111
'

 

Cleaner teeth, healthier you!
Get The Secret to a Bright and Healthy Smile