学进去

小王基于选择排序算法编写了一个 VB 程序，功能如下：数组 a 有 n * n 个元素，按 n 行 n 列进行排列，按列进行升序排序。例如 6 * 6 的数组，第一列将 a(1)，a(7)，a(13)，a(19)，a(25)，a(31)进行排序。运行程序，在列表框 List1 中显示 n*n 个数列单击“排序”按钮 Command1，在列表框List2 中显示排序后的结果，程序运行界面如图所示。请回答下列问题：
（1）n=6时运行结果如图所示，图中1处“47”在数组 a中下标是 _______ （填数字）。
（2）为了实现上述功能，请在划线处填写合适的代码。
①_______________
②_______________
（3）程序中加框处代码有错，请改正。
_________________

Const n =6
Dim a(1 To n * n) As Integer
Private Sub Form_Load()   '产生n*n个数组元素，每行按n个数显示在list1中
For i = 1 To n * n
a(i) = Int(Rnd * 90) + 10
s = s + Str(a(i))
If①____________Then  
List1.AddItem s
s = ""
End If
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, w As Integer, s As String
For i = 1 To n * n
k = i
For j = k + n To ②___________
If a(k) > a(j) Then k = j
Next j
If Then t = a(k): a(k) = a(i): a(i) = t
Next i
'将排序后数组a的元素，按每行n个数显示在list2中，代码略
End Sub