[问答题] 在名为Form1的窗体上建立一个文本框(名称为Text1,MultiLlne属性为True，ScrollBars属性为2)和两个命令按钮(名称分别为Cmd1和Cmd2，标题分别为Read和

[问答题] 在名为Form1的窗体上建立一个文本框(名称为Text1,MultiLlne属性为True，ScrollBars属性为2)和两个命令按钮(名称分别为Cmd1和Cmd2，标题分别为Read和Save)，如下图所示。要求程序运行后，如果单击Read按钮，则读入in18.txt文件中的100个整数，放入一个数组中(数组下界为1)；如果单击Save按钮，则挑出100个整数中的所有奇数，在文本框Text1中显示出来，并把所有奇数之和存入考生文件夹中的文件out18.txt中(在考生文件夹下有标准模块model.bas，其中putdata过程可以把一个整型数存入out18.txt文件，考生可以把该模块文件添加到自己的工程中)。注意：程序中对文件的操作统一使用相对路径；文件必须存放在考生文件夹中，窗体文件名为sj5.frm，工程文件名为sj5.vbp；结果存入0ut18.txt文件，否则没有成绩。

参考答案：

①新建一个名为FormA的窗体；②单击工具箱中的TextBox控件图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为TextA，将MultiLine属性设置为True，ScrollBars属性设置为B；③单击工具箱中的CommandButton控件图标，在窗体上拖拉出两个命令按钮，在属性窗口设置该命令按钮名称分别为CmdA和CmdB，Caption分别为Read和Save；④打开代码窗口输入如下代码：Private Sub CmdA_Click()Open App.Path&"in.txt"For InputAs#ATextA.Text=" "For i=A To A00Input#A,a(i)TextA.Text=TextA.Text & a(i) & Space(A)Next iClose#AEnd SubPrivate Sub CmdB_Click()TextA.Text=" "s=0For i=A To A00If a(i)ModB＜＞0 ThenTextA.Text=TextA.Text & a(i) & Space(A)S=s+a(i)End IfNextPut datasEnd Sub⑤按要求保存文件即完成本题。

问题解析:

解析无