2. 计算机
  3. 在考生文件夹下有一个工程文件sj5．vbp，把inl．txt和in2．txt文件中的整数分别读入a1和a2数组中。 请先装人工程文件sj5．vbp，然后完成以下操作： 在名称为Forml的窗体上画3个命令按钮，其名称为Commandl、Command2和C

在考生文件夹下有一个工程文件sj5．vbp，把inl．txt和in2．txt文件中的整数分别读入a1和a2数组中。 请先装人工程文件sj5．vbp，然后完成以下操作： 在名称为Forml的窗体上画3个命令按钮，其名称为Commandl、Command2和C

admin2009-03-26  63
问题 在考生文件夹下有一个工程文件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所示。

    注意：设置适当的控件属性并编写适当的程序代码，将代码窗口中的代码补充完整，使其实现上述功能。考生不得修改窗体文件中已经存在的程序，必须把求得的结果用“保存”按钮存入考生文件夹下的out5．txt文件中，否则没有成绩。存盘时，工程文件名仍为sj5．vbp，窗体文件名仍为sj5．frm。
选项
答案 本题考查控件的画法、命令按钮的常规使用、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 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/IV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)