vb统计字符出现次数 用VB编写程序，在文本框1中输入一段文本，单击“统计”按钮，分别统计英文字母和数字符的个数并显示出来？

用VB编写程序，在文本框1中输入一段文本，单击“统计”按钮，分别统计英文字母和数字符的个数并显示出来？Private Sub Command1uclick（）dim SZ as integer，ZM

用VB编写程序，在文本框1中输入一段文本，单击“统计”按钮，分别统计英文字母和数字符的个数并显示出来？

Private Sub Command1uclick（）dim SZ as integer，ZM as integer for I=1 to len（Text1。Text）选择Case mid（Text1。Text，I，1）case “a”to “Z”，“a”to “Z”ZM=ZM 1 case “0”to “9”SZ=SZ 1 end选择下一个I text2。Text=“字母数为：”&ZM Text3。Text=“数字的数目是：”&SZ End Sub

文本框中输入一个字符串,并统计其中韵母，大写字母，小写字母，数字，汉字，其它，的个数的VB代码？

I=0char*P=str1while（*P！=0）{if（*P>=“a”&*P<=“Z”）ip}返回II=0char*P=str1while（*P！=0）{if（*P>=“a”&*P<=“Z”）I P}返回isasas

Vb如何判断文本框内有多少个字符？

private sub command1uuu（）如果是数字（Text1）。Text）然后是msgbox“number”elseif len（Text1。文本）<> lenb（strconv（Text1。Text，vbfromunicode）），然后如果2*len（Text1。文本）=lenb（strconv（Text1。Text，vbfromunicode）），然后msgbox“Chinese”else msgbox“including Chinese”end if else msgbox“English”end if end Sub

答案是a，因为每个输入都会触发文本框的更改事件，您必须为Text1的change（）事件添加一个代码。len（）的函数是返回字符串的长度，即文本框中的字符数，然后将整数转换为字符串并将其分配给label控件的caption属性