示例全部代码放在一个prg文件运行。
你可能是放在表单里用，这时，自定义函数可以用自定义表单的一个方法表示，或者放在prg文件里，调用时先用 SET PROCEDURE TO ......载入这个prg模块。

感谢！但代码运行有点偏慢，大概有10秒钟才运行完。是不是有更妙、更完美的方法，请高手们互相探讨。

不知吹水佬从事什么职业，对VFP有那么厚的功底，加上那么无私的奉献与帮助，真是可佩可尊。你提供的那段代码让我学到很多东西，再次感谢你。

可能考生多？

我是不务正业，严格说编程与本职无关，纯属爱好，自娱自乐。一切取之论坛，用之论坛，无私奉献就谈不上。

服！

，通常“不务正业”的才会无私奉献，如果以VFP为谋生的，就会留后手。担心教会徒弟，饿死师傅。

请教rand(60)与rand()*60有何差别？

rand(60)是一个常数
rand()是一个变数, rand()*60是一个变数的60倍

rand(60)得到是一个什么常数。在你的代码中有rand（班+recno())是一个什么数呢？