數(shù)字個(gè)數(shù)統(tǒng)計(jì)．編寫(xiě)VB程序，實(shí)現(xiàn)如下功能：在文本框Text1中輸入僅由ASCII碼字符組成的字符串（長(zhǎng)度不超過(guò)100），單擊“數(shù)字統(tǒng)計(jì)”按鈕Command1，在列表框List1中輸出字符串中包含的不同數(shù)字及其相應(yīng)的個(gè)數(shù)，程序運(yùn)行效果如圖所示．

（1）為方便調(diào)試，要讓程序每次運(yùn)行時(shí)文本框Text1中的初始內(nèi)容為“ab12*{}78ab12

，

，

778ab34”，應(yīng)修改文本框Text1的

Text

Text

屬性．
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適代碼．
Private sub command1_click （　?。?br />Dim a（0to 9）as integer’數(shù)組元素a（i）中存放數(shù)字i的個(gè)數(shù)
Dim s as string,ch as string
Dim t as integer
For i=0to 9
a（i）=0
next i
s=text1．text
for i=1to len（s）

①

①

if ch＞=”0”and ch＜=”9”then
t=

②

②

a（t）=a（t）+1
end if
next i
list1．clear
for i=1to 9
if     then
list1．a(chǎn)dditem”數(shù)字：”+str（i）+”，共有”+str（a（i））+”個(gè)”
end if
next i
end sub
（3）與上述程序中加框處代碼運(yùn)行效果等價(jià)的條件表達(dá)式可以是

a（i）＞0；

a（i）＞0；

．