学进去

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


程序代码如下，请回答如下问题：
(1) 在运行界面中，具有 Caption 属性的对象有_____________个。（填数字）
(2) 请在横线处填入合适的代码
(3) 程序加框处代码有误，请改正。
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))
If _______________________Then
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  ______________  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 中，代码略