学进去

学校有2个选考技术的班级，张老师在每个阶段都会格外关注成绩第二好的那个同学，以激励他上进。每次测验结束后，张老师总是先把两个选考班的分数分别统计和录入，然后分别按从低到高进行排序，最后合并汇总两个有序的选考班成绩。操作过程如下图所示：

请回答下列问题：
（1）实现两个选考班分别排序的事件处理过程名为________
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Dim g1(201) As Integer, g2(201) As Integer
Dim xh(201) As Integer, xh2(201) As Integer
Const num = 101          '选考总人数
Dim n, m As Integer       'g1人数为n，g2人数为m
Private Sub Cd1_Click()             '合并汇总
nu = num
Do While m >= 1
       Do While ___________
             t = g1(nu): g1(nu) = g1(n): g1(n) = t
             xh2(nu) = xh(2 * n - 1) : n = n – 1 : nu = nu - 1
       Loop
       t = g1(nu): g1(nu) = g2(m): g2(m) = g2(nu)
       xh2(nu) = xh(2 * m) : nu = nu – 1 : m = m - 1
Loop
'处理学号
For i = 1 To n
       ___________
Next i
'显示合并结果
For i = 1 To num
       List3.AddItem xh2(i) & "     " & g1(i)
Next i
'选出成绩第二好的同学
mxgrade = g1(num)
For i = num - 1 To 1 Step -1
       If g1(i) <> mxgrade Then Exit For
Next i
If i<>0 Then

Label1.Caption = "学号为：" & xh2(i) & "的同学，本次测试成绩第二，分数为：" & g1(i)

End If
End Sub
Private Sub Command2_Click()
For i = 1 To num \ 2
       '对g1同学的成绩进行排序
       For j = 1 To num \ 2 - i + 1 * (num Mod 2)
             If _______ Then
                    t = g1(j): g1(j) = g1(j + 1): g1(j + 1) = t
                    t = xh(2 * j - 1): xh(2 * j - 1) = xh(2 * j + 1): xh(2 * j + 1) = t
             End If
Next j
'对g2同学的成绩进行排序，代码略
Next i
'在列表框中输出g1和g2学生的学号及其对应的成绩，代码略
End Sub
Private Sub Form_Load()
'代码略，从数据库中导入所有选考学生数据，共num个人，并做如下处理：
'1.学号为奇数的同学录入g1班级，共n人
'2.学号为偶数的同学录入g2班级，共m人
End Sub