vb.net计算pi vb计算和代码

在vb中如何精确表达π 有前辈用atn函数表达出来了但还有些疑问

首先说：能。 3*Atn（√3）也可以得到正确的值。但没什么意义。因为这个表达式书写起来远不如 4 * Atn(1) 简洁，而且由于使用了开根号函数，无论是精度还是CPU资源消耗上都要更差一点。

目前成都创新互联公司已为近1000家的企业提供了网站建设、域名、网络空间、网站运营、企业网站设计、安远网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

最后，在VB6中，用 4 * Atn(1) 是可以的。在 VB.net 中就可以直接使用 math.pi 这个常量了。

Dim pi As Single = 3.14159

Dim R As Single = Val(InputBox("输入半径"))

MsgBox("圆面积=" pi * R * R.ToString)

MsgBox("圆周长=" 2 * pi * R.ToString)

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim s As Double

Dim n As Integer

s = 2

For n = 1 To 10000

s = s * (2 * n) ^ 2 / (2 * n - 1) / (2 * n + 1)

Next n

MsgBox("圆周率π的值是" s)

End Sub

可以用Rnd函数实现

Rnd 函数返回小于 1 但大于或等于 0 的值。

为了生成某个范围内的随机整数，可使用以下公式：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

你这里可以先把范围扩大10倍，看成21到34之间的随机数，最后再除以10就行了。

Int((34 - 21 + 1) * Rnd + 21) / 10

-1.52341E-13

科学计数法，10的-13次方表示此数已经接近于0了，应该是single类型的精度导致的，你把精度设置适当应该就可以了。

网页题目：vb.net计算pi vb计算和代码
文章转载：http://myzitong.com/article/hjhejc.html