vfp编程:输入2到1000,把质数列出来,并统计个数和计算质数总和

$saidaiti=1000;
$m=0;
for($y=2;$y<=$saidaiti;$y++){
$prime=1;
for($x=2;$x<=sqrt($y);$x++){
if(($y%$x)==0){
$prime=0;
last;
}
}
if($prime){
$m++;
print"sushu=$y\t";
}
}
$s=$m+1;
print"\ngeshu=$s";
<>;
不会vfp 这是 perl的编程希望能对你有帮助