VB程序设计作业 编写一个函数过程，计算：1+1/2+1/3+…+1/100。

Private Sub Command1_Click()
Dim n As Double
Dim sum As Double
For n = 1 To 100 + 1
sum = sum + 1 / n
Next
Text1.Text = Str(sum)
End Sub

这是楼主要的函数过程（先在窗体上添加一个命令按钮）
Private Sub Command1_Click()
Dim n As Integer
n = 100
f n
End Sub
Function f(n As Integer) As Single
Dim i As Integer
For i = 1 To n
f = f + 1 / i
Next i
Print "1+1/2+1/3+…+1/100结果为：" & f
End Function

dim i
dim sum=0
for i=1 to 100
sun=sum+1/i
next
大概就应该是这样的，我没有实际测试过，不过也十不离八九了。