求解VB题vb题，单击窗体,求1+1/2+1/3....+1/n之和，并将结果显示在窗体上，n为任意正整数，其值通过inputbox函数输

Question

求解VB题
vb题，单击窗体,求1+1/2+1/3....+1/n之和 ，并将结果显示在窗体上，n为任意正整数，其值通过inputbox函数输

Answer 1

Private Sub Form_Click()
Dim i As Double, n, m
n = Val(InputBox("请输入一个正整数", "请求数据"))
If n <> 0 Then
For m = 1 To n
i = i + 1 / m
Next m
MsgBox "“1+1/2+1/3....+1/n”的最终结果(n=" & n & ") =" & Format(i, "0.00000000")
Else
MsgBox "您还没有输入任何数据哦"
End If
End Sub