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