Private Sub Command1_Click()Dim s As Double, a As DoubleDim cnt As IntegerConst n As Integer = 10 '计算前10项a = 1 / 3cnt = 1Dos = s + acnt = cnt + 1a = -(-1) ^ cnt * a * cnt / (2 * cnt + 1)Loop Until cnt = n + 1MsgBox sEnd Sub...
Private Sub Form_Click()n = 10 '前10项s = 0For i = 1 To nc = 1For j = 1 To ic = c * j / (2 * j + 1)Nextc = c * (-1) ^ (i + 1)s = s + cNextPrint sEnd Sub...