Vb经典例题集萃.docVIP

Vb经典例题集萃(未来教育) 月宫里的白兔 三、综合应用题 在窗体Form1上建立一个文本框和两个命令按钮，其中：文本框的名称为Text1，MultiLine属性为True，ScrollBars属性为2；命令按钮的名称分别为Cmd1和Cmd2，标题分别为Read和Save，如图5-5所示。 图5-5 要求程序运行后，如果单击Read按钮则读入in5.txt文件中的100个整数，放入一个数组中（数组下界为1），并在文本框中显示出来；如果单击Save按钮，则挑出100个整数中的所有偶数，在文本框Text1中显示出来，并把所有偶数之和存入考生文件夹中的文件out5.txt中。 在考生文件夹中已有标准模块mode1.bas，其中putdata过程可以把一个整数存入out5.txt文件，考生可以把该模块文件添加到自己的工程中。 注意：程序中对文件的操作统一使用相对路径；存盘时文件必须存放在考生文件夹中，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm，结果存入out5.txt文件，否则没有成绩。 主程序代码：（带讲解） Dim a(100) As Integer ‘定义类型（变体） Private Sub Cmd1_Click() Open App.Path \in5.txt For Input As #1 ’打开运行中的文件 Text1.Text =