老师说我啰嗦 请高手帮忙改进一下这个vfp程序 只要求三个数比大小 要尽量简练 最好还能提供别的比大小方法

Question

dime A(3)
for I=1 to 3
input "请依次输入数据：" to A(I)
endfor
for I=1 to 3
endfor
for I= 1 to 2
for J=I+1 to 3
if A(I)<A(J)
T=A(I)
A(I)=A(J)
A(J)=T
endif
endfor
endfor
for I= 1 to 3
??A(I)
endfor
return

Answer 1

zc表中的两个字段），且通过对数据环境的设置使数据按职称代号排序。ZC表要显示的两个字段的字段名？请提供此两字段名！
======================================================
*1、（一、/1、/（5））创建普通索引xfdh,要求先按xf字段排序，xf相同时再按课程代号（kcdh）字段排序。
INDEX ON xf+kcdh TO xfdh

*2、（一、4）为学生（xs）表添加一个年龄字段，字段名为age、类型为数值型、宽度为2，然后计算表中所有籍贯
*（jg）为“江苏南京”的学生年龄，计算结果存储在age字段中。
*（注：计算方法为当前日期的年份减去学生出生日期的年份）
ALTER TABLE xs ADD COLUMN age N(2) && 添加一个年龄字段
Repl age With YEAR(DATE( ))-YEAR(出生日期) for jg="江苏南京" && 计算表中所有籍贯为“江苏南京”的学生年龄

*三
*2、为“教师工资管理”菜单栏下的“工资调整”菜单项编写命令：当执行该菜单项时，
*工资（gz）表中所有教师的岗位津贴（gwjt）统一增加200元。
UPDATE gz SET gwjt = gwjt+200

*3、将下列代码加到菜单的适当位置，使菜单运行时首先执行它。
*Clear
*Close table all

在菜单的“常规选项”的“设置”中放入此两命令。

*四、
*3、修改列表框控件的有关属性，要求显示两列数据（zc表中的两个字段），
首先进入表单设计器，再打开数据环境设计器，在数据环境设计器的Cursor1的属性中设置order=ZC
List的属性设置如下：
ColumnCount=2
ControlSource=ZC
RowSource=ZC,<另一字段名>
RowSourceType=6-字段

*且通过对数据环境的设置使数据按职称代号排序。
进入“数据环境”设计器，对ZC表的属性进行设置：
Order=ZC
使数据按职称代号排序。

Answer 2

这种方法最好，因为这种方法适用于任意多个数排序，只要掌握这种方法，排序就没问题了。
clear
dime a(3)
for i=1 to 3
input "请输入一个数：" to a(i)
endfor
?"降序排列为："
for i=1 to 2
for j=i+1 to 3
if a(i)<a(j)
k=a(i)
a(i)=a(j)
a(j)=k
endif
endfor
??alltrim(str(a(i)))+" "
endfor
??alltrim(str(a(i)))

Answer 3

&& 从小到大排序：
CLEAR
DIMENSION a(3)
FOR i = 1TO 3
INPUT "请依次输入数据：" TO a(i)
ENDFOR
ASORT(a)
FOR i = 1TO 3
?? a(i)
ENDFOR

追问

非常好！请问如果要从大到小排序该怎么办呢？？？

追答

&& 从大到小排序：
CLEAR
DIMENSION a(3)
FOR i = 1TO 3
INPUT "请依次输入数据：" TO a(i)
ENDFOR
ASORT(a, 1, -1, 1)
FOR i = 1TO 3
?? a(i)
ENDFOR

Answer 4

Clear
Dimension A(3)
For I = 1To 3
Input "请输入第 "+Alltrim(Str(I))+" 个数据：" To A(I)
Endfor
Asort(A)
For I = 1To 3
?? A(I)
Endfor

追问

非常好！请问如果要从大到小排序该怎么办呢？？？