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(33, 126))
Next
For Each ch In arr
Console.WriteLine(ch)
Next
End Sub
End Module
' run:
'
' )
' (
' #
' n
' -
' 0
' '
' ;
' e
' j