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)

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 SubEnd Class

总结

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

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