競選班長．編號分別為1、2、3、4、5的五位候選人參加班長競選，現(xiàn)要設(shè)計(jì)一個(gè)計(jì)票程序，根據(jù)回收的選票信息統(tǒng)計(jì)各位候選人的得票數(shù)，得票數(shù)最多的被選為班長，并輸出班長的編號．選票信息為一個(gè)數(shù)字序列，由每張選票的投票結(jié)果構(gòu)成，如某選票序列為101233303，其含義見如表所示．

選票序列	1	0	1	2	3	3	3	0	3
含義	第1張選票投給1號	第2張選票棄權(quán)	第3張選票投給1號	第4張選票投給2號	第5張選票投給3號	第6張選票投給3號	第7張選票投給3號	第8張選票棄權(quán)	第9張選票投給3號
備注：選票序列101233303，序列中的數(shù)字i,表示投票給編號為i的人，即編號為i的人得1票，其中數(shù)字0表示不投給任何人，即為棄權(quán)．表中選票序列的投票結(jié)果為：1號得2票，2號得1票，3號4得票，4號.5號均為0票（沒人投），所以3號得票數(shù)最高，被選為班長．

程序運(yùn)行時(shí)，在文本框Text1中輸入選票信息，單擊“計(jì)算”按鈕Command1后，被選為班長的編號顯示在文本框Text2中．程序運(yùn)行效果如圖所示．
實(shí)現(xiàn)上述功能的VB程序如下，請?jiān)跈M線處填入合適的代碼．
Private Sub Command1_Click （　?。?br />Dima（1To 5）As Integer
'數(shù)組元素a（1）～a（5）依次存放編號為1～5的五位候選人的得票數(shù)
Dim st As String,i As Integer,j As Integer,n As Integer
Dim ans As Integer'變量ans存放被選為班長的人的編號
Dim max As Integer'變量max存放最多的得票數(shù)
st=Text1．Text

n=Len（st）

n=Len（st）

For i=1To 5
a（i）=0
Next i
For i=1To 5
For j=1To n
If

Val（Mid（st,j,1））=i

Val（Mid（st,j,1））=i

Then a（i）=a（i）+1
Next j
Next i
max=0
For i=1To 5
If a（i）＞max Then
max=a（i）：ans=i
Next i

Text2．Text=Str（ans）

Text2．Text=Str（ans）

End Sub.