s=1-1/2+1/3-1/4……+1/99-1/100的值 用VB做

首先说明一下第一个，思路很好，但定义方法错了，虽然结果也能得到
错误说明：dim s,i as double 只会给I定义double,对s的定义相当于dim s，会降低程序运行速度（当然程序小无法感觉得到），还有就是I是integer，用不着去定义double，只会降低运行效率（当然程序小无法感觉得到)
修改如下
Private Sub Form_Load()
Dim S as double
dim i As integer
S = 0
For i = 1 To 100
S = S + (1 / i) * (-1) ^ IIf(i Mod 2 = 0, 1, 2)
Next i
MsgBox "S=" & S
End Sub

dim i as new integer
dim s as integer = 0

for i = 0 to 100
if (i%2)<>0 then
s += 1/i
else
s -= 1/i
end if
next

msgbox(s)

这个东西根本不高手， 很普通的。
注意上面的 “%” 错了 换成 MOD。。。
我学Java学乱了。。。

Private Sub Form_Load()
Dim S, i As Double
S = 0
For i = 1 To 100
S = S + (1 / i) * (-1) ^ IIf(i Mod 2 = 0, 1, 2)
Next i
MsgBox "S=" & S
End Sub

bz3zwy中的n = -1 * n 这句应该是n=-1^n
其他的都对
还是wynness这位想的最好
建议你把分给他