mod()函数在FoxPro编程中的应用

韦金
1997-01-01

　　初学ＦｏｘＰｒｏ时，会觉得ｍｏｄ（）求余函数好像用途不大，其实在编程中大有用处。
　　例如：有一物资数据库（文件名：ＷＺＫ），要求月底盘存只打印物资名称（ＷＺＭＣ）和结存量（ＪＣＬ）两个字段。初学者可能编写程序是：
　　ＵＳＥ　Ｃ：＼ＷＺＫ
　　ＬＩＳＴ　ＡＬＬ　ＦＩＥＬＤＳ　ＷＺＷＣ，　ＪＣＬ　ＴＯ　ＰＲＩＮＴ
　　可是打印出的清单只用了打印纸左边一小部份。若根据纸的宽度，字体大小每行打印六条记录正好。上面程序就无能为力。用格式输出命令＠＜坐标＞　Ｓａｙ　＜字段表＞只能展开同一条记录的不同字段，不能将同一字段不同记录横向展开。若用函数ｍｏｄ（）和数组结合，则可实现将同一字段不同记录在同行横向展开，程序核心部分如下：
　　ＵＳＥ　Ｃ：＼ＷＺＫ
　　ＳＴＯＲ　ＲＥＣＣＯＵＮＴ（）　ＴＯ　ＪＬＺＳ
　　ＳＴＯＲ　ＩＮＴ（ＪＬＺＳ／６）　ＴＯ　ＹＳ
　　ＤＱＪＬ＝０
　　ＨＳ＝１
　　ＳＥＴ　ＤＥＶＩＣＥ　ＴＯ　ＰＲＩＮＴ
　　ＳＥＴ　ＰＲＩＮＴ　ＯＮ
　　＠　ＨＳ＋３，　２０　ＳＡＹ　”重庆天龙公司物资清单”
　　＠　ＨＳ＋３，　６６　ＳＡＹ　ＤＡＴＥ（）
　　＠　ＨＳ＋６，　０　ＳＡＹ”物资名称、结存量……物资名称、结存量”
　　ＤＥＣＬ　ＷＺ（６），　ＫＣ（６）
　　ＤＯ　ＷＨＩＬＥ　．Ｔ．
　　ＩＦ　ＪＬＺＳ－ＤＱＪＬ＞０
　　　　　　ＤＱＪＬ＝ＤＱＪＬ＋１
　　　　　　ＧＯ　ＤＱＪＬ
　　ＥＬＳＥ
　　　　　　ＥＸＩＴ
　　ＥＮＤＩＦ
　　ＳＴＯＲ　ＭＯＤ（ＤＱＪＬ，６）　ＴＯ　Ｊ
　　ＳＴＯＲ　ＷＺＭＣ　ＴＯ　ＷＥ（Ｊ）
　　ＳＴＯＲ　ＪＣＬ　ＴＯ　ＫＣ（Ｊ）
　　ＩＦ　ＭＯＤ（ＤＱＪＬ，６）＜＞０
　　　　　　ＬＯＯＰ
　　ＥＬＳＥ
　　　　　　ＩＦ　ＭＯＤ（ＨＳ，６）＝０
　　　　　　　　　　ＨＳ＝ＨＳ＋１
　　　　　　ＥＮＤＩＦ
　　　　　　　　　＠　ＨＳ＋７，　０　ＳＡＹ　ＷＺ（１）　ＫＣ（１）
　　　　　　　　　　　　　　……ＷＺ（０）　ＫＣ（０）
　　　　　　　　　　ＨＳ＝ＨＳ＋１
　　　　　　　　　　ＹＳ＝ＹＳ－１
　　　　　　ＬＯＯＰ
　　ＥＮＤＩＦ
　　ＥＮＤＤＯ
　　以上程序用循环语句、数组和ＭＯＤ（）函数实现同一行打印６条记录（每条两个字段），且打满５行自动留一空格再接着打下去。以上程序解决了余数为０时的打印情况。

 