vb编程题，考试急需答案

dim a as integer
dim sum as long 'sum为平方和，最后结果
sum=0
for a=1000 to 9999
  if a mod 4=3 and a mod 7=4 and a mod 9=4 then
     print a  '在窗口输出
    sum=a^2+sum
  else
  end if
next a

我自己运行了一下程序，结果为共36个数，最后结果sum= 1329781140，不知道答案对不对.



[ 本帖最后由 vbvcr51 于 2013-11-4 20:19 编辑 ]