Module Module1
Sub Main()
Dim arr(9) As String
Dim rnd As New Random()
For i = 0 To arr.GetUpperBound(0)
arr(i) = ChrW(rnd.Next(97, 122))
Next
For Each ch In arr
Console.WriteLine(ch)
Next
End Sub
End Module
' run:
'
' g
' x
' g
' h
' j
' u
' v
' w
' y
' u