神马品牌网艮为山卦是否能复合:vb编程 算圆周率
来源：百度文库 编辑：神马品牌网 时间：2024/05/07 08:50:58
本小鸟写了如下代码，来算圆周率，算出来的不是3.1415926.....请各位大侠指点
Private Sub Command1_Click()
Dim a As Double
Dim b As Integer
For b = 0 To 1000 Step 1
b = b + 1
a = 4 / (4 * b - 3) - 4 / (4 * b - 1) + a
Next
Print a
End Sub
Private Sub Command1_Click()
Static a As Double
Static b As Integer
For b = 0 To 100 Step 1
b = b + 1
a = 4 / (4 * b - 3) - 4 / (4 * b - 1) + a
Next
Print a
End Sub
a的默认植确实是0
Private Sub Command1_Click()
Dim a As Double
Dim b As Integer
For b = 0 To 1000 Step 1
b = b + 1
a = 4 / (4 * b - 3) - 4 / (4 * b - 1) + a
Next
Print a
End Sub
Private Sub Command1_Click()
Static a As Double
Static b As Integer
For b = 0 To 100 Step 1
b = b + 1
a = 4 / (4 * b - 3) - 4 / (4 * b - 1) + a
Next
Print a
End Sub
a的默认植确实是0
你这个方法也可以的，如有不好的地方请指点
下面我们用X 作这圆周率做题
用X/4= 1-1/3+1/5-1/7...100000000
PI=0，S= 1
FOR C = 1 TO 100000000 STEP 2
PI = PI +S/C
S= -S
NEXT C
PRINT X=”4*PI“
不要这么用
用极限：
lim(N):sqrt(6*(1/1^2+1/2^2+1/3^2+1/4^2+...+1/n^2)
a = 4 / (4 * b - 3) - 4 / (4 * b - 1) + a
这个数学原理我不清楚，但是VB里，只声明而不初始化一个变量，如上面的a，a的值是默认为0吗？
你 的算法有问题吧