Question

用vb计算1+1/2+1/3。。。+1/n

Answer 1

这是最简单的完整程序啦，只有两句，而且不用任何控件。

Private Sub Form_Click()
Print H(Int(Val(InputBox("一个大于零的整数", "输入", 100))))
End Sub

Private Function H(N As Integer) As Single
If N = 0 Then H = 0 Else H = H(N - 1) + 1 / N
End Function

已经运行过了。

Answer 2

private sub command1_click()
dim i,k
n=inputbox("请输入数字")
for i=1 to n
k=k+1/i
next
msgbox k
end sub

Answer 3

for i= 1 to n
s=s+1/i
next n

Answer 4

d