Question

vb在窗体上显示出1-1/3 +1/5-1/7….前1000项的和的4倍的结果？

Answer 1

Private Sub Command1_Click()

  Print "1-1/3 +1/5-1/7…+1/1999-1/2001=";

  For i = 1 To 1000

    If i Mod 2 = 1 Then

      s = s + 4 / (2 * i - 1)

    Else

      s = s - 4 / (2 * i - 1)

    End If

  Next i

  Print s

End Sub