求会VBA的大神帮我编写2个十分简单的函数的代码 谢谢谢谢谢谢-0*~
1个回答
展开全部
Function fa(x As Double) As Double
fa = (4133) ^ 0.5 * x + 33 * x
End Function
Function fb(x As Long) As Long
Dim temp1
Dim temp2
Dim ending
If x = 0 Or x = 1 Then
fb = x
Else
temp1 = 0
temp2 = 1
For i = 2 To x
ending = temp1 + temp2
temp1 = temp2
temp2 = ending
Next i
fb = ending
End If
End Function
也可以直接公式
=4133^0.5*(A5)+33*A5 第一个
但是第二个斐波那契数列复杂，还是用VBA的函数吧
斐波那契数列的获取程序中用递归的方法更好，不知道你学没学过编程。
Function fc(x As Long) As Long
If x = 0 Or x = 1 Then
fc = x
Else
fc = fc(x - 1) + fc(x - 2)
End If
End Function
也可以生成数列，先输入0和1然后2个相加就行了。
更多追问追答
追问
大神 我还想问一个很弱智的问题 编完VBA后要在excel的表格上输入什么才能让这两个函数运行？比如 我想求第一个函数x=1的值
追答
比如在A2输入 =fa(A1) 就是第一种的公式 后面就是fb fc。你也可以在公式的自定义里找到这几个。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
