求大佬补全S,m,n,sign这四个,实在不会Private
vb吧
全部回复
仅看楼主
level 3
killer2pig 楼主
求大佬补全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
2020年05月14日 02点05分 1
level 3
killer2pig 楼主
顶一下!
2020年05月14日 03点05分 2
level 3
killer2pig 楼主
顶一下[泪]
2020年05月14日 06点05分 3
level 11
n/n!
这个表达式也真让人喷饭!
不能写作
1/(n-1)!
吗?
2020年05月14日 06点05分 4
level 15
S = 0 '这句在VB中可以省略,因为变量会自动初始化为0,无需额外初始化
n = Val(Text1.Text)
m = m * i
sign = -sign
另外,同意楼上的吐槽
2020年05月14日 08点05分 5
1