Массив + textbox - VB
Формулировка задачи:
как разбить текст на массив находящейся в текстовом поле т.е. каждому элементу массива надо присвоить каждую буквы текста.
text1.text="буква" и как сделать чтобы
массив(1)=б
массив(2)=у
массив(3) =к
массив(4)=в
массив(5)=а
При том что текст в textbox становится известен только после запуска программы???
Пожайлуста помогите!!!
Решение задачи: «Массив + textbox»
textual
Листинг программы
Private Sub Command1_Click() Dim массив() n = Len(Text1.Text) + 5 ReDim массив(n) Text2.Text = "" For i = 1 To n If i < 6 Then массив(i) = Mid("буква", i, 1) Else массив(i) = Mid(Text1.Text, i - 5, 1) End If Text2.Text = Text2.Text & массив(i) Next i