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

asmian

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

talent00168

冒泡

rockyoung

应该不用排序，一次遍历就行了
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

fan3786

dim max as integer
max = -1
for i = 0 to uboud(a)
  if max < a(i) then max = a(i)
next

return max

170587465

有必要用冒泡吗？

xiaoxu111

把这些值都放在数据库中，一个select max(例名)　from 表名