【vfp开源代码栏目提醒】:网学会员为需要vfp开源代码的朋友们搜集整理了calsum.PRG相关资料,希望对各位网友有所帮助!
SET TALK OFF
SELECT A
USE 物品
hMax=0 &&最大数初值
hMin=999999 &&最少数初值
SCAN
IF 数量>hMax &&当前库存数比保存数大
hMax=数量
hName1=物品名称
ENDIF
IF 数量<hMin &&当前库存数比保存数小
hMin=数量
hName2=物品名称
ENDIF
ENDSCAN
? "库存最多的是:",hName1," 数量为:",hMax
? "库存最少的是:",hName2," 数量为:",hMin
CLOSE ALL &&关闭表
RETURN
上一篇:
CALCASH.PRG
下一篇:
关于大学英语教学