Đế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