1000以内,能被37整除的平方和.信息科技问题

Dim sum As Long, i As Single
For i = 1 To 1000
If i Mod 37 = 0 Then
sum = sum + i * i
End If
Next i
Print sum
sum=9487170

是编程么= = 我们今天的考题诶╮(╯_╰)╭
s=1
i=0
Do while sIf s mod 37 =0 then
i=s*s+i
else
i=i
End if
s=s+1
Loop
要答案的话自己编程算一下好了= =……

VB：
dim sum as long i as integer
for i = 1 to 1000
if i mod 37=0 then
sum=sum+i*i
end if
next i
print sum

37只能被1和37整除，所以1000内37整除的平方和，就算37到999，公积是37的 等比数列的平方和就行

因1000/37=27..1
又因37是质数,所以1000以内共有27个数能被37整除
分别为：37、74、111、.999
所以和为：37+74+111+.+999
=37（1+2+3+4+.+27）
=37*（1+27）*27/2
=37*14*27
=999*14
=13986