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

S＝2+4+6+8+...

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

winrar添加，飞车没有自动保存密码功能呢，开机打开登录界面用写注册项完成，修改游戏资源配置我就不会了，但是有个思路，能否写注册项启动开机启动，游戏界面一般开始也是默认居中状态，找到x、y坐标，利用模拟鼠标点击，在密码框也置文本密码，而后登录！呵呵

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

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

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