以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何在6个数中找出第3小的那个  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72789)
--  作者：yczc
--  发布时间：2015/8/6 11:29:00
--  如何在6个数中找出第3小的那个
例如有11 12 13 14 15 16怎么才能找出第3小的
--  作者：yczc
--  发布时间：2015/8/6 11:31:00
--  
没有发现foxtable中有可以实现的函数min()和max（）都不会用
--  作者：rjh4078
--  发布时间：2015/8/6 11:41:00
--  
 
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))
这个比较笨的方法 冒泡排序 先排序然后找出第三个位置的数
[此贴子已经被作者于2015/8/6 11:42:36编辑过]
--  作者：大红袍
--  发布时间：2015/8/6 12:02:00
--  

 先排序

 

Dim a() As Integer={11, 15, 12, 14, 17, 21, 27}
array.sort(a)
msgbox(a(2))
--  作者：yczc
--  发布时间：2015/8/6 12:03:00
--  
这个复制黏贴以后为什么会有语法错误呢
--  作者：yczc
--  发布时间：2015/8/6 12:10:00
--  
还是要谢谢你帮忙
--  作者：大红袍
--  发布时间：2015/8/6 12:18:00
--  
上面代码全部没有问题