bài tập CLC Đếm số lượng chữ thường và chữ hoa trong câu nhập
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 (29.59 KB, 1 trang )
Đế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
