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
'