用VB 6.0输入三个数，用逗号分开，并且对它们进行排序运算

Question

完整的写法怎么写？
用VB6.0输入三个数，用逗号分开，并且对它们进行排序运算

Answer 1

 dim s() as string
s = split(inputbox(), ",")
dim i(0 to 2) as long
dim x as long
for x = 0 to 2
    i(x) = val(s(x))
next
if i(0) > i(1) then t = i(0) : i(0) = i(1) : i(1) = t
if i(1) > i(2) then t = i(1) : i(1) = i(2) : i(2) = t
if i(0) > i(1) then t = i(0) : i(0) = i(1) : i(1) = t
msgbox i(0) & "," & i(1) & "," & i(2)