在名为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 Input
As#A
TextA.Text=" "
For i=A To A00
Input#A,a(i)
TextA.Text=TextA.Text & a(i) & Space(A)
Next i
Close#A
End Sub
Private Sub CmdB_Click()
TextA.Text=" "
s=0
For i=A To A00
If a(i)ModB＜＞0 Then
TextA.Text=TextA.Text & a(i) & Space(A)
S=s+a(i)
End If
Next
Put datas
End Sub
⑤按要求保存文件即完成本题。