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

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/30 21:57:14
斐波那契数列 vb按图上的做哦
xQn@HlJ آ4QDy/(Šh5c[ HtŌΙ{sgrz8o%!I_m%G_/&I/ t\lh iYb fɍ$׏H$Ѯh(GR%!R^FEi:ёaX5&!Y:j:&+Xs궬cj V US5RW{b/Eӳ,,&(15vdhTCH-H]0 1)(b?#LWg'L~LG;iYz6<s r !-Wj^ldn%_Qђ`2ܜ{YpH*D?\ (GdW UKË2Q/8S僗L KsdC;w#a6"|oɄ\

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

斐波那契数列 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)'