在汽车销售数据表 XSB.DBF 中有厂商(C,2)、销量 1(N,5)和销量 2(N,5)字段, 数据记录如下表所示。
厂商 | 销量 1 | 销量 2 |
C1 | 50 | 52 |
C2 | 42 | 48 |
C3 | 34 | 35 |
C4 | 28 | 32 |
C5 | 45 | 31 |
C3 | 21 | 29 |
C2 | 23 | 26 |
C3 | 25 | 22 |
C5 | 18 | 20 |
C3 | 15 | 19 |
Use XSB
P=销量 2-销量 1
Skip
Do While P>0 And Not Eof()
K=销量 2-销量 1
If P<K
P=K
L=厂商
Endi
Skip
Endd
? P,K,L
程序的运行结果是:
8 4 C3