计算π的近似值,精确到小数点后6位设计vb程序需要代码VB里面的π/2＝2^2/1*3×4^4/3*5×.×（
1人问答
更新时间:2024-04-18 10:49:55
问题描述：
计算π的近似值,精确到小数点后6位设计vb程序需要代码VB里面的π/2＝2^2/1*3×4^4/3*5×.×（
吕良全回答：
你给的公式不对!应该是π/2＝2^2/1*3×4^2/3*5×.×（
这个公式求的精度不高!代码如下：
DimPI1AsDouble
DimPI2AsDouble
DimTempAsDouble
DimnAsDouble
PI1=0:PI2=2:n=2
WhilePI2-PI1>0.000001
PI1=PI2
Temp=(n*n)/((n-1)*(n+1))
PI2=PI2*Temp
n=n+2
Wend
Me.Text1.Text=PI2
其它推荐
其它推荐
最新更新
精品分类
优秀其它推荐
热门其它
联系方式：