给定一个关键字序列24,19,32,43,38,6,13,22进行快速排序，扫描一趟的结果是多少

由输入对话框输入100个数值数据放入数组a。将其中的整数放入数组b，然后运用选择分类法将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。（10分）

    注：程序写在窗体Form的Click事件中。

    Private Sub Form_Click()

    Const n = 100

    Dim a(1 To n) As Single

    Dim b(1 To n) As Long, t As Long

    Dim m As Integer, i As Integer, j As Integer

    m = 0

    For i = 1 To n

    a(i) = Val(InputBox("请输入第" + Str(i) + "个数据"))

    If Int(a(i)) = a(i) Then

    m = m + 1

    b(m) = a(i)

    End If

    Next i

    For i = 1 To m - 1

    For j = i + 1 To m

    If b(i) < b(j) Then t = b(i): b(i) = b(j): b(j) = t

    Next j

    Next i

    For i = 1 To m

    If i Mod 5 <> 0 Then

    Print b(i),

    Else

    Print b(i)

    End If

    Next i

    End Sub