竞选班长．编号分别为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.