((-1)^(n-1))*((x^(2n-1))/(2n-1)!),有VB表示这个式子.

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/10 20:21:41
((-1)^(n-1))*((x^(2n-1))/(2n-1)!),有VB表示这个式子.

((-1)^(n-1))*((x^(2n-1))/(2n-1)!),有VB表示这个式子.
((-1)^(n-1))*((x^(2n-1))/(2n-1)!),有VB表示这个式子.

((-1)^(n-1))*((x^(2n-1))/(2n-1)!),有VB表示这个式子.
Private Sub Command1_Click()
Dim x,n
x = 2:n = 5
Print fc1(x,n)
End Sub
Function fc1(x,n)
fc1 = ((-1) ^ (n - 1)) * ((x ^ (2 * n - 1)) / fc2(2 * n - 1))
End Function
Function fc2(n)
Dim i
fc2 = 1
For i = 1 To n
fc2 = fc2 * n
Next
End Function