Spirit's Home

今天一经管系的同学让我用VF做一个求绝对质数（素数）的题，题目是这样的：一个自然数是质数，且它的数字位数经交换后仍为质数，则称为绝对质数。例如：13就是一个绝对质数。试求有所得两位绝对质数之和。

VF的语法很怪，特别是那个for 循环。查了好长时间资料才给弄出来。

clear
sum=0
for i=10 to 99
for j=2 to i-1
if i%j=0
exit
endif
endfor
if j>=i
a=int(i/10)
b=i%10
x=b*10+a
for y=2 to x-1
if x%y=0
exit
endif
endfor
if y>=x
?i,"是个质数",x,"也是质数"
sum=sum+i
endif
endif
endfor
?"求和结果是",sum