Vb.net 如何在VB中计算pi（π；）？

有人知道如何在VB中计算π吗？

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

---

22/7

假设您确实想要计算pi，而不是仅仅使用内置常量，那么有很多方法可以做到这一点。以下是一些有用的链接：

---

如果OP将询问算法作为一种学习体验，这对他/她是有益的

如果OP需要帮助找到内置价值，他/她现在就有了

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

这应该足够了

---

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

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

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

---

Meh，如此高效、准确，而且最无聊的近似。。。试试吧！随后出现伪代码：

• 将内部和总计初始化为0
• 重复疯狂的次数：
  • 指定0和+1之间（包括）的x和y随机值
  • 将距离指定为（x2+y2）的平方根
  • 如果距离≤ 1，将1添加到内部
  • 总数加1
• 将pi分配为内/总*4

---

我根本不主张使用分数近似值与内置值，22/7是我脑海中第一个想到的：）355/113是一个更好的近似值：）我宁愿使用3.14159之类的常量浮点值，而不是22/7，这是一个不准确的近似值。22/7产生的值为3.142857，仅对小学生有用或者有些人不关心任何重大差异，因为数据不准确22/7包含两个神奇的数字，而3.14只包含一个！它一定是邪恶的两倍！投票结束，因为“我如何获得pi值”是一个微不足道的问题，毫无用处，而“我如何计算pi”与编程无关。这个问题非常模糊，谁知道他指的是哪一个。仅仅因为这个问题对你来说微不足道，并不意味着它对编程新手来说微不足道。请阅读常见问题解答。没有一个问题太琐碎或太初级。这并不是说它很琐碎。这是因为他没有尝试编写自己的代码，并要求对代码的特定部分提供帮助。这是一个更有趣的答案。这不是“计算”它。这只是得到一个预先计算的值。

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