VB编程中圆周率的定义问题 vb在代码窗口的定义圆周率

VB编写代码，这是计算圆周率的代码，看不懂，谁能讲解一下。 圆周率的计算公式如下：上面的代码用 result记录和，用sign记录每一项的正负号，用 i 来计算每一项的分母。通过循环计算各项的和，当1/i时 不再计算。得出的结果乘4就是Pi利用公式编写计算圆周率（π）的VB程序 sub form_load()dim a，x as integerdim pi as singlepi=0for i=1 to 30000x=((-1)^(i+1))*(2*i-1)pi=1/x+pinext iprint 4*piend sub“一百定要能算到上千万位度！你疯了吗？你学过计算机吗？怎么也不可能吧，一个32位pc机，用vb算？用这个公式？用牛顿迭代，vb仅能算到精确14位，速度还行，你这回算法算6位电脑就卡答爆了。c语言能好些，但也好不到哪去。vb求圆周率的值，代码是？ Private Sub Command1_Click()Dim s As Double，n As Integers=2For n=1 To 10000s=s*(2*n)^2/(2*n-1)/(2*n+1)Next nPrint sEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object，ByVal e As System.EventArgs)Handles Button2.ClickDim s As DoubleDim n As Integers=2For n=1 To 10000s=s*(2*n)^2/(2*n-1)/(2*n+1)Next nMsgBox(\"圆周率π的值是\"&s)End SubVB编程中圆周率的定义问题 请问这是什么问题 Dim r。const P。3.14 改成以下之一：1.Dim r。const P。3.14 2.Private r。Private const P。3.14 3.Dim r。Private const P。。VB编写代码，这是计算圆周率的代码，看不懂，谁能讲解一下。 圆周率的计算公式如下：<；/p>；<；p>；<；/p>；<；p>；上面的代码用 result记录和，用sign记录每一项的正负号，用 i 来计算每一项的分母。p>；通过循环计算各项的和，当1/i时 不再计算。

#dim#圆周率