输入一行字符，分别统计出其中英文字母、数字和其它字符的个数。vb

输入一行字符，分别统计出其中英文字母、数字和其它字符的个数。VB

Private Sub Command1_Click()
s = InputBox("请输入一行字符")
Split s, "" ‘ 用了split - -
a = b = d = 0
For i = 1 To Len(s)
c = Asc(Mid(s, i, 1))
If (c >= 65 And c <= 90) Or (c >= 97 And c <= 122) Then
a = a + 1
ElseIf c >= 48 And c <= 57 Then
b = b + 1
Else
d = d + 1
End If
Next i

MsgBox "字母:" & a & vbCrLf & "数字:" & b & vbCrLf & "其他:" & d
End Sub


不知道楼下是否郁闷。。。

Private Sub Command1_Click()

For i = 1 To Len(Text1.Text) TEMP = Asc(Mid(Text1.Text, i, 1)) Select Case TEMP Case 65 To 90 a = a + 1

Case 97 To 122 a = a + 1

Case 48 To 57 b = b + 1 Case Else c = c + 1

End Select

Next i

MsgBox "字母:" & a & vbCrLf & "数字:" & b & vbCrLf & "其他:" & c End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息