作业帮 > 综合 > 作业

斐波那契数列 vb按图上的做哦

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/04/28 03:22:32
斐波那契数列 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)'