VB问题:已知 π⼀4≈1-1⼀3+1⼀5-1⼀7+1⼀9-1⼀11+...-1⼀2*100-1 可求π的近似值,这个的代码是多少,不用IF

VB求值
2025-03-03 19:48:05
推荐回答(2个)
回答1:

for i=1 to 200 step 2
a=i*(-1)^(i+1)
b=b+1/a
next i
print b
调试过了~~

回答2:

For i = 1 To 199 Step 4
Pi = Pi + 1 / i
Next i
For j = 3 To 197 Step 4
Pi = Pi - 1 / i
Next j
Pi = Pi * 4
MsgBox Pi