1。用π/4＝1-1/3+1/5-1/7+……级数求π的近似值
2 使用INOUTBOX函数，输入10个数，计算累加和平均值
參考答案:第一题
Private Sub Form_Load()
Dim pi
For i = 1 To 1000
If i Mod 2 <> 0 Then
s1 = s1 + 1 / i
Else
s2 = s2 + 1 / i
End If
Next
MsgBox (s1 - s2) * 4
End Sub
1。用π/4＝1-1/3+1/5-1/7+……级数求π的近似值
2 使用INOUTBOX函数，输入10个数，计算累加和平均值
參考答案:第一题
Private Sub Form_Load()
Dim pi
For i = 1 To 1000
If i Mod 2 <> 0 Then
s1 = s1 + 1 / i
Else
s2 = s2 + 1 / i
End If
Next
MsgBox (s1 - s2) * 4
End Sub