设a，b，c是同一类型变量，并分别被赋予不同大小的数据，设计一个算法，使得执行的结果为a>b>c

VB问题

if a<b then
t=a
a=b
b=t
endif

if a<c then
t=a
a=c
c=t
endif

if b<c then
t=b
b=c
c=t
endif

if a<b swap a,b if b<c swap b,c if a<b swap a,b

我为楼主编写了下面这段小程序，abc(a, b, c)是一个自定义函数，可直接运行，运行该函数后，a、b、c三个数就是按a > b > c的大小顺序排列的。

sub abc(a, b, c as double)

dim d as double

if a >= b then    if a >= c then     if b < c then     d = b     b = c     c = d     end if    else     d = a     a = c     c = b     b = d    end if else    if b >= c then     d = a     a = b     if d >= f then     b = d     else     b = c     c = d     end if    else     d = a     a = c     c = d    end if end if

end sub