如何知道一个数是否是质数？

把这个数除以2，3，5，7。如果有余数，这个数一定是质数。下面的vfp程序将计算所有长度小于20位的质数，并将结果逐行存储在10列的质数表中。

选择1

打开逃生装置

使用质数表。dbf

插入空行

尺寸a(1)

a=1

f=1

在a & lt99999999999999999999

b=MOD(a，2)

c=MOD(a，3)

d=MOD(a，5)

e=MOD(a，7)

如果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

做案例

案例f=1

G= "一"

案例f=2

G= "二"

案例f=3

G= "三"

案例f=4

G= "四"

案例f=5

G= "五"

案例f=6

G= "六"

案例f=7

G= "七"

案例f=8

G= "八"

案例f=9

G= "九"

案例f=10

G= "十"

结束案例

去底部

command1= "从a收集"+"字段"+g

& amp命令1

f=f+1

如果f & gt10

f=1

插入空行

ENDIF

ENDIF

a=a+1

恩多

=messagebox("所有长度小于20位(含)的素数都已计算完毕！"，0+64+0，“操作完成”)

使用

全部关闭

质数表。省略dbf结构。