****** 统计X以内的超级素数的个数 By Tiger5392 (C)Copyright 2006-2006****** 语法*** ?超级素数(nExpr)*** nExpr:正整数,表示要计算从1到该数之间的超级素数*** 返回:超级素数的个数****** 相关知识*** 超级素数：一个素数，去掉个位是素数；去掉个位和十位也是素数；*** 直到保留到最高位依然是素数，这个素数称为超级素数。***PARAMETERS nNumPRIVATE nNum,tStartTime,nTotal,nCnt,lIsSupperPrimeCLEAR...

* 回文 (C)Copyright 2006-2006 By Tiger5392* 用法* ?回文(cExpress)* 参数* cExpress: 字符型常量、变量、函数、表达式* 返回值* 一个数值* 数值 含义* 0 是一个空串* 1 是一个字节回文,是两个字节回文* 2 是一个字节回文,不是两个字节回文* 3 不是一个字节回文,是两个字节回文* 4 不是一个字节回文,不是两个字节回文* 5 是英文...

FUNCTION IsSupperPrimePARAMETERS nNumPRIVATE nNum,nNum1,cNum,nCnt,lIsSupperPrimeIF SUBSTR(ALLTRIM(STR(nNum)),1,1)$"14689" RETURN .F. &&若数值最高位不为2,3,5,7之一，则判定该数不为超级素数ENDIFFOR nCnt=0 TO LEN(ALLTRIM(STR(nNum)))-2 nNum1=INT(nNum/10^nCnt) &&将原数去掉从个位开始的nCnt位 cNum=SUBSTR(...

****** 判断一个数是否为超级素数 By Tiger5392 (C)Copyright 2006-2006****** 相关知识*** 超级素数：一个素数，去掉个位是素数；去掉个位和十位也是素数；......；*** 直到保留到最高位依然是素数，这个素数称为超级素数。****** 编程思路*** 1.素数一定不能是1。给定的数若为超级素数，则高位不能是1。*** 2.素数一定不能被2整除(2除外)。给定的数若为超级素数，则各位数字不能含有0,2,4,6,8(高位2除外)。*** 3.素数一定不能被5整除(5除外)。给定的数若为超级素数，...

VFP程序经常用到查询，其中有模糊查询的情况。用AT()和$都不能满足需要，这个时候就要用SELECT-SQL的LIKE子句了。但是需要查询的内容被写入一个文本框，如何使用LIKE子句呢?一个处理的思路就是一个字符一个字符地取出来。遇到需要查询单字节字符倒也无妨，但是需要处理双字节，上述思路就错了。正确的办法就是“遇单取单，遇双取双”。这就需要用到函数ISLEADBYTE()函数了。 就上述模糊查询思路给一个例子。假如数据表(职工.DBF)的内容显示在表格(GRID1)中，需要查询的字段为“姓名”，指定查询的模糊数据在文本框(TEXT1)中。“查询”命令按钮实现查询。则该命令按钮的CL...