VB的问题 谢谢

来源：百度知道 编辑：UC知道 时间：2024/06/04 17:29:31
从键盘输入一字符串，统计其中字幕、数字和其它字符的个数。

朋友，你在窗体上建立一个文本框和命令按钮，然后输入以下代码：
Private Sub Command1_Click()
Dim a As String, d%, s%, q%
a = Text1.Text
b = Len(Text1.Text)
For i = 1 To b
c = Mid(a, i, 1)
Select Case c
Case "A" To "Z", "a" To "z"
d = d + 1
Case 0 To 9
s = s + 1
Case Else
q = q + 1
End Select
Next
Print "字母" & d & "个"
Print "数字" & s & "个"
Print "其它" & q & "个"
End Sub
运行后，你在文本框中，输入，再按命令按钮，就会在窗体上输出相反的个数的！如果你有什么不懂的话发消息给我，OK

你做的很绝！PERFECT!