在考生文件夹下有一个工程文件sj5．vbp，把inl．txt和in2．txt文件中的整数分别读入a1和a2数组中。请先装人工程文件sj5．vbp，然后完成以下操作：在名称为Forml的窗体上画3个命令按钮，其名称为Commandl、Command2和Command3，标题分别为“读取数据”，“求和”和“保存”。程序运行后，如果单击“读取数据”按钮，则从inl．txt和in2．txt文件中各读取25个整数，分别放入a1和a2两个数组中；如果单击“求和”按钮，则把两个数组中的对应下标的元素相加，其结果放人第3个数组中(即：第一个数组的第n个元素加上第2个数组的第n个元素，其结果作为第3个数组的第n个元素。这里的n为1，2，…，25)，然后计算第3个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击“保存”按钮，则把所求得的和存入考生文件夹的out5．txt文件中。运行界面如图59—6所示。
【正确答案】正确答案： 本题考查控件的画法、命令按钮的常规使用、FOR循环语句的用法和打开文件的基本操作。 打开文件的基本格式为：Open FileName For Mode As#FileNumber。打开方式主要有Output、Append、Input、Random等几种方式。Output、Append、Input方式打开的文件进行的读写操作都是以顺序方式进行的。其中Output、Append打开的文件主要用来输出数据，与Print#、Write#等方法配合使用；以Input方式打开的文件主要用来输人数据，它与Input#、Line Input#语句配合使用。根据题意，将3个命令按钮添加到窗体中，名称分别是Commandl、Command2和Command3，Caption属性分别为“读取数据”、“求和”和“保存”，设置完成后双击Commandl进入代码窗口，程序中利用FOR循环逐一取出al、a2数组中的元素，并把al、a2中对应下标的元素相加后的结果存入b数组中，补充后的具体代码如下： Dim al(25)As Integer Dim a2(25)As Integer Dim b(25)As Integer Dim total As Long Private Sub Commandl_Click() Open App．Path&"＼inl．txt"For
Input
As#1'打开“inl．txt”文件 Open App．Path&”kin2．txt”For
Input
As#2 '打开“in2．txt”文件 Dim i As Integer Dim temp As Integer For i=1 To 25'利用For循环读人数据 Input#1，al(i) '按顺序读人到数组中
Input#2，a2(i)
'按顺序读入到数组中 Next i Close#1 '关闭文件 Close#2'关闭文件 For i=1 To 25 b(i)=
al(i)+a2(i)
'进行两个数组对应数值求和计算 Next i End Sub Private Sub Command2_Click() Dim str As String str="总和是" total=0 For i=1 To 25
total total+b(i)
'对数组所有数的求和 Next i
str=str
+CStr(total) '将结果放到字符串中 Cls Print str'显示结果 End Sub Private Sub Command3_Click() Open App．Path&"＼out5．txt"For
Output As#3
'打开out5．txt文件 Print#3，total'写入结果 Close#3 '关闭文件 End Sub 单击
【答案解析】