学进去

小奕同学基于排序算法设计了一个数字矩阵排序的程序。程序界面如下图所示，在文本框中输入矩阵大小，点击“生成”按钮 Command1，在左侧列表框 List1 中输出一个长宽均为指定大小的随机整数矩阵，随机整数范围为[1，99]。点击“排序”按钮 Command2，结果输出在右侧列表框 List2 中，奇数行从左到右依次递增，偶数行从右至左依次递增，且保持输出矩阵的长宽不变。

（1）实现上述功能的 VB 程序如下，显示数据用的Additem 是一种    （单选，填字母：

A．属性名/

B．事件名/

C．方法名/

D．过程名）。

（2）请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Dim a(1 To 100) As Integer
Dim n As Integer
Function dq(s As String, L As Integer) As String '自定义对齐函数'在输入的字符串 s 前加若干空格，输出长度为 L 的字符串，代码略
End Function
Private  Sub  Command1_Click()  '生成数字矩阵‘随机生成 n^2 个数字，存储在数组 a 中，代码略
‘以一行 n 个，共 n 行的格式显示在 List1 中，代码略
End Sub
Private Sub Command2_Click() '数字矩阵排序
Dim i As Integer, k As Integer, j As Integer, s As String Dim f As Boolean
List2.Clear f= True
For i = 1 To n ^ 2 Step n s = ""
For j = i To
k = n ^ 2
Do While    ①     
If a(k) < a(k - 1) Then
t = a(k): a(k) = a(k - 1): a(k - 1) = t
End If
k = k - 1
Loop
If f = True Then
s = s + " " + dq(Str(a(j)), 2)
Else
s = " " + dq(Str(a(j)), 2) + s

End  If

Next j List2.AddItem s

    ②     

Next i End Sub