请问用递归法怎样写VB语句?还有 VB中的递归法是怎样的?
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/14 15:04:35
请问用递归法怎样写VB语句?还有 VB中的递归法是怎样的?
Fibonacci数列的第一项和第二项为1,以后各项均是前两项的和,请用递归算法编写一程序,求出该数列的前N项.
Fibonacci数列的第一项和第二项为1,以后各项均是前两项的和,请用递归算法编写一程序,求出该数列的前N项.
Private Sub Form_load()
Dim i As Long,n as integer
n=int(val(inputbox("输入Fibonacci数列的项数")))
For i = 1 To n
Print Fibonacci(i)
Next
End Sub
Private Function Fibonacci(n As Long)As Long
If n = 1 Then
Fibonacci = 1
ElseIf n = 2 Then
Fibonacci = 1
Else
Fibonacci = Fibonacci(n-1)+Fibonacci(n-2)
End If
End Function
再问: 为什么语句会不显示数据呢? 我就很奇怪 明明是一样的语句 软件没问题 在我那却不显示 是什么原因?
再答: 把form1的autoredraw属性设为TRUE
Dim i As Long,n as integer
n=int(val(inputbox("输入Fibonacci数列的项数")))
For i = 1 To n
Print Fibonacci(i)
Next
End Sub
Private Function Fibonacci(n As Long)As Long
If n = 1 Then
Fibonacci = 1
ElseIf n = 2 Then
Fibonacci = 1
Else
Fibonacci = Fibonacci(n-1)+Fibonacci(n-2)
End If
End Function
再问: 为什么语句会不显示数据呢? 我就很奇怪 明明是一样的语句 软件没问题 在我那却不显示 是什么原因?
再答: 把form1的autoredraw属性设为TRUE
请问用递归法怎样写VB语句?还有 VB中的递归法是怎样的?
vb用递归法求Fibonacci数列的第20、200项
VB语句问题,用递归的方法,求任意数的阶乘.
VB编程:用递归方法求n阶勒让德多项式的值,递归公式为:
求助vb高手--分别采用递归法和递推法求斐波纳契数列
斐波那契数序列分别用递归法和递推法输出这个数列的前20项VB代码
VB:斐波那契数列第一项是1,第二项是1,用递归算法编写一个程序,求数列前N项的和
VB编程:编递归函数过程,计算1+2+3……..+n的值(n是自然数)
vb编程 用递归函数求数列1,1,2,3,5,8,13,21.的第N项
VB中的语句怎样表达与或否?
计算1!+2!+.+n!用C语言程序中的递归法怎么写呢?
c++用递归法求n阶勒让德多项式的值!