求大佬补全S，m，n，sign这四个，实在不会
Private Sub Command1_Click()
Dim n As Integer, i As Integer, sign As Integer
Dim S As Double, m As Double
S =
sign = 1
m = 1
n =
For i = 1 To n
m =
S = S + sign * i / m
sign =
Next i
Text2 = S
End Sub

顶一下！

顶一下