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

大家好，又见面了，我是你们的朋友全栈君。如果您正在找激活码,请点击查看最新教程,关注关注公众号 “全栈程序员社区” 获取激活教程,可能之前旧版本教程已经失效.最新Idea2022.1教程亲测有效,一键激活。

Jetbrains全系列IDE稳定放心使用

实验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