用vb中的for循环计算π的近似值.要求输入一个数然后根据这个数求近似
来源:学生作业帮 编辑:拍题作业网作业帮 分类:数学作业 时间:2024/05/01 11:40:57
用vb中的for循环计算π的近似值.要求输入一个数然后根据这个数求近似
公式要用π=2* (4 / (1 * 3)) * (16/ (3 * 5)) * (36 / (5 * 7)) * ...
公式要用π=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的差别..
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编程 输入一个数,随即产生一些随机数,要求产生的随机数的平均值等于输入的数