拿那个数分别去除以2,3,5,7.如果都有余数则这个数一定是一个素数.以下vfp程序将计算出长度小于20位的所有素数并将其结果逐行逐列存入一个有10列的素数表中. SELECT 1 SET ESCAPE on USE 素数表.dbf INSERT blank DIMENSION a(1) a=1 f=1 DO while a10 f=1 INSERT blank ENDIF ENDIF a=a+1 ENDDO =messagebox("长度20位以下(含)的所有素数运算完毕!",0+64+0,"运算完成") USE CLOSE all 素数表.dbf结构从略.参考资料:http://zhidao.baidu.com/question/4892671.html