试题

试题 试卷

logo

题型:综合题 题类:常考题 难易度:普通

【bj】高中信息技术综合库——解析算法2

利用格里高利公式 求π,直到最后一项的值小于0.0001为止,输出π的值。

Private Sub Command1_Click()

    Dim Pi As Single, t As Single

    Dim n As Integer, s As Integer

    Pi = 0

    t = 1: n = 1: s =1

    Do While Abs(t) >= 0.0001

        Pi = Pi + t

        n =

        s=

        t = s / n

    Loop

    Text2.Text =

End Sub

举一反三
返回首页

试题篮