Генератор случайных символов - VB

Формулировка задачи:

Как создать генератор символов: английские буквы (как строчные, так и прописные). Схема такая: 1) Пользователь выбирает количество генерируемых символов в text1.text (например, 5) 2) нажимаем на кнопку 3) text1.text="GsdIu"

Решение задачи: «Генератор случайных символов»

textual
                            Листинг программы 
                        

                            Function genSimbol(n As Integer) As String
    Dim i As Integer, k1 As Integer, k2 As Integer, s As String
    For i = 1 To n
        k1 = Int(Rnd(Timer) * 26)
        k2 = Rnd(Timer) * 2
        s = Chr(65 + k1)
        If k2 > 1 Then s = LCase(s)
        genSimbol = genSimbol & s
    Next
End Function
 
Private Sub Command1_Click()
    Text2.Text = genSimbol(Val(Text1.Text))
End Sub
                        