PrivateSubCommand1_Click()Dimn,pi,ipi=2n=Val(InputBox("请输入一个数"))Fori=1Tonpi=pi*((2*i)^2/((2*i-1)*(2*i+1)))NextiMsgBox"π的近似值为"&piEndSub

　　Dimn,t,sAsDoubles=1:t=2Forn=1To　s*=　t=NextLabel1.Text="π的近似值为"&s如果代码框架是这个样子的该怎么办？我尝试了你的办法，输入50和1000出来的结果是一样的，如果要求再精确点怎么办？

　　看一下你的完整代码，我的在自己电脑上试过输入50和1000出来的结果不一样的

　　PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimn,sAsDoublen=Val(TextBox1.Text)Label2.Text=""s=2Forn=1To10000s*=((2.0#*n)^2.0#/((2.0#*n-1)*(2.0#*n+1)))NextLabel2.Text="π的近似值为"&s这个是我的代码，麻烦了

　　你这代码有问题吧，2.0#这个代表啥意思？？s*？？n=Val(TextBox1.Text)说明n值是输入的，但与后面的Forn=1To10000相矛盾还有Label2.Text，Label的属性应该是caption属性吧，没有这么表示的....

　　2.0#是把常数2改为双精度型（这个是书里提示的，我也不知道为啥）。我们用的是vb.net。s*的意思应该是s=s*().高手，如果要用Dimn,t,sAsDoubles=1:t=2Forn=1To　s*=　t=NextLabel1.Text="π的近似值为"&s这个格式写代码应该是怎么样的

　　没有这样的，没用过vb.net，不知道和6.0的差别..