2 ×[-（ 3/2）]×（4/3）×[-（5/4）]……×[-（51/50）]

-27 对否
我用vb6
Private Sub Command1_Click()
Dim ans As Integer
For i = 2 To 50 Step 2
ans = ans + (-(i + 1) / i) * ((i + 2) / (i + 1))
Next i
MsgBox ans
End Sub