用VB編寫程序，在文本框1中輸入一段文本，單擊“統(tǒng)計”按鈕，分別統(tǒng)計英文字母和數(shù)字符的個數(shù)并顯示出來？Private Sub Command1uclick（）dim SZ as integer，ZM

用VB編寫程序，在文本框1中輸入一段文本，單擊“統(tǒng)計”按鈕，分別統(tǒng)計英文字母和數(shù)字符的個數(shù)并顯示出來？

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=“字母數(shù)為：”&ZM Text3。Text=“數(shù)字的數(shù)目是：”&SZ End Sub

文本框中輸入一個字符串,并統(tǒng)計其中韻母，大寫字母，小寫字母，數(shù)字，漢字，其它，的個數(shù)的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如何判斷文本框內(nèi)有多少個字符？

private sub command1uuu（）如果是數(shù)字（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，因為每個輸入都會觸發(fā)文本框的更改事件，您必須為Text1的change（）事件添加一個代碼。len（）的函數(shù)是返回字符串的長度，即文本框中的字符數(shù)，然后將整數(shù)轉(zhuǎn)換為字符串并將其分配給label控件的caption屬性