vb求pai近似值_VB学习第九周--计算π的近似值

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click

Dim n,t,s,m As Double

m = Val(TextBox1.Text)

s = 2.0#

For n = 1 To m

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

s *= t

Next

Label2.Text = "π的近似值为" & s

End Sub

Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

总结

以上是编程之家为你收集整理的VB学习第九周--计算π的近似值全部内容，希望文章能够帮你解决VB学习第九周--计算π的近似值所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。

如您喜欢交流学习经验，点击链接加入交流1群：1065694478(已满)交流2群：163560250