clear
for i=2 to 1000
if ss(i)
??i
endif
endfor
*--以下是函数ss, 在上面调用, 传入一个数字, 如果是素数就返回真,否则返回假
function ss
lparameter x
lifzc=.f. &&是否被整除,默认为假, 一旦被整除,就证明不是素数
for j=2 to x-1
if x/j=int(x/j)
lifzc=.t.
exit
endif
endfor
return !lifzc
endfunction
vfp程序用函数方法判断1000以内的数是素数
来源：www.hzjinqiao.com
责任编辑：凯银手游网
发布时间：2024-10-03 16:23
0
0
