VB程序设计，帮忙啊，简单点，一定要根据要求来啊

来源：百度知道 编辑：UC知道 时间：2024/07/08 01:17:35
1.编程序求表达式s=x/2!+x^3/4!+...+x^(2n-1)/(2n)!的值，并在窗体上输出。
(1).变量x与n的值在窗体单击事件中用InputBox()函数输入，通过调用函数过程
s实现题目要求。
(2).求表达式的值用函数过程Function s(n%,x!) As Single完成。

Private Sub Form_Click()
Dim x As Single
Dim n As Integer
x = InputBox("请输入x：")
n = InputBox("请输入n：")
Print s(n, x)
End Sub
Private Function s(n%, x!) As Single
s = 0
Dim XX As Single
Dim NN As Long
Dim i As Integer
Dim j As Integer
For i = 1 To n
XX = 1
NN = 1
For j = 1 To (2 * i - 1)
XX = XX * x '计算X的（2N-1）次幂
NN = NN * j '计算（2N-1）！
Next
NN = NN * (2 * i) '计算（2N）！
s = s + XX / NN
Next
End Function