Массив + 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

Оцени полезность:

6   голосов , оценка 4 из 5