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(65, 90))
Next
For Each ch In arr
Console.WriteLine(ch)
Next
End Sub
End Module
' run:
'
' R
' I
' W
' U
' R
' J
' E
' X
' E
' K