UC知道这是什么vb代码啊，怎么修改啊？
来源：百度知道 编辑：UC知道 时间：2024/06/05 02:00:11
Private Sub Command1_Click()
Dim y, j As Double
Dim m, sign As Integer
sign = 1
For m = 1 To 100 Step 2
y = y + sign * 1 / fac(m)
'y = y + sign * 1 / fac1(m)
sign = -sign
Next m
Print y
End Sub
我是初学者，上课都没听，这段怎么改成自由输入数字，得到相应的结果？
忘了写了 补充：Function fac(ByVal n As Integer) As Double
Dim f As Double
Dim i As Integer
f = 1
For i = 1 To n
f = f * i
Next i
fac = f
End Function
Dim y, j As Double
Dim m, sign As Integer
sign = 1
For m = 1 To 100 Step 2
y = y + sign * 1 / fac(m)
'y = y + sign * 1 / fac1(m)
sign = -sign
Next m
Print y
End Sub
我是初学者，上课都没听，这段怎么改成自由输入数字，得到相应的结果？
忘了写了 补充：Function fac(ByVal n As Integer) As Double
Dim f As Double
Dim i As Integer
f = 1
For i = 1 To n
f = f * i
Next i
fac = f
End Function
Private Sub Command1_Click()
Dim y, j As Double
Dim m, sign As Integer,a as integer
sign = 1
a=cint(inputbox("请输入一个整数"))
For m = 1 To a Step 2
y = y + sign * 1 / fac(m)
'y = y + sign * 1 / fac1(m)
sign = -sign
Next m
Print y
End Sub
没办法确定结果，因为代码里面包括一个自定义的函数fac
FAC是什么函数？
fac是用来求N!，即N阶乘，即1*2*3*....*N