Question

按键精灵几个变量比较大小，那位高手帮我补充下，谢谢了

a = 1
b = 2
c = 3
d = 4
e = 5
f = 6
//a,b,c,d,e,f都是变量
比较大小 ("a,b,c,d,e,f")
Function 比较大小(参数)
Dim 最大数变量,最大数值,最小数变量,最小数值
If TypeName(参数)="Variant()" Then
数组 = 参数
Else
数组 = split(参数, ",")
End If
For i = 0 To UBound(数组)
If 最大数值 < eval(数组(i)) Then
最大数变量 = 数组(i)
If TypeName(最大数变量) <> "String" Then
最大数变量 = "数组(" & i & ")"
End If
最大数值 = eval(数组(i))
End If
If 最小数值 > eval(数组(i)) or 最小数值=Empty Then
最小数变量 = 数组(i)
If TypeName(最小数变量) <> "String" Then
最小数变量 = "数组(" & i & ")"
End If
最小数值 = eval(数组(i))
End If
Next
MessageBox "最大数是：" & 最大数变量 & "【" & 最大数变量 & "=" & 最大数值 & "】"&chr(13)&"最小数是：" & 最小数变量 & "【" & 最小数变量 & "=" & 最小数值 & "】"
End Function

上面的程序，我想知道的是 第二位变量是什么数值多少，第三位变量是什么数值多少,........
那位按键精灵的高手帮帮忙，谢谢了

若以下回答无法解决问题，邀请你更新回答

Answer 1

你还不如用个冒泡排序出来 角标最大和最小 对应最大最小 然后角标修改下值来获得自己要的值

追问

这个也是我从网上找来的，冒泡排序我也不会搞啊