高手能给个，vb6数组排序的程序吗

Private Sub Command1_Click()
Static a(1 To 10) As Single '对所输入的数字排序
n = 10
For i = 1 To n
'限制只能输入数字,输入其它字符都为0
a(i) = Val(InputBox("请输入10个数字", "冒泡排序测试")) '输入数据，数据的初始化
Next i
For k = 1 To n - 1
For j = 1 To n - k
If a(j) > a(j + 1) Then
z = a(j) 'a(j)的数据存放在z里
a(j) = a(j + 1) '现在a(j)的数据变成a(j+1)的数据了
a(j + 1) = z '原来存放z里的数据变成a(j+1)的新数据了
End If
Next j
Next k
For i = 1 To 10 '输出数量，例如改为for i = 1 to 5 则输入最小的前五个数
Print a(i)
Next i
End Sub

这个是冒泡排序法

'添加窗体Form1,按钮Command1,然后添加如下代码:
Private Sub Command1_Click()
    Dim intArr(3), i As Integer
    intArr(0) = 23
    intArr(1