VB求s=1+2/(1+2)+3/(1+2+3)+4/(1+2+3+4)+.+100/(1+2+3+.+100)的值

题目

VB求s=1+2/(1+2)+3/(1+2+3)+4/(1+2+3+4)+.+100/(1+2+3+.+100)的值
我用VB求这个式子的值：列了一个式子
Private Sub Command1_Click()
s = 1: i = 1: s1 = 1
For i = 1 To 100
s1 = s1 + 1
s = s + (i + 1) / (s1 + i + 1)
Next i
Label2 = s
End Sub
问一下错了吗?错在哪里了?

答案

你的程序的问题先从第一次循环开始看i=1s1=s1+1 '执行完成s1=2s = s + (i + 1) / (s1 + i + 1) '执行完成s=1+2/(2+1+1) 这明显与题意相差太多了.改动如下s = 1: i = 1: s1 = 0For i = 1 To 100s1 = s1 + is =...