编写一个程序，用来处理活期存款的结算事务。程序运行后，先由用户输入一个表示结存的初值，然后进入循环，询问是接收存款还是扣除支出。每次处理之后，程序都要显示当前的结存，并把它存入一个文件中。要求输出的浮点数保留小数点后两位。

    解：编写程序如下：

Private Sub Form_Click()

    Open "d:\delosit.txt" For Output As #1
    initVal = InputBox("", "请输入结存初值")
    initVal = Val(initVal)
    initVal = Format(initVal, "0.00")
    Print #1, "结存初值为"; initVal
    cl = Chr(13) & Chr(10)
    Do
        answer = InputBox("请选择" & cl & "1.接收存款" & cl & _
                 "2.扣除支出" & cl & "3.退出", "选择")
        If answer = 1 Then
            currVal = InputBox("请输入存款数")
            currVal = Val(currVal)
            initVal = initVal + currVal
            initVal = Format(initVal, "0.00")
            Print "存入"; currVal; "当前结存数"; initVal
            Print #1, "存入"; currVal; "当前结存数"; initVal
        ElseIf answer = 2 Then
            currVal = InputBox("请输入支出数")
            currVal = Val(currVal)
            initVal = initVal - currVal
            initVal = Format(initVal, "0.00")
            Print "支出"; currVal; "当前结存数"; initVal
            Print #1, "支出"; currVal; "当前结存数"; initVal
        Else
            Exit Do
        End If
    Loop
    Close 1
   
End Sub

运行此程序，单击窗体，根据显示的输入对话框输入所需要的数据，程序即可以执行存款，支出等操作，并即时显示在窗体上，同时也会把数据写入到delosit.txt这个文件中。

运行此程序，输入图中所示数据，效果如下图所示。


运行此程序后，delosit.txt这个文件的跟窗体显示的是一样的，即：
结存初值为：35847.64
存入 12000 ，当前结存为：47847.64
存入 3765.5 ，当前结存为：51613.14
支出 4000 ，当前结存为：47613.14
存入 2000 ，当前结存为：49613.14
存入 18000 ，当前结存为：67613.14
支出 3428 ，当前结存为：64185.14

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

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