bài tập CLC Đảo từ trong câu đã nhập

Đảo từ trong câu đã nhập Private Sub Command1_Click() Dim s As String s = " " & Text1.Text j = Len(s) For i = Len(s) To 1 Step -1 If Mid(s, i, 1) = " " Then kq = kq & Mid(s, i + 1, j - i) If i <> 1 Then kq = kq & " " j = i - 1 End If Next i MsgBox "Cau '" & s & "' duoc dao lai la: '" & kq & "'" End Sub Private Sub Form_Load() Text1.Text = "" End Sub . Đảo từ trong câu đã nhập Private Sub Command1_Click() Dim s As String s = " "