VB 求前N项和急

答案:3 悬赏:20 手机版

解决时间 2021-02-07 08:51

提问者网友：ミ烙印ゝ
2021-02-07 01:48

求下面数列所得前N项和保留4位小数数列是1/（1+2）1/（1+2+3）1/（1+2+3+4）

求下面数列所得的得数保留4位小数数列是1/（1+2）1/（1+2+3）1/（1+2+3+4）后面以此类推

最佳答案

五星知识达人网友：轮獄道
2021-02-07 03:18

function sum(num as integer)
sum=(1+num)*num/2
end function

private sub command1_click()
dim i as integer
dim s as double
s=0
for i=1 to n
s=s+1/sum(i+1)
next
msgbox round(s,4)
end sub

private sub command2_click()
dim i as integer
for i=1 to n
msgbox round(1/sum(i+1),4)
end sub

全部回答

1楼网友：人间朝暮
2021-02-07 05:23

private sub command1_click() dim n as integer dim i as integer dim sum as double n = inputbox("输入前多少项之合？") for i = 1 to n sum = sum + i ^ 3 next i print sum end sub

2楼网友：渡鹤影
2021-02-07 04:10

Private Sub Command1_Click() Dim n As Integer, i As Integer, mysum As Single, p As Single n = Val(InputBox("请输入一个数：")) For i = 1 To n mysum = mysum + i p = Format((1 / (mysum + i + 1)), "0.0000") Next i MsgBox p End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息

VB 求前N项和 急

VB 求前N项和急