VF中如何编写从1到100的数的和

set talk off
? "能被7整除的数: "
store 0 to s1,s2,s3,s4,s5,k

for i=1 to 100
s1=s1+i
s2=s2+i*i

if mod(i,2)=0
s4=s4+i
else
s3=s3+i
endif

if mod(i,7)=0
?? str(i,3)
endif
endf

for i=2 to 100
k=sqrt(i)

f=.t.
for j=2 to k
if mod(i,j)=0
f=.f.
exit
endif
endf

if f
s5=s5+i
endif
endf

? "从1到100的数的和："+str(s1,5)
? "从1到100的整数平方和："+str(s2,8)
? "从1到100的的奇数和："+str(s3,5)
? "从1到100的的偶数和："+str(s4,5)
? "从1到100的质数和："+str(s5,5)
return