三、综合应用题

在窗体 Form1 上建立 3 个名称分别为 mnuRead、mnuCalc 和 mnuSave 的主菜单，它 们的标题分别为“读数”、“计算”和“保存”，然后绘制一个名称为 Txt1 的文本框，其 MultiLine 属性设置为 True，ScrollBars 属性设置为 2。

程序运行后，如果执行“读数”命令，则读入 dr1.dat 文件中的 100 个整数，放入一 个数组中，数组的下界为 1；如果执行“计算”命令，则把该数组中小于 50 的元素在文 本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来，如图 57-5 所示； 如果执行“保存”命令，则把所求得的和存入考生文件夹下的 dw2.dat 文件中。 

在考生文件夹下有一个工程文件 vbsj5.vbp，考生可以装入该文件。窗体文件 vbsj5 中 的 ReadData 过程可以把 dr1.dat 文件中的 100 个整数读入 Arr 数组中；而 WriteData 过程 可以把指定的整数值写到考生文件夹指定的文件中（整数值通过计算求得，文件名为 dw2.dat）。

图 57-5

注意：考生不得修改窗体文件中已经存在的程序。保存时，工程文件名仍为 vbsj5.vbp， 窗体文件名仍为 vbsj5.frm。