如何取1、2、3、4、5中最大的值?
如何取1、2、3、4、5中最大的值?

[解决办法]

应该不用排序，一次遍历就行了
Dim a, Max, i
a = Array(1, 2, 3, 4, 5)
Max = a(0)
For i = 1 To UBound(a)
If Max < a(i) Then Max = a(i)
Next
Print Max

[解决办法]
dim max as integer
max = -1
for i = 0 to uboud(a)
if max < a(i) then max = a(i)
next

return max