Первое и третье слова меняются местами - VB

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

не могу понять в чем ошибка

Private Sub Command1_Click()
Dim strl As String
Dim s1 As String
Dim s2 As String
Dim s3 As String
Dim s4 As String
Dim ki(2) As Integer
str1 = Text1.Text
l = Len(str1)
k1 = 0
j = 1
 
For i = 1 To 1
ch = Mid(str1, i, 1)
 
If ch = " " Then
ki(j) = i
j = j + 1
End If
Next i
For i = 1 To 2
List1.AddItem ki(i)
Next i
 
For i = 1 To (ki(1) - 1)
ch = Mid(str1, i, 1)
s1 = s1 + ch
Next i
 
For f = 1 To (1 - ki(2))
ch = Mid(str1, (f + (ki(2))), 1)
s2 = s2 + ch
Next f
 
For f = 1 To (ki(2) - ki(1))
ch = Mid(str1, (f + (ki(1))), 1)
s3 = s3 + ch
Next f
 
s4 = s2 + " " + s3 + " " + s1
Text2.Text = s4
End Sub

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

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
a=split(Text1.Text)
Text2.Text =a(2) & " " & a(1) & " " & a(0)
End Sub
                        

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

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

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