VB程序设计作业 编写一个函数过程，计算：1+1/2+1/3+…+1/100。
来自： 更新日期：早些时候
用VB编写函数过程，计算s=1+1/2+1/3+…+1/100。运行程序时，单击窗体，输出上述计算结果的值。~
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
大概就应该是这样的，我没有实际测试过，不过也十不离八九了。
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
VB程序设计作业 编写一个函数过程，计算：1+1/2+1/3+…+1/100。视频
相关评论：
private sub Form_Click()
dim i as long
dim s as currency
s=1
for i=2 to 100
s=s+(1/i)
next i
msgbox s
end sub
'这个程序会弹出精确到4位小数的结果，如果需要更高精度的，可以试着把currency换成double。
Option Explicit
Private Sub Command1_Click()
Print MyJ(100)
End Sub
Private Function MyJ(ByVal J As Integer) As Double
Dim i As Integer
Dim JJ As Double
JJ = 0
For i = 1 To J
JJ = JJ + 1 / i
Next i
MyJ = JJ
End Function
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
大概就应该是这样的，我没有实际测试过，不过也十不离八九了。
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
VB程序设计作业 编写一个函数过程，计算：1+1/2+1/3+…+1/100。视频
相关评论：
