帮忙编写个程序,

我用C语言写的一个:
#include <stdio.h>
int i,m=0;

void main()
{
for(i=1;i<1000;i+=2){
m+=i;
printf("i=%d时求和m=%d\n",i,m);
}
printf("最后所有奇数求和m=%d\n",m);
}

下面这个是改成C++的一个:
#include <iostream>
using namespace std;
int i,m=0;

void main()
{
for(i=1;i<1000;i+=2){
m+=i;
cout <<"i="<<i<<"时求和m="<<m<<endl;
}
cout <<"最后所有奇数求和m="<<m<<endl;
}

Pascal代码：

var
i,s:integer;
begin
i:=1;s:=0;
while i<10000 do
begin
s:=s+1;
i:=i+2;
end;
end.

就这样了……

来个basic语言的vb qb 都行

for i=1 to 1000 step 2
s=s+i
next
print s