Заполнить одномерный (двумерный) текстовый массив случайными символами латинского алфавита
2009-12-25 07:00 Александр
Заполнить одномерный (двумерный) текстовый массив случайными символами латинского алфавита
Dim arrayLetters(n) As String
Private Sub Command1_Click()
For a = 0 To n
Randomize
arrayLetters(a) = Chr(65 + Val(Rnd * 25))
List1.AddItem (arrayLetters(a))
Text1.Text = Text1.Text & vbCrLf & arrayLetters(a)
Next a
End Sub