VB.NET:π/4 ≈ 1 - 1/3 + 1/5 - 1/7 + 1/9 -…±1/n 求π的近似值,直到最后一项的绝对值小于10-4为止.这个求出来永远是4……

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/28 16:23:54
VB.NET:π/4≈1-1/3+1/5-1/7+1/9-…±1/n求π的近似值,直到最后一项的绝对值小于10-4为止.这个求出来永远是4……VB.NET:π/4≈1-1/3+1/5-1/7+1/9-

VB.NET:π/4 ≈ 1 - 1/3 + 1/5 - 1/7 + 1/9 -…±1/n 求π的近似值,直到最后一项的绝对值小于10-4为止.这个求出来永远是4……
VB.NET:π/4 ≈ 1 - 1/3 + 1/5 - 1/7 + 1/9 -…±1/n 求π的近似值,直到最后一项的绝对值小于10-4为止.

这个求出来永远是4……

VB.NET:π/4 ≈ 1 - 1/3 + 1/5 - 1/7 + 1/9 -…±1/n 求π的近似值,直到最后一项的绝对值小于10-4为止.这个求出来永远是4……
Dim i As Integer
Dim n As Double '为保持精度声明为双精度数字,下同
Dim t As Double
Dim s As Double
t = 1
s = 0
i = 1
Do While t > 0.0001
t = 1 / (2 * i - 1) '产生1,1/3,1/5等等分数
If i Mod 2 = 0 Then
s = s - t 'i是偶数时做减法
Else
s = s + t 'i是奇数时做加法
End If
i = i + 1
Loop
n = s * 4
MsgBox("近似值是" & n.ToString)
你的错误主要在于把变量全部声明为整型,当然不会产生小数啦!

VB.NET:π/4 ≈ 1 - 1/3 + 1/5 - 1/7 + 1/9 -…±1/n 求π的近似值,直到最后一项的绝对值小于10-4为止.这个求出来永远是4…… 求1-1000的素数统计 统计素数的个数 vb.net代码 用vb.net产生10个1到1000随机数,数之间要空开 用VB.net编写一个递归函数过程来求F(N)=1^2+2^2+3^2+.+n^2,然后调用该过程进行验证 用vb.net设计程序完成1 2 /2+ 2 2 /2+ 3 2 /2+…+10 2 /2的累加值.结果送至变量Sum.. vb.net 产生随机数问题M=int(4+95*rnd())+1vb.net中,这个语句能产生4~99之间的随机数吗?书上说随机数产生的公式是:int((upperbound-lowerbound+1)*rnd+lowerbound)根据这个公式,不应该是这样:M=int(4+96*rnd()) 写 vb.net的优点是什么?vb.net有哪些优点? 求高精度快速大数阶乘算法!1最好用vb.net,能在一分钟内计算出100000! VB.Net中sum是什么意思 VB.NET的题目 利用随机数生成两个4*4的矩阵A~紧急紧急要求,1、分别以下三角和上三角的形式显示矩阵A2、求主对角线和次对角线上各元素之和 在VB.NET中,执行下列语句后,变量x的值为_____dim a as integer=0:a=3/2 //四舍五入,A.0 B.1 C.2 D.3 VB.NET 单循环显示有规律星星一共有十行 第一行有1个星星 第二行有3个 以此类推第十行有19个 要求用单循环.图中左下方的图不行额.有错误 VB.net程序编写设a=2,b=3,c=4,d=5,S=ABCDEFGHI]K,求下列表达式的值:(1) 5+(a+b)2 (2)cos(b)(sin(a)+1) (3) 8e3ln2(4) Left(S,4) (5) Mid(S,3,4) (6) Instr(S,EFG) (7)Lcase(Right(S,5)) (8)Len(Mid((S,3) VB.NET 算术表达式求值求下列算术表达式的值.已知x = 2.5 :a = 7 :y = 4.7.(1)x+a Mod 3 * (Int(x+y)Mod 2)/4(2)CSng(a + 3)/2+Int(x) Mod Int(y) 2.下面程序段运行后输出的结果是________.VB.NET题Dim i As IntegerDim a() As Integer={1,2,3,4,5,6,7,8,9}For i=0 To UBound(a)a(i)=a(i)*a(i)Next iMsgBox(a(2)) 1、设计程序完成1-50之间的奇数和,结果送至变量Sum.(高手作答) 急用用VB.NET 编辑啊 X能同时被4或6整除的VB.NET逻辑表达式 15.在VB.NET中,下列表达式的值为_____True and 100+10*3