能用vB求圆周率吗？

如果能请告诉我源代码，谢�

Dim x, pi
Dim by As Boolean
by = False

For x = 1 To 1000000 Step 2' to 数字越大越精确
by = Not by
If by Then
pi = pi + 1 / x
Else
pi = pi - 1 / x
End If
Next
pi = 4 * pi

不感兴趣

开通SVIP免广告

求圆周率？? ?

如果你能告诉我圆周长是怎么算的,我就可以给你求圆周率的VB代码.

圆周率是一个数学常数，是固定的，还需要求吗？楼主你要做什么？
2楼的是一个求pi的值的算法，不过不知道是谁这么无聊怎么会发现这样算出来就是pi值？从算法上看，与pi的来历毫无关系！只是结果刚好接近而已�

以前看过一个叫做super pi的东西
很厉害
不知道怎么得到数据的
2楼这个很强，具体算法未知
当前我的得数
3.1415924535898
还是可以接受的一个数�

221.219.220.*

快试试吧，
可以对自己使用挽尊卡咯~

◆

要是求PI，用祖冲之老爷子的方法

分母=2到1000循环
分子=分母*3到分母*4的循环
如果分子/分母-3.1415826535 的绝对值<精确度
那么：找到了最接近π值的分数
循环结束

pi/4=1-1/3+1/5-1/7+1/9…�

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

8回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六