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

[问答题] 在名为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 Input3 As#14 Text1.Text=""5 For i=1 To 1006 Input#1，a(i)7 Text1.Text=Text1.Text & a(i) &Space(1)8 Next i9 Close #110 End Sub11 Private Sub Cmd2_Click( )12 Text1.Text=""13 S=014 For i=1 To 10015 If a(i)Mod2＜＞0 Then16 Text1.Text=Text1.Text & a(i) &Space(1)17 s=s+a(i)18 End If19 Next20 putdatas21 End Sub第五步：按要求保存文件即完成本题。

问题解析:

本题主要考查数据的输入输出及Visual Basic的控制结构及函数设计。