求如何用 VF编写 200以内素数的和???急!!

跟foxpro\foxbase的编写方法是一样的！
dime a(200) &&建立一个存放素数的数组
m=2 &&素数的个数
a(1)=1
a(2)=2
for i=3 to 200
m=m+1
a(m)=i &&先假设这个数是素数
for n=2 to i-1 &&在小于这个数中找因数
if mod(i,n)=0 &&如果不是素数
m=m-1 &&把这个数覆盖掉
exit
endif
endfor
endfor
sum_h=0
for p=1 to m &&显示这些素数
sum_h=a(p)+sum_h
endfor