求助设计一个VB程序

来源：百度知道 编辑：UC知道 时间：2024/05/15 01:26:09
要求输入字符串，并求出所输入字符串的字母个数，数字个数，及其他字母个数！！！最好有流程图！！1

Private Sub Command1_Click()
Dim u As String
Dim a, b, c, i As Long
u = Trim(InputBox("请输入"))
For i = 1 To Len(u)
If IsNumeric(Mid(u, i, 1)) = True Then
a = a + 1: GoTo o
Else
If Mid(u, i, 1) Like "[a-z]" = True Or Mid(u, i, 1) Like "[a-z]" = True Then
b = b + 1: GoTo o
Else
c = c + 1
End If
End If
o: Next i
Print "数字有" & a & "个"
Print "字母有" & b & "个"
Print "其他有" & c & "个"
End Sub

这个简单
留下邮箱，我给你发源码