用vb做一个斐波那契数列程序

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/04/28 23:24:11

用vb做一个斐波那契数列程序

Option Explicit
Dim FileName As String '文件名变量
Private Sub Form_Load()
Dim FilePath As String
FilePath = App.Path
If Right(FilePath, 1) "\" Then
FilePath = FilePath & "\"
End If
FileName = FilePath & "fb.txt"
End Sub
Private Sub Command1_Click() '建立文件
Dim i As Integer
Dim ifilenum As Integer
ifilenum = FreeFile '获得可用文件号
Open FileName For Output As #ifilenum '以输出方式打开文件
For i = 1 To 15
Write #ifilenum, fb(i) '写入文件
Next
Close #ifilenum
End Sub
Private Function fb(ByVal n As Integer) As Long '求斐波那契数列函数
If n = 1 Or n = 2 Then
fb = 1
Else
fb = fb(n - 1) + fb(n - 2)
End If
End Function
Private Sub Command2_Click() '读出文件到列表框
Dim n As Long, n1 As Long
Dim i As Integer
Dim ifilenum As Integer
ifilenum = FreeFile
Open FileName For Input As #ifilenum '以输入方式打开文件
Do While Not EOF(1)
Input #ifilenum, n1 '从文件读取
n = n + n1
i = i + 1
Loop
Close #ifilenum
'添加到List1
List1.AddItem "合计：" & n
List1.AddItem "平均数：" & n / i
End Su

用vb做一个斐波那契数列程序 VB程序斐波那契数列代码 VB：斐波那契数列第一项是1,第二项是1,用递归算法编写一个程序,求数列前N项的和斐波那契数列 vb按图上的做哦斐波那契数列 matlab程序斐波那契数列如何用VB求和 vb 斐波那契数列问题……急. 用VB求1000以内的素数,水仙花,斐波那契数列. 用java 编写一个程序列出100之内的斐波那契数列!急用.大侠救命啊! 斐波那契数列前30项奇数的个数.求一个c语言程序 c程序：斐波那契数列的余数问题 VB做一个计算九宫格程序