取出数据后排序
Dim B as integer = 5Dim C As Integer = 7Dim D As Integer = 1
Dim ary() As Integer = {b, c, d}array.sort(ary)
msgbox(ary(2))msgbox(ary(1))msgbox(ary(0))