主题：如何在6个数中找出第3小的那个

 
Dim a() As Integer={11, 15, 12, 14, 17, 21, 27}
Dim i As Integer, j As Integer

For i = UBound(a) - 1 To 0 Step -1
    For j = 0 To i
        If a(j) > a(j + 1) Then
            a(j) = a(j) + a(j + 1)
            a(j + 1) = a(j) - a(j + 1)
            a(j) = a(j) - a(j + 1)
        End If
    Next j
Next i

output.show(a(2))
这个比较笨的方法 冒泡排序 先排序然后找出第三个位置的数