学进去

某校举行了一场团队比赛，由同学自由组队参加，团队中的每位同学参加比赛后将获得相应的个人得分，每个团队的团队得分为所有成员个人得分的平均分。在文本框Text1中按团队顺序输入同学的个人得分，个人得分用逗号“,”隔开，团队用分号“;”隔开。点击按钮Command1，在列表框List1中按团队得分从高到低的顺序输出每个团队编号和得分。程序运行界面如图所示。

(1)阅读程序可知按钮的对象名为__（单选，填字母：A.Command1/B.开始/C.Command1_Click）
(2)实现上述功能的部分VB程序如下，请在划线处填入合适的代码。
Dim s As String, c As String, ans As String, sum As Integer
Dim i As Integer, j As Integer, k As Integer, n As Integer, m As Integer
Dim a(100) As Integer, pos(100) As Integer
Dim b(100) As Double '数组b奇数位存储团队得分，偶数位存储团队编号
Private Sub Command1_Click()
s = Text1.Text
n = 1: m = 0: __________
For i = 1 To Len(s)
   c = Mid(s, i, 1)
   If c >= "0" And c <= "9" Then
       __________
   Else
       sum = sum + a(n)
       n = n + 1
       If c = ";" Then
          m = m + 1 : pos(m + 1) = n
          b(2 * m - 1) = sum / (pos(m + 1) - pos(m)) : b(2 * m) = m : sum = 0
       End If
   End If
Next i
For i = 1 To m
   k = i
   For j = i + 1 To m
       If _________ Then k = j
   Next j
   tmp = b(2 * i - 1) : b(2 * i - 1) = b(2 * k - 1) : b(2 * k - 1) = tmp
   tmp = b(2 * i) : b(2 * i) = b(2 * k) : b(2 * k) = tmp
Next i
List1.AddItem "编号 得分 成员个人得分"
For i = 1 To m
   ans = ""
   For j = pos(b(2 * i)) To
       ans = ans + Str(a(j))
   Next j
   List1.AddItem Str(b(2 * i)) + "     " + Str(b(2 * i - 1)) + "     " + ans
Next i
End Sub
(3)程序中加框处代码有错，请改正______。