在名为Form1的窗体上建立一个文本框(名称为Text1，MultiLine属性为True，ScrollBars属性为2)和两个命令按钮(名称分别为Cmd1和Cmd2，标题分别为Read和Save)，如下图所示。
要求程序运行后，如果单击Read按钮，则读入in18.txt文件中的100个整数，放入一个数组中(数组下界为1)；如果单击Save按钮，则挑出100。个整数中的所有奇数，在文本框Text1中显示出来，并把所有奇数之和存入考生文件夹中的文件out18.txt中(在考生文件夹下有标准模块model.has，其中putdata过程可以把一个整型数存入out18.txt文件，考生可以把该模块文件添加到自己的丁程中)。注意：程序中对文件的操作统一使用相对路径；文件必须存放在考生文件夹中，窗体文件名为sjt5.frm，工程文件名为sjt5.vbp；结果存入out18.txt文件，否则没有成绩。
参考答案：
第一步：新建一个名为Form1的窗体。
第二步：单击工具箱中的TextBox控件图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为Text1，将MultiLine属性设置为True，ScrollBars属性设置为2。
第三步：单击工具箱中的CommandButton控件图标，在窗体上拖拉出两个命令按钮，在属性窗口设置该命令按钮名称分别为Cmd1和Cmd2，Caption分别为Read和Save。
第四步：打开代码窗口输入如下代码：
1 Private Sub Cmd1_Click( )
2 Open App.Path &"\in.txt" For Input
3 As#1
4 Text1.Text=""
5 For i=1 To 100
6 Input#1，a(i)
7 Text1.Text=Text1.Text & a(i) &Space(1)
8 Next i
9 Close #1
10 End Sub
11 Private Sub Cmd2_Click( )
12 Text1.Text=""
13 S=0
14 For i=1 To 100
15 If a(i)Mod2＜＞0 Then
16 Text1.Text=Text1.Text & a(i) &Space(1)
17 s=s+a(i)
18 End If
19 Next
20 putdatas
21 End Sub
第五步：按要求保存文件即完成本题。
解析：
本题主要考查数据的输入输出及Visual Basic的控制结构及函数设计。