学进去

某次模拟考试后，某班主任为了统计本班学生的语文和数学成绩，制作了如下 VB 程序。程序界面如下图所示：在文本框Text1中输入语文和数学成绩，成绩之间用“，”隔开，以“，”结束，加载窗体时，将成绩提取到数组 a中，如a(1)表示第一位学生的语文成绩，a（2）表示第一位同学的数学成绩，如a(3)表示第二位学生的语文成绩，a（4）表示第二位同学的数学成绩，……，以此类推，单击按钮Command11，将成绩按照语文为主要关键字、数学为次要关键字做升序排序，并将排序后的结果显示在文本框Text2中。

（1）窗体中没有用到的控件是___________
A.             B.             C.             D.
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码
（3）程序中加框处代码有误，请改正
Dim a(1 To 20) As Integer
Dim i As Integer, n As Integer
Private Sub Form_Load()
Dim s As String, ch As String
n = 1：s = Text1.Text
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch <> "," Then
a(n) = ___________①
Else
n = n + 1
End If
Next i
___________②__
End Sub
Private Sub Command1_Click()
Dim j As Integer, t1 As Integer, t2 As Integer
For i = 2 To n/2
t1 = a(2 * i - 1): t2 = a(2 * i): j = i - 1
Do While________
a(2 * j + 1) = a(2 * j - 1)
a(2 * j + 2) = a(2 * j)
j = j - 1
If j = 0 Then Exit Do
Loop
a(2 * j + 1) = t1
___________③____
Next i
For i = 1 To n/2
Text2.Text = Text2.Text + Str(a(2 * i - 1)) + Str(a(2 * i))
Next i
End Sub