bài tập CLC Đếm số lượng chữ thường và chữ hoa trong câu nhập

Đếm số lượng chữ thường và chữ hoa trong câu nhập Private Sub Command1_Click() Text1.Enabled = True End Sub Private Sub Command2_Click() Dim s As String Dim i, hoa, thuong s = Text1.Text hoa = 0 thuong = 0 For i = 1 To Len(s) If Mid(s, i, 1) >= "a" And Mid(s, i, 1) <= "z" Then thuong = thuong + 1 If Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "Z" Then hoa = hoa + 1 Next i Text2.Text = Str(hoa) Text3.Text = Str(thuong) End Sub Private Sub Form_Load() Text1.Enabled = False End Sub . Đếm số lượng chữ thường và chữ hoa trong câu nhập Private Sub Command1_Click() Text1.Enabled = True. "A" And Mid(s, i, 1) <= "Z" Then hoa = hoa + 1 Next i Text2.Text = Str (hoa) Text3.Text = Str(thuong) End Sub Private Sub Form_Load()