编写程序求从100到1000的自然数里所有能同时被3、5、7整除的自然数之和

什么语言？C＋＋吗？
我就写个核心代码吧

#include<stdio.h>
void main()
{
int a[500],i,j=0,sum=0;
for(i=100;i<1001;i++)
{if(i%3==0&&i%5==0&&i%7==0)
{a[j]=i;j++}
}
for(j=0;j<500;j++)
{sum+=a[j]; }
}

将下面语句复制到一个文本文档中，将后缀名改为vbs，然后双击运行：
dim s,i
for i=100 to 1000
  if (i mod 3*5*7 = 0) then
    s=s+i
  end if
next
msgbox s

vfp

for i=100 to 1000
if int(i/(3*5*7))=i/(3*5*7)
s=s+i
endif
endfor
?s