用VB编程求1/2+2/3+3/4+4/5…… 前50项之和.（用for语句编程）

Dim s As Single
Dim i As Integer
For i = 1 To 50
s = s + i / (i + 1)
Next
MsgBox "前50项和为" & s