求一道VF编程...我们的作业

经过我用VF检验过了的
clear
sum=0
for i=10 to 99
for j=2 to i-1
if i%j=0 &&i除以j求余
exit
endif
endfor
if j>=i
a=int(i/10) &&把十位赋给a
b=i%10 &&把个位赋给b
x=b*10+a
for y=2 to x-1
if x%y=0
exit
endif
endfor
if y>=x
?alltrim(str(i)),"是个素数",alltrim(str(x)),"也是素数"
sum=sum+i
endif
endif
endfor
?"求和结果是",sum

其他的相信你自己能看的懂了吧

---

经过我用VF检验过了的
clear
sum=0
for i=10 to 99
for j=2 to i-1
if i%j=0 &&i除以j求余
exit
endif
endfor
if j>=i
a=int(i/10) &&把十位赋给a
b=i%10 &&把个位赋给b
x=b*10+a
for y=2 to x-1
if x%y=0
exit
endif
endfor
if y>=x
?alltrim(str(i)),"是个素数",alltrim(str(x)),"也是素数"
sum=sum+i
endif
endif
endfor
?"求和结果是",sum

其他的相信你自己能看的懂了吧

---

能不能多给几个程序！！！

---

你是那个地方的， 如果是考查课的话！！千万别抄，大家都雷同了！！