Question

1/1*2+1/2*3+1/3*4+...+1/n*(n+1) VBA编程

Answer 1

Private Sub CommandButton1_Click()
Dim n As Integer, i As Integer, s As Single
n = 1000
For i = 1 To n
s = s + 1 / i / (i + 1)
Next i
Debug.Print "n = "; n, "1/1*2+1/2*3+1/3*4+...+1/n*(n+1) = "; s
End Sub

Answer 2

Option ExplicitSub test() MsgBox calc(3)End SubFunction calc(ByVal num As Integer) Dim i As Integer For i = 1 To num If i Mod 2 = 0 Then calc = calc - i Else calc = calc + i End If Next iEnd Function