Генератор паролей - VB (60581)

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

Доброго времени суток))) Помогите пожалуйта написать программу(или исходник) под названием "Генератор паролей". Принцип программы прост. Она должна сгенерировать пароль и вывести его например: в Textbox. И ещё, в программе пожно будет выставлять длину пароля. (В пароле должны присутствовать цифры и английские буквы) Помогите пожалуйста)) Заранее спасибо(+1)

Решение задачи: «Генератор паролей»

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

                            Option Explicit
Dim a(3, 26) As Integer, parol As String, p As Integer
Dim i As Integer, ind1 As Integer, ind2 As Integer
 
Private Sub Command1_Click()
p = Val(Text1.Text)
If Len(p) < 1 Then
MsgBox "L>0 !!!"
Exit Sub
End If
parol = ""
For i = 1 To p
ind1 = Int(Rnd * 2) + 1 'Int(Rnd * 2) + 1 если больших не над
Label1 = ind1
If ind1 = 1 Then
ind2 = Int(Rnd * 10) + 1
Else
ind2 = Int(Rnd * 26) + 1
End If
parol = parol & Chr(a(ind1, ind2))
Next i
Text2.Text = parol
End Sub
 
Private Sub Form_Load()
Text2.Locked = True
For i = 1 To 10
a(1, i) = i + 47 'цифры
Next i
For i = 1 To 26
a(3, i) = i + 64 'большие
a(2, i) = i + 96 'маленькие
Next i
End Sub
                        