大师作文网斐波那契数列 vb按图上的做哦
来源：学生作业帮 编辑：大师作文网作业帮 分类：综合作业 时间：2024/11/10 08:39:45
斐波那契数列 vb
按图上的做哦
按图上的做哦
'计算按钮事件 编辑框名默认
Dim arr(), rd() As Integer '定义存放数列的数组
Dim i, a, b, n, sum As Integer
a = 1
b = 1
n = Val(Text1.Text) '输入求数列的项数
If n = 0 Then Exit Sub '排除0
ReDim arr(n), rd(n) As Integer
arr(1) = 1
arr(2) = 1
For i = 3 To n
arr(i) = arr(i - 1) + arr(i - 2) '产生数列
Next i
Text2.text=arr(n)'
Dim arr(), rd() As Integer '定义存放数列的数组
Dim i, a, b, n, sum As Integer
a = 1
b = 1
n = Val(Text1.Text) '输入求数列的项数
If n = 0 Then Exit Sub '排除0
ReDim arr(n), rd(n) As Integer
arr(1) = 1
arr(2) = 1
For i = 3 To n
arr(i) = arr(i - 1) + arr(i - 2) '产生数列
Next i
Text2.text=arr(n)'