在商品销售信息表SP.DBF中有编号(C, 3)、销量(N, 5)和份额(N, 2)字段,数据记录如下表所示。
| 编号 | 销量 | 份额 |
| P01 | 10225 | 23 |
| P02 | 7756 | 17 |
| P03 | 7223 | 16 |
| P04 | 5105 | 11 |
| P05 | 5094 | 11 |
| P06 | 1681 | 4 |
| P07 | 1494 | 3 |
| P08 | 1107 | 2 |
| P09 | 467 | 1 |
| P10 | 179 | 0 |
Use SP
N=份额
M=0
Go Bott
ForK=1 To 10
M=M+份额
If M>N
?编号,销量
Exit
Endi
Skip-1
Next
? K,M
程序的运行结果是:
P04 5105
7 32