1-1000内能被37整除的平方和的VB怎么写

楼上的一定会溢出出错,999^2>整数最大值32767
dim i as long
dim sum as long
for i =37 to 1000 step 37
sum=sum +i*i '尽量用乘法代替^运算,速度快一些
next i
msgbox sum