在线等，求2到100偶数的和源码

来源：百度知道 编辑：UC知道 时间：2024/06/10 05:32:41
求S＝2+4+6+8+....+96+98+100
代码怎么写

Private Sub Command1_Click()
s = 0
For i = 2 To 100 Step 2
s = s + i
Next i
MsgBox s
End Sub

i=2;
if (i>=100) than
i++;
i++;
j=j+i;
else s=j;
docoment.wirte(s);

Private Sub Command1_Click()
s = 0
For i = 2 To 100 Step 2
s = s + i
Next i
MsgBox s
End Sub

Private Sub Command1_Click()
s = 0
For i =2 To 100 Step 2
s = s + i
Next i
print s
End Sub

源码是什么意思

是用c语言吗

呵呵