VB程序设计教程(第四版)龚沛曾-实验8-2

实验8-2

将斐波那契数列的前10项写入文件Fb .dat，然后从该文件将数据读取出来并计算合计和平均数，最后送入列表框。

要求：文件数据格式如2.8.2所示，列表框中项目格式如图2.8.3所示。

解题，画2个按钮，1个列表框控件，代码如下： Private Sub Command1_Click()

Dim fib%(0 To 9), i% Open “c:\fb.dat” For Output As #1 For i = 0 To 9 If i = 0 Or i = 1 Then fib(i) = i Else fib(i) = fib(i – 1) + fib(i – 2) End If Print #1, “””Fib(” & i & “)””,” & fib(i) Next i Close #1 i = Shell(“NOTEPAD.exe” + ” c:\fb.dat”, vbNormalNoFocus) End Sub

Private Sub Command2_Click() Dim st$, n%, sum% Open “c:\fb.dat” For Input As #1 Do While Not EOF(1) Input #1, st, n sum = sum + n List1.AddItem st & “=” & n Loop Close #1 List1.AddItem “合计：” & sum List1.AddItem “平均：” & sum / 10 End Sub

版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。

发布者：全栈程序员栈长，转载请注明出处：https://javaforall.cn/185172.html原文链接：https://javaforall.cn