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