首先说：能。 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类型的精度导致的，你把精度设置适当应该就可以了。
