Question

How to fill an array with 1 and 0 in random locations with VB.NET

Answer 1

Imports System

Public Class FillArrayWith1And0InRandomLocations
	Public Shared Sub FillArrayWithRandom1and0(ByVal array As Integer())
        Dim rand As Random = New Random()
        Dim len As Integer = array.Length

        For i As Integer = 0 To len - 1
            array(i) = rand.Next(2) ' Generates either 0 or 1
        Next
    End Sub

    Public Shared Sub Main(ByVal args As String())
        Dim size As Integer = 10
        Dim array As Integer() = New Integer(size - 1) {}

        FillArrayWithRandom1and0(array)

        For Each num As Integer In array
            Console.Write(num & " ")
        Next
    End Sub
End Class



' run:
'
' 1 1 1 0 1 0 1 0 0 1 
'

 

70+ SQL courses for beginners and professionals