在名称为Form1的窗体上画一个文本框，名称为Text1，MultiLine属性为True，ScroUBars属性为2；两个命

令按钮，名称分别为Cmdl和Omd2，标题分别为"读入数据"和"计算保存"，如图2-6所示。要求程序运行后，如果单击"读入数据"按钮，则读入in.txt文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击"计算保存"按钮，则计算数组中大于或等于400并且小于800的所有数之和，并将结果在文本框Text1中显示出来，同时把结果存入考生文件夹的result.txt文件中（在prog.bas中的putdata过程可以把结果存入result.txt文件）。

图2-6

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