以后补分!vb写出源程序,从1开始计算奇数的平方倒数之和,要求最后一项刚好小于0.0001

Question

以后补分!vb写出源程序,从1开始计算奇数的平方倒数之和,要求最后一项刚好小于0.0001

Answer 1

Private Sub Command1_Click()
Dim sum As Double,i As Integer
i = 1
Do While (1 / (i * i)) >= 0.0001
yy = 1 / (i * i)
sum = sum + yy
i = i + 2
Loop
Print sum
End Sub