VBA Need help creating a loop?

[nirvana0506]

Hi, I'm having trouble with the following question. Any help is very much appreciated.


Write a loop that sums the first 10 terms for the two series below?

∞
Σ1/n

n=1
.............................

∞
Σ1/n^2

n=1

 

[crazydragon84]

something like this?

Sub test_me()
Dim n as byte, Sum_num as double
For n = 1 to 10

Sum_Num = Sum_num + 1/n

next n

msgbox Sum_Num
End Sub

And just replace the 1/N but (1/N)^2 for the second.