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ó

Thay thê tất cả các từ "em trong câu thành *anh”.

Thay thê tất cả các từ "em trong câu thành *anh” Nếu không

co tu “em” thi bao là không có

Nhap cau

Ket qua

Private Sub Commandl Click()

Textl.Enabled = True

End Sub

Private Sub Command2 Click()

Dim s As String, 1

Ss = Textl.Text

1 = TnStr(1, s, "em", 1)

Tf i > O Then

Do

S = Replace(s, Mid(s, i, 2), "anh", 1)

+ InStr(l, s, "em", 1)

Loop Until 1 <= 0

Textl.Text = s

Else

Labell.Caption = "Khong co bat ky tu 'em' nao trong cau !!"

End If

End Sub

Private Sub Form Load()

Textl Enabled = False

End Sub