Question

How to generate all the binary options of N bits in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Sub generateAllBinaryOptions(ByVal N As Integer)
        For i As Integer = 0 To (1 << N) - 1
            Dim binary As String = Convert.ToString(i, 2).PadLeft(N, "0"c)
            Console.WriteLine(binary)
        Next
    End Sub

    Public Shared Sub Main()
        Dim N As Integer = 4
	
        generateAllBinaryOptions(N)
    End Sub
End Class





' run:
'
' 0000
' 0001
' 0010
' 0011
' 0100
' 0101
' 0110
' 0111
' 1000
' 1001
' 1010
' 1011
' 1100
' 1101
' 1110
' 1111
'

 

70+ SQL courses for beginners and professionals