vb编程题，考试急需答案
编写程序，输出能被4除余数为3，被7除数为4，被9除余数为4的所有四位数，并求上述满足条件的数的平方和。求答案。
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，不知道答案对不对.
36.rar
(5.19 KB)
[ 本帖最后由 vbvcr51 于 2013-11-4 20:19 编辑 ]