bài tập CLC Đếm số từ ‘Pascal’ (không phân biệt chữ thường, chữ in) trong câu
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 (48.23 KB, 1 trang )
Đếm số từ ‘Pascal’ (không phân biệt chữ thường, chữ in) trong câu
Private Sub Command1_Click()
Text1.Enabled = True
End Sub
Private Sub Command2_Click()
Dim s As String * 50
Dim i
s = Text1.Text
i = InStr(1, s, "Pascal", 1)
Do While i > 0
dem = dem + 1
i = i + 6
i = InStr(i, s, "Pascal", 1)
Loop
Text2.Text = " Trong cau nhap co " & Str(dem) & " tu 'Pascal'"
End Sub
Private Sub Form_Load()
Text1.Enabled = False
End Sub
