25 Декабрь 2009

Заполнить одномерный (двумерный) текстовый массив случайными символами латинского алфавита

Задачи |  Таги: , , , , , , , ,

Заполнить одномерный (двумерный) текстовый массив случайными символами латинского алфавита

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


Оставить комментарий

Я не робот.