1. (2020高三上·浙江开学考) 编写VB程序，实现如下功能：单击对象“生成”，随机生成n*n（n<10）个不重复的随机二位整数，并以n行n列矩阵的形式显示在列表框List1中，单击“排序”按钮，将矩阵中每一行中的数据按照奇数在前，偶数在后，奇数偶数分别升序排序的方式进行排序，并将排序后的结果显示在List2中，程序运行界面如下图所示。

程序代码如下，请回答如下问题：

1. （1） 在运行界面中，具有 Caption 属性的对象有个。（填数字）
3. （2） 请在下划线处填上合适的代码。

   Const n = 6

   Dim i, j, k As Integer Dim s As String

   Dim a(1 To n * n) As Integer
   Private Sub Command1_Click()
   For i = 1 To n * n

   Randomize

   a(i) = Int(Rnd * 90) + 10

     For j = 1 To i - 1

       If a(j) = a(i) Then

         a(i) = Int(Rnd * 90) + 10

         

       End If

     Next j

     s = s + Str(a(i))

     IfThen

       List1.AddItem s

       s = ""

     End If

     Next i

   End Sub

   Private Sub Command2_Click()

     For i = 1 To n * n

       k = i

       For j = i + 1 To

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

         ElseIf a(k) Mod 2 = 0 and a(j) Mod 2 = 1 Then k = j

         End If

       Next j

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

     Next i

   End Sub

   ‘将有序的数据输出在 List2 中，代码略

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