Question

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

Answer 1

Imports System

Public Class Test
    Public Shared Function get_random_number(min As Integer, max As Integer) As Integer
        Dim rnd As System.Random = New System.Random()
        Return rnd.Next(min, max)
    End Function
    
    Public Shared Sub Main()
        Dim arr(10) As Char

        For i As Integer = 0 To 10
            arr(i) = Chr(get_random_number(97, 122))
        Next

        Console.WriteLine(arr)        
    End Sub
End Class



' run:
'
' xvxpibfosun

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class Test
    Public Shared Sub Main()
        Dim arr(30) As Char
        Dim s As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
        
        Dim r As New Random
        For i As Integer = 0 To 30
            arr(i) = s(r.Next(0, 52))
        Next

        Console.WriteLine(arr)        
    End Sub
End Class



' run:
'
' YnbZofEkOVmjNZgUVufdMdgUoXjeAbr

 

70+ SQL courses for beginners and professionals