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

例如有11 12 13 14 15 16怎么才能找出第3小的

没有发现foxtable中有可以实现的函数min()和max（）都不会用

 
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))
这个比较笨的方法 冒泡排序 先排序然后找出第三个位置的数

 先排序

 

Dim a() As Integer={11, 15, 12, 14, 17, 21, 27}
array.sort(a)
msgbox(a(2))

这个复制黏贴以后为什么会有语法错误呢

还是要谢谢你帮忙

上面代码全部没有问题