神马品牌网神经中毒有哪些表现?:急求1/2×1+1/2×3+1/3×4+……+1/50×51求值的VB程序代码！！不胜感激!!
来源：百度文库 编辑：神马品牌网 时间：2024/05/12 13:58:57
非常急！谢谢各位了
Dim I As Integer
Dim X As Single
X = 0
For I = 1 To 51
X = X + 1 / I * (I + 1)
Next I
'X是计算结果
1/2×1+1/2×3+1/3×4+……+1/50×51求值的VB程序代码：
Dim i As Integer
Dim sum As Double
sum = 0
For i = 1 To 51
sum = sum + 1 / i * (i + 1)
Next i
MsgBox sum '弹出消息框
'这里sum就是所要求的值