How to take the largest value among 1, 2, 3, 4, and 5?

asmian

How to take the largest value among 1, 2, 3, 4, and 5?

talent00168

bubble

rockyoung

There should be no sorting, just one traversal
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

Is it necessary to use bubbling?

xiaoxu111

Put these values ​​in the database, a select max (example name) 　 from table name