Private Sub Command1_Click()Dim n,pi,ipi = 2n = Val(InputBox("请输入一个数"))For i = 1 To npi = pi * ((2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1)))Next iMsgBox "π的近似值为" & piEnd SubDim n, t, s As Doubles = 1 : t = 2For n = 1 To 　　　　　　　　　　　s *= 　　　t = 　　NextLabel1.Text = "π的近似值为" & s如果代码框架是这个样子的该怎么办？我尝试了你的办法，输入50和1000出来的结果是一样的，如果要求再精确点怎么办？看一下你的完整代码，我的在自己电脑上试过输入50和1000出来的结果不一样的Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, s As Doublen = Val(TextBox1.Text)Label2.Text = ""s = 2For n = 1 To 10000s *= ((2.0# * n) ^ 2.0# / ((2.0# * n - 1) * (2.0# * n + 1)))NextLabel2.Text = "π的近似值为" & s这个是我的代码，麻烦了你这代码有问题吧，2.0#这个代表啥意思？？ s *？？ n = Val(TextBox1.Text)说明n值是输入的，但与后面的For n = 1 To 10000相矛盾还有Label2.Text，Label的属性应该是caption属性吧，没有这么表示的....2.0#是把常数2改为双精度型（这个是书里提示的，我也不知道为啥）。我们用的是vb.net。s*的意思应该是s=s*() .高手，如果要用Dim n, t, s As Doubles = 1 : t = 2For n = 1 To 　　　　　　　　　　　s *= 　　　t = 　　NextLabel1.Text = "π的近似值为" & s这个格式写代码应该是怎么样的没有这样的，没用过vb.net，不知道和6.0的差别..