题目

小王基于选择排序算法编写了一个 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） 为了实现上述功能，请在划线处填写合适的代码。 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 ① ②  （3） 程序中加框处代码有错，请改正。 答案： 【1】12 【1】i Mod n = 0【2】n * n Step n k<>i或a(k)<>a(i)

查看本题答案和解析