Question

How to initialize char array with random characters in VB.NET

Answer 1

Imports System
  
Public Class CharArrayRandomizer
    Public Shared Sub Main()
        Dim array(10) As Char
  
        Dim charset As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
        Dim rnd As Random = New Random()
         
        For index As Integer = 0 To 10
            array(index) = charset(rnd.Next(charset.Length))
        Next
           
        For Each ch In array
            Console.Write(ch & " ")
        Next
    End Sub
End Class
  
  
  
' run:
'
' N l K n m Y u D k K a 
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
 
Public Class CharArrayRandomizer
    Private Const SIZE As Integer = 10
 
    Private Shared Sub initializeCharArrayWithRandomCharacters(ByVal arr As Char())
        Dim characters As String = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Dim random As Random = New Random()
 
        For i As Integer = 0 To arr.Length - 1
            arr(i) = characters(random.Next(characters.Length))
        Next
    End Sub
 
    Public Shared Sub Main(ByVal args As String())
        Dim arr As Char() = New Char(9) {}
         
        initializeCharArrayWithRandomCharacters(arr)
 
        For Each ch As Char In arr
            Console.Write(ch & " ")
        Next
    End Sub
End Class
   
  
  
' run:
'
' f x N 5 q G 4 O i k 
'

 

70+ SQL courses for beginners and professionals