bài tập CLC Thay thế tất cả các từ “em” trong câu thành “anh”. Nếu không có từ “em” thì báo là không có
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 (29.7 KB, 1 trang )
Thay thế tất cả các từ “em” trong câu thành “anh”. Nếu không
có từ “em” thì báo là không có
Private Sub Command1_Click()
Text1.Enabled = True
End Sub
Private Sub Command2_Click()
Dim s As String, i
s = Text1.Text
i = InStr(1, s, "em", 1)
If i > 0 Then
Do
s = Replace(s, Mid(s, i, 2), "anh", 1)
i = InStr(1, s, "em", 1)
Loop Until i <= 0
Text1.Text = s
Else
Label1.Caption = "Khong co bat ky tu 'em' nao trong cau !!"
End If
End Sub
Private Sub Form_Load()
Text1.Enabled = False
End Sub
