1. (2021高三上·杭州期中) 数据分组。将n个两位正整数按十位上的数字分组显示，十位上的数字是奇数的升序排序，十位上的数字是偶数的降序排序。某同学编写VB程序实现该功能，点击“生成”按钮随机生成n个两位正整数并显示在列表框List1中，点击“分组”按钮将整数按十位上的数字分组显示在List2中，程序运行界面如图所示。请回答下列问题：

1. （1） 根据程序界面和代码，本程序用到的类共有 个
3. （2） 在程序划线处填入合适代码，使程序完整

   Const n = 10

   Dim a(1 To n+1) As Integer

   '随机生成n个两位正整数，存入数组a中，代码略

   Private Sub Command2_Click()

       For i = 1 To n \ 2

           m =

           For j = i To m

               If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t

           Next j

           k = m

           For j =

               If a(k) > a(j) Then k = j

           Next j

           If k <> i Then t = a(k):  : a(i) = t

       Next i

       s = ""

       For i = 1 To n

           If a(i) \ 10 Mod 2 = 1 Then s = s + Str(a(i)) Else s = Str(a(i)) + s

           If  Then List2.AddItem s: s = ""

       Next i

   End Sub

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