Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

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


Заполнить одномерный (двумерный) текстовый массив случайными символами латинского алфавита
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


В избранное