Question

用VFP计算问题在文本框Text1中输入一个正整数N,单击“计算”命令按钮,将计算N内（包括N）所有能被3整除的数之和,

Answer 1

在计算按钮用如下代码：

sum=0

FOR i=1 TO thisform.text1.Value

sum=IIF(MOD(i,3)=0,sum+i,sum)

ENDFOR

thisform.text2.Value=sum

thisform.text2.Refresh