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 a(k)=a(i)  Then t = a(k): a(k) = a(i): a(i) = t

   Next i

‘将排序后数组 a 的元素，按每行 n 个数显示在 list2 中，代码略
End Sub

① ②