求100内的奇数和，我做的那里出错了阿？谢谢帮我改正以下

Private Sub Command2_Click()
Dim s%, i% ,j%
s = 0
For i = 1 To 50
j = 2 * n - 1
s = s + j

Next i
Print "s=", s

End Sub

Private Sub Command2_Click()
Dim s%, i%
s = 0
For i = 1 To 50
s = s + 2 * i - 1
Next i
Print "s=", s
End Sub

pascal 别笑话
program 111;
var
he,i:integer;
begin
he:=0;
for i:=1 to 100 do
begin
if i mod 2<>0 then he:=he+i;
end;
end.{看, pascal比vb强白倍!}