VB编程问题:程序运行时，在文本框text1中输入1个字符串，单击命令按钮command1时，程序能统计出输入
VB编程题:程序运行时，在文本框text1中输入1个字符串，单击命令按钮command1时，程序能统计出输入的字符串中数字字符个数、字母个数和其他字符的个数，并将统计出来的结果分别显示到文本框text2、text3和text4中
最后告诉我代码吧，不会的人说一下思路也好
1、首先，在窗体上面添加一个文本框。
2、单击文本框，在属性窗口设置文本框的属性，清空文本内容，将文本框的enabled属性设置为False。
3、双击“提取信息”命令按钮，编写程序的代码，如下图所示。提取信息时，需要使用截取字符串相关的函数，如Left,Right,Mid等。本题还需要使用InStr函数查找字符。
4、双击“清空”命令按钮，编写程序的代码。
5、双击“退出”命令按钮，编写程序的代码。
6、最后输入字符串时，就可以出输入了。
1.首先，在表单中添加一个文本框，如下图。
2.点击文本框,设置文本框的属性在属性窗口中,空的文本内容,并设置文本框的启用属性为False,如下图所示。
3.双击“获取信息”命令按钮编写特殊的程序代码,如下图所示。在提取信息时,您需要使用相关函数截取字符串,如左、右,中期,等等。您还需要使用InStr函数找到字符,如下所示。
4.双击“清除”命令按钮，编写程序代码，如下图。
5.双击“exit”命令按钮，编写程序代码，如下图。
6.当你最终输入一个字符串,输入完成后,如下所示。
怎么依次取出字符？用什么函数？？
追答mid(text1.text, ii, 1)
具体怎么判断字母个数和字符个数可以从网上查查，我现在没时间查了，就随便写一句吧。调用窗体的命令是UserForm1.Show
Text2.Text = 0
Text3.Text = 0
Text4.Text = 0
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) Like "[A-Z]" Or Mid(Text1.Text, i, 1) Like "[a-z]" Then
Text3.Text = Val(Text3.Text) + 1
ElseIf Mid(Text1.Text, i, 1) Like "[0-9]" Then
Text2.Text = Val(Text2.Text) + 1
Else
Text4.Text = Val(Text4.Text) + 1
End If
Next
End Sub本回答被提问者采纳
1.首先，在表单中添加一个文本框，如下图。
2.点击文本框,设置文本框的属性在属性窗口中,空的文本内容,并设置文本框的启用属性为False,如下图所示。
3.双击“获取信息”命令按钮编写特殊的程序代码,如下图所示。在提取信息时,您需要使用相关函数截取字符串,如左、右,中期,等等。您还需要使用InStr函数找到字符,如下所示。
4.双击“清除”命令按钮，编写程序代码，如下图。
5.双击“exit”命令按钮，编写程序代码，如下图。
6.当你最终输入一个字符串,输入完成后,如下所示。
怎么依次取出字符？用什么函数？？
追答mid(text1.text, ii, 1)
具体怎么判断字母个数和字符个数可以从网上查查，我现在没时间查了，就随便写一句吧。调用窗体的命令是UserForm1.Show
Text2.Text = 0
Text3.Text = 0
Text4.Text = 0
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) Like "[A-Z]" Or Mid(Text1.Text, i, 1) Like "[a-z]" Then
Text3.Text = Val(Text3.Text) + 1
ElseIf Mid(Text1.Text, i, 1) Like "[0-9]" Then
Text2.Text = Val(Text2.Text) + 1
Else
Text4.Text = Val(Text4.Text) + 1
End If
Next
End Sub本回答被提问者采纳