用VB编写函数过程,计算s=1+1/2+1/3+…+1/100.运行程序时,单击窗体,输出上述计算结果的值.

Private Sub Command1_click()
Dim n As Integer
n = 100
Print f(n)
End Sub
Function f(n)
For i = 1 To n
f = f + 1 / i
Next i

End Function