作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/11/07 15:36:26
用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