计算1/(1*2)+1/(2*3)+1/(3*4)vb编程代码啊啊啊1/(1*2)+1/(2*3)+1/(3*4)+...+1/(N*(N+1))

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 22:49:04
计算1/(1*2)+1/(2*3)+1/(3*4)vb编程代码啊啊啊1/(1*2)+1/(2*3)+1/(3*4)+...+1/(N*(N+1))

计算1/(1*2)+1/(2*3)+1/(3*4)vb编程代码啊啊啊1/(1*2)+1/(2*3)+1/(3*4)+...+1/(N*(N+1))
计算1/(1*2)+1/(2*3)+1/(3*4)vb编程代码啊啊啊
1/(1*2)+1/(2*3)+1/(3*4)+...+1/(N*(N+1))

计算1/(1*2)+1/(2*3)+1/(3*4)vb编程代码啊啊啊1/(1*2)+1/(2*3)+1/(3*4)+...+1/(N*(N+1))
Private Sub Command1_Click()
Dim n As Double
n = Val(InputBox("N="))
For i = 1 To n
s = s + 1 / (n * (n + 1))
Next i
MsgBox "所求的和为:" & s
End Sub