Question

VB编程问题:程序运行时，在文本框text1中输入1个字符串，单击命令按钮command1时，程序能统计出输入

VB编程题:程序运行时，在文本框text1中输入1个字符串，单击命令按钮command1时，程序能统计出输入的字符串中数字字符个数、字母个数和其他字符的个数，并将统计出来的结果分别显示到文本框text2、text3和text4中

最后告诉我代码吧，不会的人说一下思路也好

Answer 1

1、首先，在窗体上面添加一个文本框。

2、单击文本框，在属性窗口设置文本框的属性，清空文本内容，将文本框的enabled属性设置为False。

3、双击“提取信息”命令按钮，编写程序的代码，如下图所示。提取信息时，需要使用截取字符串相关的函数，如Left,Right,Mid等。本题还需要使用InStr函数查找字符。

4、双击“清空”命令按钮，编写程序的代码。

5、双击“退出”命令按钮，编写程序的代码。

6、最后输入字符串时，就可以出输入了。

Answer 2

1.首先，在表单中添加一个文本框，如下图。

2.点击文本框,设置文本框的属性在属性窗口中,空的文本内容,并设置文本框的启用属性为False,如下图所示。

3.双击“获取信息”命令按钮编写特殊的程序代码,如下图所示。在提取信息时,您需要使用相关函数截取字符串,如左、右,中期,等等。您还需要使用InStr函数找到字符,如下所示。

4.双击“清除”命令按钮，编写程序代码，如下图。

5.双击“exit”命令按钮，编写程序代码，如下图。

6.当你最终输入一个字符串,输入完成后,如下所示。

Answer 3

可以依次取出每个字符，将其转化为ASCII值，这样判断语句会简单些

追问

怎么依次取出字符？用什么函数？？

追答

mid(text1.text, ii, 1)

Answer 4

需要新建一个用户窗体Userform1，在窗体上建立text1、text2、text3和text4文本框，然后再建立一个命令按钮，在命令按钮里输入代码: UserForm1.TextBox2.Value = UserForm1.TextBox1.Value
具体怎么判断字母个数和字符个数可以从网上查查，我现在没时间查了，就随便写一句吧。调用窗体的命令是UserForm1.Show

Answer 5

Private Sub Command1_Click()
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