Private Sub Form_Click()
Dim i As Integer, y As Single, n As Integer, s As Single
n = InputBox("输入n值", "")

For i = 1 To n
y = (-1) ^ (i - 1)
s = s + y / n
Next i
Print s

与

Private Sub Form_Click()
Dim i As Integer, y As Single, n As Integer, s As Single
n = InputBox("输入n值", "")
s = 1
For i = 2 To n
y = (-1) ^ (i - 1)
s = s + y / n
Next i
Print s
这两个结果为什么会不同呢？请教

[此贴子已经被作者于2007-9-22 9:25:34编辑过]

应该是n取值问题吧。。。

[此贴子已经被作者于2007-9-22 9:35:48编辑过]

以下是引用coachard在2007-9-22 9:58:24的发言：
这就是数学问题了。。。

不过当N取1时，第二个循环跟本动都没动~~~

不妨碍。

我感觉基本是一样的。没测试。

以下是引用coachard在2007-9-22 9:58:24的发言：
这就是数学问题了。。。

不过当N取1时，第二个循环跟本动都没动~~~

为什么会这样呢？？

因为i₀从2开始