如何编写vb过程 s=1+1/2+1/3+……+1/100
答案:6 悬赏:0
解决时间 2021-03-21 02:28
- 提问者网友：紫柔同归
- 2021-03-20 17:02
如何编写vb过程 s=1+1/2+1/3+……+1/100
最佳答案
- 二级知识专家网友：万千宠爱
- 2021-03-20 17:52
Private Sub Command1_Click()
Print getsum(100)
End Sub
Function getsum(ByVal n As Integer) As Single
Dim i As Integer
Dim sum As Single
For i = 1 To n
sum = sum + 1 / i
Next
getsum = sum
End Function
Print getsum(100)
End Sub
Function getsum(ByVal n As Integer) As Single
Dim i As Integer
Dim sum As Single
For i = 1 To n
sum = sum + 1 / i
Next
getsum = sum
End Function
全部回答
- 1楼网友：一个很哇塞的汉子
- 2021-03-20 21:30
Dim N As Integer
Dim SumInt As Double
For N = 1 To 100
SumInt = SumInt + 1 / N
Next N
Print SumInt '结果:5.18737751763962
- 2楼网友：請叫我丶偏執狂
- 2021-03-20 21:16
s=0
for i=1 to 100
s=s+1/i
next
- 3楼网友：陪我到地狱流浪
- 2021-03-20 19:40
太简单了
Dim i As Double
Dim area As Double
area = 0
For i = 1 To 100
area = area + (1 / i)
Next
MsgBox area
- 4楼网友：摧毁过往
- 2021-03-20 19:22
sub sum(i as integer)
s=0
for i=1 to 200
s=s+1/i
next
print "s=",s
end sub
- 5楼网友：走，耍流氓去
- 2021-03-20 18:50
dim a,b as double
b=0
a=1
for a = 1 to 100
b = b + (1/a)
next
msgbox "结果为" & b
思路是，用一个变量来储存得数，用for把a（表示计算到哪里）加上去
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯