競選班長．編號分別為1、2、3、4、5的五位候選人參加班長競選，現要設計一個計票程序，根據回收的選票信息統計各位候選人的得票數，得票數最多的被選為班長，并輸出班長的編號．選票信息為一個數字序列，由每張選票的投票結果構成，如某選票序列為101233303，其含義見如表所示．

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

程序運行時，在文本框Text1中輸入選票信息，單擊“計算”按鈕Command1后，被選為班長的編號顯示在文本框Text2中．程序運行效果如圖所示．
實現上述功能的VB程序如下，請在橫線處填入合適的代碼．
Private Sub Command1_Click （　　）
Dima（1To 5）As Integer
'數組元素a（1）～a（5）依次存放編號為1～5的五位候選人的得票數
Dim st As String,i As Integer,j As Integer,n As Integer
Dim ans As Integer'變量ans存放被選為班長的人的編號
Dim max As Integer'變量max存放最多的得票數
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.