****** TN V1.00 BY Tiger5392****** 用法：?TN(nExpr) &amp;&amp;判断nExpr和nExpr+2是否为双胞胎数*** 参数：nExpr 为一素数，若nExpr+2也为素数，则称nExpr和nExpr+2为一对双胞胎数***PARAMETERS nNumPRIVATE nNum,nNum1,cNum,nCnt1,nCnt2,lOkSET TALK OFFIF TYPE([nNum])!=CHR(78) RETURN [没有参数或参数不为数值]ENDIFIF INT(nNum)!=nNum OR nNum<2 RETURN [...

****** FUNCTION SP V1.00 (C)Copyright By Tiger5392****** 一个素数，依次从个位数开始去掉一位，两位，。。。所得的各数仍然是素数，称为超级素数。***本程序就是用来判断一个数是不是超级素数。****** 用法：?SP(nExpr)*** 参数：nExpr为数值型数据，它为大于1的整数。*** 返回：若为超级素数则返回逻辑真(.T.)；否则返回逻辑假(.F.)。***PARAMETERS nNumPRIVATE nNum,nNum1,cNum,nCnt1,nCnt2,lOkSET TALK OFFIF TYPE...

*** *** FUNCTION DP V1.00 (C)Copyright 2006-2006 By Tiger5392 *** *** 若两个自然连续数乘积减1后是素数，则称此两个自然数连续数为友数对， ***该素数称为友素数。例如：2*3-1=5，因此2与3是友数对，5是友素数。 *** *** 那么如何计算n以内的所有大于2的自然数有多少个友数对呢? *** 设n是一个自然数，则其后的自然数为n+1。两个连续自然数是友数对的充 ***分必要条件是n(n+1)-1为素数，称为友素数。定义函数DP(n)用来计算从2到n ***之间有多少友数对。则...

常见狐友为VFP的查询犯愁，总想说一说关于查询，疏于动笔，拖至现在。 查询是VFP的基本功能，往往受到设计人员的特别关注。怎样设计一个良好的查询功能，当然需要看系统的要求。一般而言，我将查询分为定向查询、万能查询、组合查询、模糊查询等多种形式。 1.定向查询 顾名思义，定向查询是依据特定的字段进行的查询，比如根据某人的学号查询其基本资料，就属于定向查询。 实现定向查询很简单，就是输入一个数据，用SELECT-SQL、LOCATE/CONTINUE、SEEK、SET FILTER TO等命令实现。其中的FOR条件或WHERE条件用“字段=变量”表示。查询的结果根据需要可以显示在原来...

****** 最简因子分解 SF (C)Copyright 2006-2006 By Tiger5392****** 用法:*** ?SF(nExpress)****** 参数:*** nExpress为数值表达式，要求输入正整数****** 返回:*** 字符串，用逗号分开的所有最简因素及奇数因素个数,偶数因素个数,总因素个数,质数或合数*** "0-没有参数": 如果没有参数*** "1-参数不为数值": 如果参数不为数值*** "2-参数不为正整数": 如果参数不为正整数***PARAMETERS nNum1PR...

******** GBSGYS V1.00 (C)Copyright 2006-2006 By Tiger5392******** 功能**** 计算两个正整数的最大公约数及最小公倍数******** 用法**** ?GYSGBS(nExpr1,nExpr2,nExpr3)******** 参数**** nExpr1 第一个正整数**** nExpr2 第二个正整数**** nExpr3 如为0则计算最大公约数；如为1则计算最小公倍数******** 返回**** ...