三、综合应用题

在名为 Form1 的窗体上建立一个名为 Txt1 的文本框（其 MultiLine 属性为 True， ScrollBars 属性为 2）和两个名称分别为 Cmd1 和 Cmd2 的命令按钮（其标题分别为“读取” 和“保存”），如图 56-5 所示。

要求程序运行后，如果单击“读取”按钮，则读入 dr1.dat 文件中的 100 个整数，放 入一个数组中（数组下界为 1），同时在文本框 Txt1 中显示出来；如果单击“保存”按钮，则计算其中前 50 个数之和，并把求和结果在文本框 Txt1 中显示出来，同时把结果存入考 生文件夹中的文件 dw2.dat 中。

在考生的文件夹下有标准模块 model.bas，其中的 writedata 过程可以把结果存入指定的文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程。

注意：文件必须存放在考生文件夹中，窗体文件名为  vbsj5.frm ，工程文件名为vbsj5.vbp，计算结果存入 dw2.dat 文件，否则没有成绩。