怎样知道一个数是否是素数？？

拿那个数分别去除以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 a<99999999999999999999
b=MOD(a,2)
c=MOD(a,3)
d=MOD(a,5)
e=MOD(a,7)
IF b#0.and.c#0.and.d#0.and.e#0.and.a#1.or.a=2.or.a=3.or.a=5.or.a=7
DO case
CASE f=1
g="一"
CASE f=2
g="二"
CASE f=3
g="三"
CASE f=4
g="四"
CASE f=5
g="五"
CASE f=6
g="六"
CASE f=7
g="七"
CASE f=8
g="八"
CASE f=9
g="九"
CASE f=10
g="十"
ENDCASE
GO bott
command1="gather from a"+" fields "+g
&command1
f=f+1
IF f>10
f=1
INSERT blank
ENDIF
ENDIF
a=a+1
ENDDO
=messagebox("长度20位以下(含)的所有素数运算完毕！",0+64+0,"运算完成