Private Sub Command1_Click()Dim i As Integer, n As IntegerDim m As Singlen = InputBox("输入一个数")For i = 1 To nm = m + 1 / (i ^ 2)NextPrint mEnd Sub
