编写一个程序，输入某仓库的货物数据，建立—个顺序文件。每次从键盘上输入一种货物的数据，包括货物号、名称、单价、进库日期和数量。建立文件后，输出全部内容。

    解：该题与前一题类似，其记录结构如下。
货物号     货物名     单价     进库日期     货物数量
 ……          ……        ……          ……            ……

按以下步骤操作。

(1)执行“工程”菜单中的“添加模块”命令，在工程中添加一个新的标准模块，然后在该模块定义如下记录类型和全局变量：
(2)在窗体上画三个命令按钮，其标题分别设質为“输人数据”、“输出数据”和“退出。
(3)编写第一个命令按钮的事件过程:
Private Sub Command1_Click()
    Num = InputBox("请输人货物种类数")
    Num = CInt(Num)
    n = n + Num
    ReDim bole_stock(Num) As bole_Info
    Open "d:\BoleI.txt" For Append As #1
    For i = 1 To Num
        bole_stock(i).bole_num = InputBox("请输人货物号")
        bole_stock(i).bole_name = InputBox("请输人货物名称")
        bole_stock(i).price = InputBox("请输人货物单价")
        bole_stock(i).stock_date = InputBox("请输入进库日期")
        bole_stock(i).amount = InputBox("请输入货物数量")
        Write #1, bole_stock(i).bole_num, _
              bole_stock(i).bole_name, _
              bole_stock(i).price, _
              bole_stock(i).stock_date, _
              bole_stock(i).amount
    Next i
    Close #1
    Open "d:\bole.txt" For Output As #1
    Print #1, n
    Close #1
End Sub

(4)编写第二个命令按钮的事件过程：
Private Sub Command2_Click()
    Open "d:\bole.txt" For Input As #1
    Input #1, n
    Close #1

    ReDim bole_stock(n) As bole_Info
    Open "d:\BoleI.txt" For Input As #2
    x = 1
    Print "货物号  "; "货物名  "; "单价  "; "进库日期   "; "货物数"
    Print
    Do While Not EOF(2)
        Input #2, bole_stock(i).bole_num, _
              bole_stock(i).bole_name, _
              bole_stock(i).price, _
              bole_stock(i).stock_date, _
              bole_stock(i).amount

        Print bole_stock(i).bole_num; "     "; _
              bole_stock(i).bole_name; "     "; _
              ; bole_stock(i).price; "     "; _
              bole_stock(i).stock_date; "     "; _
              bole_stock(i).amount
        x = x + 1
    Loop
    Close #2
End Sub

(5)编写第三个命令按钮的事件过程：
Private Sub Command3_Click()
    End
End Sub

程序运行后，单击“输人数据”按钮，即可根据提示输人相应的数据。输入后单击“输出数据”按钮，将在窗体上输出结果，如下图所示。

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

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