open database zggl use \"职工情况表.dbf\" scan for \"工资\">2500 disp endscan clear do while .t.
accept \"输一个数\" to k accept \"输一个数\" to o k=val(k) o=val(o) if k>o
? k else ?o endif enddo clear do while .t.
input \"输一个数\" to k input \"输一个数\" to o ?max(k,o)
因篇幅问题不能全部显示，请点此查看更多更全内容