vfp 从键盘上输入一个整数N,求从这个数值开始之后的20个素数,并求这20个

[复制链接]
查看11 | 回复1 | 2013-6-15 17:47:42 | 显示全部楼层 |阅读模式
新建一个程序(文件菜单——新建——程序——新建文件),写代码: input "请输入一个数: " to ns=0?"这个数值开始之后的20个素数是:"do while s<20n=n+1if fun(n)=1
?n
s=s+1endifn=n+1enddofunction funparameters cfor i=2 to c/2
if c%i=0
return 0
endifnext ireturn 1end function 然后,直接点击感叹号,保存并运行,图:...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行