UC知道有关于vb语言中编数学公式
来源：百度知道 编辑：UC知道 时间：2024/05/29 17:25:24
像a(n)=x^n/(2n-1)!,a(n)=x^(n-1)/n!
用vb来表达是怎样的？
它们是怎样设值的，有些题目转换数学公式很难理解~
例如，数学表达式1-2/2!+3/3!-4/4!+-----+(-1)^(n+1)*n/n!
Private Sub Form_Click()
Dim n As Integer, p As Integer, s As Integer, q As Integer, i As Integer
n = InputBox("请输入")
s = 0: p = -1: q = -1
For i = 1 To n
p = -p:q=_______
s=_________
________
Print s
End Sub
和计算变量x和n的数值用输入对话框输入：
sinx=x/1-x^3/3!+x^5/5!+---+(-1)^(n-1)*x^(2*n-1)/(2*n-1)!
向这2道题要怎么分析啊？
用vb来表达是怎样的？
它们是怎样设值的，有些题目转换数学公式很难理解~
例如，数学表达式1-2/2!+3/3!-4/4!+-----+(-1)^(n+1)*n/n!
Private Sub Form_Click()
Dim n As Integer, p As Integer, s As Integer, q As Integer, i As Integer
n = InputBox("请输入")
s = 0: p = -1: q = -1
For i = 1 To n
p = -p:q=_______
s=_________
________
Print s
End Sub
和计算变量x和n的数值用输入对话框输入：
sinx=x/1-x^3/3!+x^5/5!+---+(-1)^(n-1)*x^(2*n-1)/(2*n-1)!
向这2道题要怎么分析啊？
这不就是需要乘方和阶乘嘛，先做一个阶乘的函数
Function JC(n as long) as long
Dim i as long
JC=1
if n > 0 then
for i = n to 1 step -1
JC=JC*i
Next
end if
End function
你看上面这个Function 就可以计算阶乘了，然后再计算你要求的那个
比如a(n)=x^n/(2n-1)!吧
先给x赋值，可以用Inputbox之类的
a(n)=x^n / JC(2n-1) 就这样就可以了，具体看n和x是多少了。
对于阶乘貌似不能直接运算。需要自己写函数。
其他的运算可以使用microsoft script control控件，该控件支持表达式计算。
a(n)=x^n/(2n-1)!
建立标准EXE工程
添加3个文本框
添加1个Command1
将下边的代码复制进去即可
Private Sub Command1_Click()
Dim n As Double
Dim x As Double
Dim o As Double
n = Val(Text1.Text)
x = Val(Text2.Text)
o = (2 * n) - 1
o = (x ^ n) / jiec(o)
Text3.Text = o
End Sub
Public Function jiec(max As Double) As Double
Dim i As Double
Dim a As Double
Dim c As Double
a = max
c = max
max = max - 1
For i = 1 To max
c = c - 1
a = a * c
Nex