level 3
killer2pig
楼主
求大佬补全S,m,n,sign这四个,实在不会![[泪]](/static/emoticons/u6cea.png)
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

2020年05月14日 02点05分
1
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
