Private Sub Command1_Click() Dim i&, s! s = 2 For i = 1 To 1000 s = s * (((2 * i) ^ 2) / ((2 * i - 1) * (2 * i + 1))) If i = 10 Then Print Tab(5); "n=10"; Tab(15); "π近似值="; Format(s, "0.00000") If i = 100 Then Print Tab(5); "n=100"; Tab(15); "π近似值="; Format(s, "0.00000") If i = 1000 Then Print Tab(5); "n=1000"; Tab(15); "π近似值="; Format(s, "0.00000") Next i End Sub