使用公司
，来求π的近似值，直到最后一项的值小于10-4为止。
【正确答案】：Private Sub Command 1_Click()Dim i As Integer, sum As Single, t As Singlei = 1sum = 0t = 1Dosum = sum + ti = i + 1t = 1/i/iLoop While t>0. 0001Print “ 的近似值”， Sqr（6 * sum）End Sub
使用公司，来求π的近似值，直到最后一项的值小于10-4为止。
- 2024-08-13 03:54:33
- Visual Basic程序设计(07759)
【正确答案】：Private Sub Command 1_Click()Dim i As Integer, sum As Single, t As Singlei = 1sum = 0t = 1Dosum = sum + ti = i + 1t = 1/i/iLoop While t>0. 0001Print “ 的近似值”， Sqr（6 * sum）End Sub