某单位全年每次报销的经费（假定为整数）存入在一个磁盘文件中，试编写一个程序，从该文件中读出每次报销的经费，计算其总和，并将结果存入另一个文件中。

     解：假定存入报销经费的文件为outlayI.txt，位置在D盘根目录，其内容为：
3635
1476
3267
4356
8542
7564
8754
3614
6547
12435
2314
6755
69259

编写如下事件过程：

Private Sub Form_Click()
Me.Cls
    Open "d:\outlayI.txt" For Input As #1
    Print "从文件读出每次报销经费，显示并相加："

    Do While Not EOF(1)
        Input #1, n
        Print n
        Sum = Sum + n
    Loop
    Close 1
    Print
    Print "把计算结果（总和）写入文件(d:\outlayO.txt)。"
    Print Sum
    Open "d:\outlayO.txt" For Output As #1
    Print #1, Sum
    Close 1

    MsgBox "已经在d盘根目录里建立了 outlayO.txt 文件(计算结果已经写入这个文件)，点“确定”将打开它。"
    Shell "c:\windows\notepad.exe " & "d:\outlayO.txt", vbNormalFocus

End Sub

运行此程序，结果如下图所示。


visual basic 程序设计教程第4版 课后答案 刘炳文 编著

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_14.7.html