Попарное разделение символов из текстового поля - 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

Похожие ответы