题型:综合题 题类:常考题 难易度:普通
【bj】高中信息技术综合库——解析算法2
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
试题篮