vf 计算机二级求俩个数之间的是素数并且为回文数的个数

clear      &&清理屏幕
count1=0     &&用来保存回文数的个数
for i=100 to 999  &&判断范围  就是  100~999
a=i%10        &&找出个位的数字
c=int(i/100)   && 找出百位数字
if a=c and su(i) && 对比 个位数字和百位数字是否相同 如果相同就是回文 并且为这个数是不是为素数
count1 = count1+1   &&计数器 加一
endif     
endfor
? count1,i
 &&下面的程序为 判断是否为 素数
retu
function su(x)  && 定义一个函数名为 su的函数执行这个函数 传入 x 是个参数
for j=2 to sqrt(x) &&循环2到 x的平方根 之间的范围
if x%j=0   &&如果传入的参数 x能被2整除
  return(.f.)  &&返回 false 不是素数
endif    &&如果 不能被2整除
endfor    && 如果 继续循环 知道x的平方根小于 2的时候 跳出函数
if j>sqrt(x)  && 返回值为 true的时候 这个数为素数，因为素数只能被一或者本身整除
return(.t.)
endif