bài tập CLC Đếm số từ ‘Pascal’ (không phân biệt chữ thường, chữ in) trong câu

Đế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 . Đếm số từ ‘Pascal’ (không phân biệt chữ thường, chữ in) trong câu Private Sub Command1_Click() Text1.Enabled. 1 i = i + 6 i = InStr(i, s, "Pascal", 1) Loop Text2.Text = " Trong cau nhap co " & Str(dem) & " tu 'Pascal'"