题库 高中信息

题干

利用格里高利公式 求 ,直到最后一项的值小于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 + s * 1 / n
n =___________
s= ___________
t = s / n
Loop
Text2.Text =___________
End Sub
上一题 下一题 0.99难度 填空题 更新时间:2019-05-05 08:49:10

答案(点此获取答案解析)