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ó

1 1.1K 0
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ó

Đang tải... (xem toàn văn)

Thông tin tài liệu

Thay thế tất cả các từ “em” trong câu thành “anh”. Nếu không từ “em” thì báo không 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

Ngày đăng: 24/10/2013, 14:20

Từ khóa liên quan

Tài liệu cùng người dùng

  • Đang cập nhật ...

Tài liệu liên quan