1. 程序功能：求s=1+3+5+7+...直到s>2000为止。

for(i=0,sum=0;sum<=2000;i++)
sum+=i;

vb.net

Dim s,i As Integer
i = 1
While s <= 2000
s += i
i += 2
End While

你想用什么语言搞程序设计？
以delphi为例：（其它相似）
procedure TForm1.Button1Click(Sender: TObject);
var
i,s:integer;
begin
i:=1;
s:=0;
repeat
s := s +i;
i := i+2;
until s>2000;
label1.Caption :='i = '+inttostr(i);

end;
当i=89 时，就s>2000了。