使用公司
，来求π的近似值，直到最后一项的值小于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为止。
使用公司，来求π的近似值，直到最后一项的值小于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
