求vb大神们帮个忙

主要就是不知道怎么每排序一次，就显示一次以及怎么使用计数器

绕来绕去的啊

Option Explicit '　变量需【强制显式声明】
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim n0 As Integer, n1 As Integer
Dim n2 As Integer, A() As String
Private Sub 结果()
Dim i1 As Integer
Text2.Text = ""
For i1 = n1 To n2
Text2.Text = Text2.Text & CStr(A(i1))
If i1 < n2 Then Text2.Text = Text2.Text & Chr(32)
Next
Text3.Text = CStr(n0)
Sleep 500 '　延时半秒
End Sub
这些代码可以延时一下，但是没有什么作用。因为现代计算机的【cache】足够大，可以把中间过程全部融入，有可能看不到什么数据交换的过程。

对于一位数组才能进行排序，多维数组可以整成一维数组来排序。
排序的循环是一个双重循环，如果数组 A(1 To n) 要排序，其循环是——
For i = 1 To n - 1
For j = i + 1 To n
If A(j) < A(i) Then '　这是【升序】排列的判断；如果【降序】就把【<】改成【>】即可。
T = A(i): A(i) = A(j): A(j) = T '　进行交换
End If
Next : Next
'　在这个双重循环中，主要是要避免【自己和自己比较】的情况。