panduanyigeshushibushishushu.bak

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

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