'1//n^3
s = 0
t = 15
For i = 1 To t
s = s + 1 / i ^ 3
Next i
MsgBox s
'
'1/n^5
s = 0
t = 15
For i = 1 To t
s = s + 1 / i ^ 5
Next i
MsgBox s