vf数据库编程题请教

* 1、编程输出100—1000之间能被3整除的数及其个数。
? "能被 3 整除的数："
n=0
for i=100 to 1000
if mod(i,3)=0
?? STR(i,4)
n=n+1
Endif
endf
? "能被3整除的数及其个数："+Str(n,3)

* 2、编程求出1^2+2^2+……+n^2的值，n的值由键盘输入。
S=0
input "n = " To n
For i=1 to n
S=S + i^2
EndFor
? "N 项之和：" + Str(S)

* 3、编程求输入的两个正整数的最大公约数和最小公倍数。
input "x = " To x
input "y = " To y
xy=x*y
Do while .t.
z=Mod(y,x)
if z=0
exit
endif
y=x
x=z
enddo
? "最大公约数"+str(x)
? "最小公倍数"+str(xy/x)

Retu

输入能被三整除不是很难，还要输入个数，只要在开始加一公共数，每次加一就可以（注意要付合要求的哦！）