永发信息网

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

答案:1  悬赏:60  手机版
解决时间 2021-05-11 15:42
用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


我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
行政问责制度作为一种责任追究制度,其政治学
为什么人会喜欢异性呢?
孕妇一天吃四片钙片多吗
为什么她一下对我好,一下不好,好痛苦帮帮忙
南京索爱手机赏秀U1 现在南京实体店报价多少
用烤箱怎么烤鸡翅好吃,烤鸡翅的做法用烤箱烘
手机自动发送短信出去是怎么回事?
QQ表情保存不起了?
腾讯游戏 为什么通知我有朋友送给我老虎花的
女人也需要关心的句子,15句关于天才的名言
最近什么游戏很火暴
国历今年11,03号生日,农历是几号呢?
成龙PK释小龙
90后的爱情是什么样子的阿。
陌生朋友的句子,朋友的感情变得像陌生人一样
推荐资讯
无法访问光驱 由于I/O设备错误,无法运行此项
怎样不被人误解
我的毕业论文引用了论语•学而的句子,
-5是不是5的倍数
请大家推荐几款CDMA手机
求sorry seems to be the hardest word 的空
求一篇感谢词!
移动卡的问题?
进富士康男身高不够一米六三让进吗?
成语过犹不及什么意思,“过”的近义词
DNF移动速度?
看歌词找歌,古巨基的
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?