panduanyigeshushibushishushu.prg

来自「判断一个数是不是素数的vfp程序」· PRG 代码 · 共 29 行

clea
m=0

yn="Y"
l=1
do while upper(yn)="Y"

inpu "请输入a的值" to m

for i=2 to m-1
if m/i=int(m/i)
l=0
exit
endi
next

if l=1
?"m是素数"
else
?"m不是素数"
endi


wait "要继续么y/n" to yn


enddo