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”. 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 . 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.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