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

请回答下列问题：

1. （1） 实现两个选考班分别排序的事件处理过程名为；
3. （2） 实现上述功能的VB程序如下，请在划线处填入合适的代码。

   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

5. （3） 程序中加框处代码有错，请改正。