VB的两个编程实现！高手帮助！

来源：百度知道 编辑：UC知道 时间：2024/05/28 06:24:38
（1）键盘按输入一个字符串，分别统计其中的数字字符，英文字符及其他字符的个数，统计结果显示在3个文本框中！
可以使用If 或者Select Case编写！
（2）键盘按输入一个字符串，将其中的大写字母转化成小写字母，并统计其中英文字母的个数，结果显示在“立即”窗口中！
谢谢帮我解答一下！
在线等！·

1--添加3个文本框和一个命令按钮
其中text1显示字母个数
text2显示数字个数
text3显示其他个数

Private Sub Command1_Click()
Dim s1 As Integer, s2 As Integer, s3 As Integer
s = InputBox("请输入一段字符")
For i = 1 To Len(s)
Select Case Asc(Mid(s, i, 1))
Case 65 To 90, 97 To 122
s1 = s1 + 1
Case 48 To 57
s2 = s2 + 1
Case Else
s3 = s3 + 1
End Select
Next
Text1 = s1: Text2 = s2: Text3 = s3
End Sub

2、、、、、、、、、、、、、、
Private Sub Command1_Click()
Dim s1 As Integer, s2 As Integer, s3 As Integer
s = InputBox("请输入一段字符")
Debug.Print "输入的字符串为:" & s
s = UCase(s)
Debug.Print "转换后的字符串为:" & s
For i = 1 To Len(s)
Select Case Asc(Mid(s, i, 1))
Case 65 To 90
s1 = s1 + 1
Case 48 To 57
s2 = s2 + 1
Case Else
s3 = s3 + 1
End Select
Next
Debug.Print "数字个数为:&