急！用VB编写程序，对输入的字符串进行识别，找出其中大写字母、小写字母、空格、数字及其他字符的个数。

vb编写一段程序，对输入的字符串进行识别，找出其中大写字母，小写字母,空格，数字及其他字符的个数.~

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
aa = Mid(Text1.Text, i, 1)
Select Case Asc(aa)
Case 32
空格 = 空格 + 1
Case 48 To 57
数字 = 数字 + 1
Case 65 To 90
大写 = 大写 + 1
Case 97 To 120
小写 = 小写 + 1
Case Else
其他 = 其他 + 1
End Select
Next
Print "空格数:"; 空格
Print "数字数:"; 数字
Print "大写数:"; 大写
Print "小写数:"; 小写
Print "其他数:"; 其他

End Sub

#include
#include
int main()
{
char input[200];
int Big,Little,Space,Num,Other;
int i,len;
Big=Little=Space=Num=Other=0;
gets(input);
len = strlen(input);
for(i = 0;i<len;i++)
{
if(input[i]>='A' && input[i]<='Z')
{
++Big;
}
else if(input[i]>='a' && input[i]<='z')
{
++Little;
}
else if(' ' == input[i])
{
++Space;
}
else if(input[i]>='0' && input[i]<='9')
{
++Num;
}
else
{
++Other;
}
}
printf("大写字母:%d
小写字母:%d
空格:%d
数字:%d
其他字符:%d
",Big,Little,Space,Num,Other);
return 0;
}

根据我对你描述的理解写的，你看看是不是这样

Option Explicit
'在窗体中添一个CommandButton、一个TextBox
Private Sub Command1_Click()
Dim IntL As Long, IntU As Long, IntS As Long, IntN As Long, IntO As Long
Dim I As Long, Char As String * 1

For I = 1 To Len(Text1.Text)
Char = Mid(Text1.Text, I, 1)
Select Case Char
Case "A" To "Z": IntU = IntU + 1
Case "a" To "z": IntL = IntL + 1
Case "0" To "9": IntN = IntN + 1
Case " ": IntS = IntS + 1
Case Else: IntO = IntO + 1
End Select
Next
MsgBox "TextBox中的字符串统计结果：" & vbCrLf & Space(2) & "大写字母：" & IntU & "个" _
& vbCrLf & Space(2) & "小写字母：" & IntL & "个" _
& vbCrLf & Space(2) & "数字：" & IntN & "个" _
& vbCrLf & Space(2) & "空格：" & IntS & "个" _
& vbCrLf & Space(2) & "其它字符：" & IntO & "个", vbOKOnly Or vbInformation, "统计字符输出"
End Sub

遍历字符串，比较其ASCII，分别用不同的变量

参考代码

Dim intNumber As Integer, intUcase As Integer, intLcase As Integer, intSpace As Integer
Dim i As Integer, strTmp As String

intNumber = 0
intUcase = 0
intLcase = 0
intSpace = 0

For i = 1 To Len(Text1.Text)
strTmp = Mid(Text1.Text, i, 1)
If Asc(strTmp) > 47 And Asc(strTmp) < 58 Then intNumber = intNumber + 1
If Asc(strTmp) > 64 And Asc(strTmp) < 91 Then intUcase = intUcase + 1 '大写字母个数
If Asc(strTmp) > 96 And Asc(strTmp) < 123 Then intLcase = intLcase + 1
If Asc(strTmp) = 32 Then intSpace = intSpace + 1
Next

可以把字符遍历一下，然后用ASCII值来判断统计，具体函数请参考MSDN。

我怎么觉得我前几天回答了这个问题呀！

---

急！用VB编写程序，对输入的字符串进行识别，找出其中大写字母、小写字母、空格、数字及其他字符的个数。视频