题目

竞选班长。编号分别为1、2、3、4、5的五位候选人参加班长竞选，现要设计一个计票程序，根据回收的选票信息统计各位候选人的得票数，得票数最多的被选为班长，并输出班长的编号。选票信息为一个数字序列，由每张选票的投票结果构成，如某选票序列为101233303，其含义见如下表所示。选票序列101233303含义第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()Dim a(1 To 5)As Integer    ‘数组元素a(1)~a(5)依次存放编号为1~5的五位候选人的得票数Dim st As String, i As Integer, j As Integer, n As IntegerDim ans As Integer    ‘变量ans存放被选为班长的人的编号Dim max As Integer    ‘变量max存放最多的得票数st=Text1.Text For i=1 To 5a(i)=0Next iFor i=1 To 5For j=1 To nIfThen a(i)=a(i)+1Next jNext imax=0For i=1 To 5If a(i)>max Thenmax=a(i):ans=iNext iEnd Sub 答案：【1】n=Len(st)【2】Val(Mid(st,j,1))=i【3】Text2.Text=Str(ans)

查看本题答案和解析