这道用VB题目怎么写啊？
我自己写了一个，知道是错误的，不知道怎么修改：
Dim i
Dim s
i = 1 / (1 ^ 2)
If i > 10 ^ -5 Then
For i = 1 / (1 ^ 2) To 1 / (n ^ 2)
s = s + i
Next i
Print s
End If
End Sub
Option ExplicitPrivate Sub Command1_Click()Dim i As IntegerDim n As IntegerDim sum As Singlen = InputBox("")If 1 / n ^ 2 > (10 ^ -5) ThenFor i = 1 To nsum = sum + 1 / i ^ 2NextPrint sumEnd IfEnd Sub...
