VB学习第九周--计算π的近似值

最新推荐文章于 2021-05-18 18:17:57 发布

Digital2Slave

最新推荐文章于 2021-05-18 18:17:57 发布

阅读量7.6k

点赞数

分类专栏： VB VB实践学习文章标签： VB

本文链接：https://blog.csdn.net/tianzhaixing2013/article/details/8876056

版权

VB 同时被 2 个专栏收录

14 篇文章 2 订阅

订阅专栏

VB实践学习

14 篇文章 0 订阅

订阅专栏

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