以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]数值大小排列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95545)

--  作者:OKK
--  发布时间:2017/1/23 9:47:00
--  [求助]数值大小排列
如何将多个未知数值,从大到小排列?
比如:  
dim number1  as integer 
dim number2  as integer
dim number3  as integer
dim number4  as integer
dim number5  as integer

如何找出他们的大小?

--  作者:有点蓝
--  发布时间:2017/1/23 10:28:00
--  
Dim vs(4) As Integer
vs(0) = 5
vs(1) = 1
vs(2) = 3
vs(3) = 2
vs(4) = 4
Array.Sort(vs)
Output.Show("最小值=" & vs(0))
Output.Show("最大值=" & vs(4))

--  作者:OKK
--  发布时间:2017/1/23 11:57:00
--  
谢谢图片点击可在新窗口打开查看