VB编程：已知xyz3个数,比较他们的大小并排序,使得x＞y＞z

Question

VB编程：已知xyz3个数,比较他们的大小并排序,使得x＞y＞z

Answer 1

dim a(3)'定义数组a,a(1)存放最大值,a(3)最小值
a(1)=x
if y>a(1) then
a(2)=a(1)
a(1)=y
else
a(2)=y
endif
if z>a(1) then
a(3)=a(1)
a(1)=z
else if z>a(2) then
a(3)=a(2)
a(2)=z
else
a(3)=z
endif
x=a(1)
y=a(2)
z=a(3)