用vb中的for循环计算π的近似值.要求输入一个数然后根据这个数求近似

来源：学生作业帮编辑：百度作业网作业帮分类：数学作业时间：2024/05/01 11:39:17

用vb中的for循环计算π的近似值.要求输入一个数然后根据这个数求近似
公式要用π=2* (4 / (1 * 3)) * (16/ (3 * 5)) * (36 / (5 * 7)) * ...

Private Sub Command1_Click()
Dim n,pi,i
pi = 2
n = Val(InputBox("请输入一个数"))
For i = 1 To n
pi = pi * ((2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1)))
Next i
MsgBox "π的近似值为" & pi
End Sub
再问： Dim n, t, s As Double s = 1 : t = 2 For n = 1 To 　　　　　　　　　　　 s *= 　　　 t = 　　 Next Label1.Text = "π的近似值为" & s 如果代码框架是这个样子的该怎么办？我尝试了你的办法，输入50和1000出来的结果是一样的，如果要求再精确点怎么办？
再答：看一下你的完整代码，我的在自己电脑上试过输入50和1000出来的结果不一样的
再问： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n, s As Double n = Val(TextBox1.Text) Label2.Text = "" s = 2 For n = 1 To 10000 s *= ((2.0# * n) ^ 2.0# / ((2.0# * n - 1) * (2.0# * n + 1))) Next Label2.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 Double s = 1 : t = 2 For n = 1 To 　　　　　　　　　　　 s *= 　　　 t = 　　 Next Label1.Text = "π的近似值为" & s 这个格式写代码应该是怎么样的
再答：没有这样的，没用过vb.net，不知道和6.0的差别..

用vb中的for循环计算π的近似值.要求输入一个数然后根据这个数求近似求一个小数的近似数,需要根据什么法?求近似值? 求一个EXCELL用VB程序,要求输入两个数,按一下按钮产生一个介于刚才输入的那个数之间的随机数. 用vb 设计一个函数求e的近似值计算求一个小数的近似数,要根据问题要求用什么法保留小数数位? vb实验：要求在text1中输入一个百位数,然后按command,即在text2中输出百位数由“个、十、百”新组成的数 VB编程：输入一个数,求它的自然数对, 用VB编程实现下面的目的,输入一个正整数,然后计算该数的每一位非零数字相乘的积. VB编程：输入一个数,求这个数与其倒数之和求帮做VB程序分支循环的综合应用一、输入一个自然数x,求这个自然数的所有约数.本题的关键是求出这个数的所有约数.若x除以 C# 输入n个数,求最大的数.用for语句循环写 vb编程输入一个数,随即产生一些随机数,要求产生的随机数的平均值等于输入的数