Question

VB的一道题，输入一个整数n，输出1+1/2+1/3+……+1/n的计算结果，请问代码怎么写

Answer 1

Private Sub Command1_Click()
    Dim n As Integer
    Dim sum As Double
    sum = 0
    n = InputBox("请输入n的值")
    For i = 1 To n
        sum = sum + 1 / i
    Next i
    Print sum
End Sub