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

@voik · Регистрация: 13.04.2016

Студворк — интернет-сервис помощи студентам

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

Visual Basic

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

@voik · 25.05.2016, 23:13 **[ТС]**

В текстовое поле вводится строка из трех слов, разделенных пробелами. При нажатии кнопки «ОК» запускается процедура, результатом работы которой является новая строка, отличающаяся от введенной тем, что первое и третье слова меняются местами. Эта строка выводится во второе текстовое поле.

~~Shersh~~ · 26.05.2016, 14:29

Visual Basic

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

- весь код, если не проверять правильность ввода трёх слов.

@voik 0 / 0 / 0 Регистрация: 13.04.2016 Сообщений: 6
	25.05.2016, 23:13 [ТС]	2
	В текстовое поле вводится строка из трех слов, разделенных пробелами. При нажатии кнопки «ОК» запускается процедура, результатом работы которой является новая строка, отличающаяся от введенной тем, что первое и третье слова меняются местами. Эта строка выводится во второе текстовое поле. 0

Опции темы

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

Решение