Private Sub Command1_Click()
Dim a(10) As String * 1
Randomize
For i = 1 To 10
a(i) = Chr(Int(Rnd * 26) + 97)
Next i
Print a(i);
Print
End Sub
