vb 编程 用pi /4 =1-1/3+1/5-1/7+...公式求pi的近似值,直到最后一项绝对值小于10-6为止Dim pi As Double, i As Integer, x As Long x = 1 i = 1 While 1 / x > 10 ^ -6 pi = pi + i * (1 / x)

vb 编程 用pi /4 =1-1/3+1/5-1/7+...公式求pi的近似值,直到最后一项绝对值小于10-6为止Dim pi As Double, i As Integer, x As Long x = 1 i = 1 While 1 / x > 10 ^ -6 pi = pi + i * (1 / x)
vb 编程 用pi /4 =1-1/3+1/5-1/7+...公式求pi的近似值,直到最后一项绝对值小于10-6为止
Dim pi As Double, i As Integer, x As Long
x = 1
i = 1
While 1 / x > 10 ^ -6
pi = pi + i * (1 / x)
i = -1
x = x + 2
Wend
Print pi * 4
我是菜鸟 求指教 请问哪儿错了?

vb 编程 用pi /4 =1-1/3+1/5-1/7+...公式求pi的近似值,直到最后一项绝对值小于10-6为止Dim pi As Double, i As Integer, x As Long x = 1 i = 1 While 1 / x > 10 ^ -6 pi = pi + i * (1 / x)
1、循环前面加一条：pi=0
2、i=-1改为i=-1*i

在while循环中，i除了X=1时为1其余全为-1，一直没变，将循环中的i=-i就行了；还有就是
pi = pi + i * (1 / x)中等号两边数据类型不匹配，可以直接将i和x定义成双精度数
Dim pi As Double, i As Integer, x As Long
x = 1
i = 1
Whi...

全部展开

在while循环中，i除了X=1时为1其余全为-1，一直没变，将循环中的i=-i就行了；还有就是
pi = pi + i * (1 / x)中等号两边数据类型不匹配，可以直接将i和x定义成双精度数
Dim pi As Double, i As Integer, x As Long
x = 1
i = 1
While 1 / x > 10 ^ -6
pi = pi + i * (1 / x)
i = -i
x = x + 2
Wend
Print pi * 4

收起

问题出在i=-1,循环开始后i始终=-1,已经不满足公式了,公式里是一正一负的

有高手可以指教下用迭代法怎么做吗？