求解决一道VFP简单编程问题

DIMENSION a(3)
FOR i=1 to 3
input "第"+ALLTRIM(STR(i))+"个数" to a(i)
ENDFOR
FOR m=1 to 2
FOR n=2 to 3
IF a(m)>a(n)
s=a(n)
a(n)=a(m)
a(m)=s
ENDIF
ENDFOR
ENDFOR
?"从小到大",a(1),a(2),a(3)

?"从大到小",a(3),a(2),a(1)

if a<b then
x=a
a=b
b=x
endif
if a<c then
x=a
a=c
c=x
endif
if b<c then
x=b
b=c
c=x
endif
? a ,b ,c

a=233
b=9
c=88
m=max(a,b,c)
x1=iif(a=m,'a',iif(b=m,'b','c'))
n1=m
if x1='a'
n2=max(b,c)
n3=min(b,c)
x2=iif(b=n2,'b','c')
x3=iif(b=n3,'b','c')
else
if x1='b'
n2=max(a,c)
n3=min(a,c)
x2=iif(a=n2,'a','c')
x3=iif(a=n3,'a','c')
else
n2=max(a,b)
n3=m