如何计算VB中的pi（π）？

Question

有谁知道如何在VB中计算pi（π）？

Answer 1

假设您实际上想要计算pi而不是仅仅使用内置常量，那么您可以通过多种方式来实现它。以下是一些可能有用的链接：

• http://www.codeproject.com/KB/recipes/CRHpi.aspx
• http://en.wikipedia.org/wiki/Pi#Computation_in_the_computer_age
• http://en.wikipedia.org/wiki/Machin-like_formula

Answer 2

System.Math.Pi

Answer 3

如果你的意思是VB6，它没有pi常数。您可以使用：

Dim pi as Double  
pi = 4 * Atn(1) 

Answer 4

如果OP询问算法是一种学习经历，对他/她有好处。

如果OP想要帮助找到内置值，他/她现在就拥有它。

但是如果目标是一个比内置值更高精度的好价值，只需要最少的努力，这里的pi就达到一百万位：

http://www.eveandersson.com/pi/digits/1000000

这应该足够了。

我希望OP不会询问如何在每次使用时重新计算Pi的值。那将是疯狂。

Answer 5

Meh，如此高效，准确，而且大部分都是无聊的近似......请尝试this！伪代码随之而来：

• 将内的和总计初始化为0
• 重复疯狂的次数：
  • 在（和包括）0和+1之间分配 x 和 y 随机值。
  • 指定距离作为（ x ² + y ^{2 ）}
  • 如果距离≤1，请将添加1
  • 将总计
  添加1
• 将 pi 指定为 / 总计 * 4

Answer 6

如果您不想使用.net数学库中的内置值...

22/7