求助VB题目

来源：百度知道 编辑：UC知道 时间：2024/05/28 13:52:34
w=1/(1*2)+1/(2*3)+1/(3*4)+...+1/((n-1)*n)
如何编程啊，谢谢

Private Sub Form_Click()
Dim i As Integer, n As Integer, v As Single, w As Single
w = 0
n = InputBox("请输入你要计的n值")
For i = 1 To n
v = 1 / (i * (i + 1))
w = w + v
Next i
Print "w="; w
End Sub

VB具体函数我忘记了,但可以这样来理解,仅供参考(函数写错的话,请谅解):
10 dim w=0 ,w1,n
20 input n
30 w1=n(n-1)
w=w+w1
检测W1=0
如果是的话则结束,给出W值
如果不是的话则:
n=n-1
反回到30行
end
多长时间没接触VB了,只能给出思路.

for i=1 to n
j=1/(i*(i+1))
w=w+j
next i
给你中间程序。定义和输出你自己弄吧