作业帮 > 综合 > 作业

VB中统计大小写字母及数字个数代码怎么写?

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/15 20:02:15
VB中统计大小写字母及数字个数代码怎么写?
Private Sub Command1_Click()
Dim a As String,dx As Integer
Dim xx As Integer,sz As Integer
a = "ASDFasdfASDFYZ0123asdfyz456789"
For i = 1 To Len(a)
Select Case Mid(a,i,1)
Case "0" To "9"
sz = sz + 1
Case "A" To "Z"
dx = dx + 1
Case "a" To "z"
xx = xx + 1
End Select
Next
MsgBox "大写" & dx & "小写" & xx & "数字" & sz
End Su