Попарное разделение символов из текстового поля - VB

Узнай цену своей работы

Формулировка задачи:

В текстовое поле можно вводить любые символы, по нажатии кнопки пуск в лист1 должны появится попарно разделенные символы из текстового поля.

Решение задачи: «Попарное разделение символов из текстового поля»

textual
Листинг программы
Private Sub Command1_Click()
    Dim i As Integer
    List1.Clear
    For i = 1 To Len(Text1.Text) Step 2
         List1.AddItem Mid(Text1.Text, i, 2)
    Next i
End Sub

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

12   голосов , оценка 4.333 из 5
Похожие ответы