bài tập CLC Đảo từ trong câu đã nhập
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (28.7 KB, 1 trang )
Đả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
