[计算机类试卷]国家二级（VB）机试模拟试卷19及答案与解析.doc

《[计算机类试卷]国家二级（VB）机试模拟试卷19及答案与解析.doc》由会员分享，可在线阅读，更多相关《[计算机类试卷]国家二级（VB）机试模拟试卷19及答案与解析.doc（29页珍藏版）》请在麦多课文档分享上搜索。

1、国家二级（ VB）机试模拟试卷 19及答案与解析 一、选择题 1 下列叙述中正确的是 ( )。 （ A）算法就是程序 （ B）设计算法时只需要考虑数据结构的设计 （ C）设计算法时只需要考虑结果的可靠性 （ D）以上三种说法都不对 2 下列叙述中正确的是 ( )。 （ A）有一个以上根结点的数据结构不一定是非线性结构 （ B）只有一个根结点的数据结构不一定是线性结构 （ C）循环链表是非线性结构 （ D）双向链表是非线性结构 3 下列关于二叉树的叙述中，正确的是 ( )。 （ A）叶子结点总是比度为 2的结点少一个 （ B）叶子结点总是比度为 2的结点多一个 （ C）叶子结点数是度为 2的结点

2、数的两倍 （ D）度为 2的结点数是度为 1的结点数的两倍 4 软件生命周期中的活动不包括 ( )。 （ A）市场调研 （ B）需求分析 （ C）软件测试 （ D）软件维护 5 某系统总体结构图如下图所示： 该系统总体结构图的深度是 ( )。 （ A） 7 （ B） 6 （ C） 3 （ D） 2 6 程序调试的任务是 ( )。 （ A）设计测试用例 （ B）验证程序的正确性 （ C）发现 程序中的错误 （ D）诊断和改正程序中的错误 7 F列关于数据库设计的叙述中，正确的是 ( )。 （ A）在需求分析阶段建立数据字典 （ B）在概念设计阶段建立数据字典 （ C）在逻辑设计阶段建立数据字典

3、（ D）在物理设计阶段建立数据字典 8 数据库系统的三级模式不包括 ( )。 （ A）概念模式 （ B）内模式 （ C）外模式 （ D）数据模式 9 有三个关系 R、 S和 T如下： 则由关系 R和 s得到关系 T的操作是 ( )。 （ A）自然连接 （ B）交 （ C）投影 （ D）并 10 下列选项中属于面向对象设计方法主要特征的是 ( )。 （ A）继承 （ B）自顶向下 （ C）模块化 （ D）逐步求精 11 以下合法的 VB变量名是 ( )。 （ A） #l （ B） 123 a （ C） string （ D） x 123 12 以下关丁 VB的叙述中，错误的是 ( )。 （ A）

4、 VB采用事件驱动方式运行 （ B） VB既能以解释方式运行，也能以编译方式运行 （ C） VB程序代码中，过程的书写顺序与执行顺序无关 （ D） VB中一个对象对应一个事件 13 有如下数据定 义语句： Dim X， Y As Integer 以上语句表明 ( )。 （ A） x、 Y均是整型变量 （ B） x是整型变量， Y是变体类型变量 （ C） x是变体类型变量， Y是整型变量 （ D） x是整型变量， Y是字符型变量 14 以下于控件数组的叙述中，正确的是 ( )。 （ A）数组中各个控件具有相同的名称 （ B）数组中可包含小同类型的控件 （ C）数组中各个控件具有相同的 Index

5、 属性值 （ D）数组元素不同，可以响应的事件也不同 15 以下关于 VB文件的叙述中，错误 的是 ( )。 （ A）标准模块文件小属于任何一个窗体 （ B）工程文件的扩展名为 frn （ C）一个工程只有一个工程文件 （ D）一个工程可以有多个窗体文件 16 设 x为一整型变量，且情况语句的开始为： SelectCase x，则不符合语法规则的case 子句是 ( )。 （ A） Case ls20 （ B） Case 1 To 10 （ C） Case 050， Int(a 3)， a Mod 2) 当 a=52时， x的值是 ( )。 （ A） 0 （ B） 1 （ C） 17 （ D）

6、 18 18 设有如下数组定义语句： Dima a(一 1 T0 4， 3)As Integer 以下叙述中正确的是 ( )。 （ A） a数组有 18个数组元素 （ B） a数组有 20个数组元素 （ C） a数组有 24个数组元素 （ D）语法有错 19 以下叙述中错误的是 ( )。 （ A） Sub Main是定义在标准模块中的特定过程 （ B）一个工程中只能有一个 Sub Main过程 （ C） Sub Main过程不能有返回值 （ D）当工程中含有 Sub Main过程时，工程执行时一定最先执行该过程 20 关于随机文件，以下叙述中错误的是 ( )。 （ A）使用随机文件能节约空间

7、（ B）随机文件记录中，每个字段的长度是同定的 （ C）随机文件中，每个记录的长度相等 （ D）随机文件的每个记录都有一个记录号 21 在名称为 Framel的框架中，有两个名称分别为 opl、 op2的单选按钮，标题分别为 “单程 ”、 “往返 ”，如图所示。 （ A）若仅把 Framel 的 Enabled属性设为 False，则 opl、 op2仍可用 （ B）对于上图， 0p1 Value的值为 True （ C）对于上图，执行 O pl Value False命令，则 “往返 ”单选按钮被选中 （ D）对于上图，执行 Opl Value=0命令，程序出错 22 以下能够设置控件焦点的

8、方法是 ( )。 （ A） SetFocus （ B） GotFocus （ C） LostFocus （ D） TabStop 23 使用 Line控件在窗体上画一条从 (0， 0)到 (600， 700)的直线，则其相应属性的值应是 ( )。 （ A） XI=0， X2=600， Y1： 0， Y2=700 （ B） Y1=0， Y2=600， X1=0， X2=700 （ C） XI： 0， X2=0， Y1=600， Y2=700 （ D） Y1=0， Y2=0， X1=600， X2=700 24 设有窗体的 FormMouseMove事件过程如下： Private Sub Form

9、MouseMove(Button As Integer， Shift As Integer， X As Single，Y As Single) If(Button And 3)=3 Then Print“检查按键 ” End If End Sub 关于上述过程，以下叙述中正确的是 ( )。 （ A）按下鼠标左键时，在窗体上显示 “检查按键 ” （ B）按 F鼠标右键时，在窗体上显示 “检查按键 ” （ C）同时按下鼠标左、右键时，在窗体上显示 “检查按键 ” （ D）不论做何种操作，窗体上都不会显示 25 窗体上有一个名称为 CDl的通用对话框，一个名称为 Commandl的命令按钮，相应的事

10、件过程如下： Private Sub Command I Click() CDl Fiher=”All FileI* * Text File * txt PPT * ppt” CDl Filterlndex=2 CDl InitDir=“C： ” CDl FileName=“default” CDl ShowSave End Sub 关于上述过程，以下叙述中正确的是 ( )。 （ A）默认过滤器为 “* ppt” （ B）指定的初始日录为 “C： ” （ C）打开的文件对活框的标题为 “default” （ D）上面事件过程实现保存文件的操作 26 以下关于窗体的叙述中，错误的是 ( )。 （

11、 A） Hide方法能隐藏窗体，但窗体仍在内存中 （ B）使用 Show方法显示窗体时，一定触发 Load事件 （ C）移动或放大窗体时，会触发 Paint事件 （ D）双击窗体时，会触发 DblClick事件 27 下列控件中，没有 Caption属性的是 ( )。 （ A）单选按钮 （ B）复选框 （ C）列表框 （ D）框架 28 将数据项 “Student”添加到名称为 Listl的列表框中，并 使其成为列表框第一项的语句为 ( )。 （ A） Listl Addltem”Student”， 0 （ B） Listl Addhem”Student”， 1 （ C） Listl AddI

12、tem 0， ”Student” （ D） Listl AddItem 1， ”Student” 29 下列针对框架控件的叙述中，错误的是 ( )。 （ A）框架是一个容器控件 （ B）框架也有 Click和 DblClick事件 （ C）框架也可以接受用户的输入 （ D）使用框架的主要目的是为厂对控件进行分组 30 窗体上有一个名为 Commandl的命令按钮，并有下面的程序： Private Sub Commandl Click() Dim alT(5)As Integer For k=l T0 5 arr(k)=k Next k prog aft() F0r k=l To 5 Print

13、 art(k)： Next k End Sub Sub prog(a()As Integer) n=UBound(a) For i=n To 2 step-1 For j=l To n-1 if a(j)=0 Then count(n)=count(n)+1 End If Next k m=count(0) For k=l To 25 If in10 Then Exit For Next Textl Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 ( )。 （ A） 2 （ B） 3 （ C） 4 （ D） 5 34 设有如下的程序段： n=0 For

14、i=1 To 3 For j=j To I For k=j To 3 n=n+l Next k Next j Next I 执行上面的程序段后， n的值为 ( )。 （ A） 3 （ B） 21 （ C） 9 （ D） 14 35 在窗体上画一个名称为 Commandl的命令按钮，一个名称为 Labell的标签，然后编写如下事件过程： Private Sub Commandl Click() S=0 For i=1 To 15 X=2*i l If X Mod 3=0 Then S=S+l Next I Labell Caption=S End Sub 程序运行后，单击命令按钮，则标签中显示的

15、内容是 ( )。 （ A） 1 （ B） 5 （ C） 27 （ D） 45 36 阅读程序： Private Sub Form Click() x=50 For i=1 To 4 Y=InputBox(“请输入一个整数 ”) Y=Val(Y) If Y Mod 5=0 Then a a+Y X Y Else a=a+x End If Next j Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入 15、 24、 35、 46，输出结果为 ( )。 （ A） 100 （ B） 50 （ C） 120 （ D） 70 37 在窗体上画一个名称为 Textl的文本框和一

16、个名称为 Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim arrayl(10， 10)As Integer Dim i As Integer， J As Integer For i=1 To 3 For j=2 To 4 arrayl(i， j)=i+J Next j Next i Textl Text=arrayl(2， 3)+arrayl(3， 4) End Sub 程序运行后，单击命令按钮，在文本框中显示 的值是 ( )。 （ A） 15 （ B） 14 （ C） 13 （ D） 12 38 在窗体上画一个名称为 Co

17、mmandl的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command lClick() d=0 e=10 x=Array(10， 12， 21， 32， 24) For i=l To 5 If x(i)c Then d=d+x(i) C： x(i) Else d=d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ( )。 （ A） 89 （ B） 99 （ C） 23 （ D） 77 39 假定有以下通用过程： Function Fun(n As Integer)As Intege

18、r X n*n Fun=X 11 End Function 在窗体上画一个命令按钮，其名称为 Commandl，然后编写如下事件过程： Private Sub Commandl_Click() Dim i As Integer For i=l To 2 Y=Fun(i) Print Y； Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是 ( )。 （ A） 1 3 （ B） 10 8 （ C） -10 -7 （ D） 0 5 40 设有如下通用过程： Public Function f(x As Integer) Dim Y As Integer x=20 Y=2

19、f=X*Y End Function 在窗体上画一个命令按钮，其名称为 Commandl，然后编写如下事件过程： Private Sub Commandl Click() Static x As Integer x=10 Y=5 Y=f(x) Print X； y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是 ( )。 （ A） 10 5 （ B） 20 40 （ C） 20 5 （ D） 10 40 二、基本操作题 41 (1)在名称为 Forml的窗体上添加一个名称为 Labell、标题为 “设置速度 ”的标签，通过属性窗口把标签的大小设置为自动调整。添加一个名称为

20、 HScrolll的水平滚动条，通过属性窗口设置适当属性使滚动条的最小值为 l，最大值为 80，单击滚动条两端的箭头时，滚动框移动 2，滚动框的初始值为 30。程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjtl vbp，窗体文件名保存为 sjtl frm。 (2)在名称为 Forml的窗体上添加一个名称为 Shapel的形状控件，添加两个名称分别为 Commandl、Command2，标题分别为 “圆形 ”、 “红色边框 ”的命令按钮。将窗体的标题设置为 “图形控件 ”，如图 l所示。请编写适当的事件过程， 使得程序在运行时，单击 “圆形 ”按钮将形状控

21、件设为圆形。单击 “红色边框 ”按钮，将形状控件的边框颜色设为红色(&HFF&)，如图 2所示。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。 三、简单应用题 42 (1)在考生文件夹下包含一个工程文件 Sjt=； vbp，请在名称为 Forml的窗体上添加一个名称为 Textl的文本框和一个名称为 c1、标题为 “转换 ”的命令按钮，如图所示。在程序运行时，单击 “转换 ”按钮，可以把 Textl中的小写字母转换为大写，把大写字母转换为小写。窗体文件中已经给出了 “转换 ”按

22、钮的 Click事件过程，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，其功能如下： 单击 “读数据 ”命令按钮，把考生文件夹下 in4 dat文件中已按升序排列的 60个数读入数组 A，并在 Textl中显示； 单击 “输入 ”按钮，弹出一个输入对话框，接收用户输入的任意一个整数； 单击 “插入 ”按钮，将输入的数插入到A数组中，使其仍能保持 A数组从小到大排列，最后将 A数组的内容重新在 Textl中显示。在窗体文件中已经给出了全部控件 (如图所示 )

23、和程序，但程序不 完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容。本程序只考虑插入一个 整数的情况。 注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。 四、综合应用题 43 考生文件夹下的工程文件 sjt5 vbp中有 1个初始文本为空的文本框 Textl， 2个标题分别是 “读数据 ”和 “计算 ”的命令按钮；请添加 1个标题为 “各行最小数的平均值为 ”的标签 Label2，再添加 1个初始文本为空的文本框 Text2，如图所示。 程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读入 20行 5列的二维数组 a中，同时

24、在 Textl文本框内显示。 单击 “计算 ”按 钮，程序则自动统计二维数组中各行的最小数，并将这些最小数的平均值显示在 Text2文本框内。 “读数据 ”按钮的 Click事件过程已经给出，请编写 “计算 ”按钮的 Click事件过程实现上述的功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行 “计算 ”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名进行存盘。 国家二级（ VB）机试模拟试卷 19答案与解析 一、选择题 1 【正确答案】 D 【试题解析】 算法是指解题方案的准确而完整的描述，算法不等 于程序，也小等于计算办法，所以

25、 A错洪。设计算法时不仅要考虑对数据对象的运算和操作，还要考虑算法的控制结构。 2 【正确答案】 B 【试题解析】 线忡结构成满足：有且只有一个根结点与每个结点最多有一个前件，也最多有一个后件，所以 B 正确。所以有一个以上根结点的数据结构一定是非线性结构，所以 A错洪。循环链表和双向链表都是线性结构的数据结构。 3 【正确答案】 B 【试题解析】 根据二叉树的基本性质 3：在任意一棵二叉树中，度为 0的叶子结点总是比度为 2的结点多一个。所以选择 B。 4 【正确答案 】 A 【试题解析】 软件生命周期可以分为软件定义、软件开发与软件运行维护三个阶段。主要活动阶段是：可行性研究与计划阶段，需

26、求分析，软件设计，软件实现，软件测试，运行和维护，所以选择 A。 5 【正确答案】 C 【试题解析】 根据总体结构图可以看出该树的深度为 3，比如： XY系统 功能 2功能 2 1，就是最深的度数的一个表现。 6 【正确答案】 D 【试题解析】 程序调试的任务是诊断和改正程序中的错误。 7 【正确答案】 A 【试题解析】 数据字典是件需求分析阶段建立，在 数据库设计过程中不断修改、充实和完善的。 8 【正确答案】 D 【试题解析】 数据库系统的三级模式是概念模式、外模式和内模式，所以选择D。 9 【正确答案】 A 【试题解析】 自然连接是一种特殊的等值连接，它要求两个关系中进行比较的分量必须是

27、相同的属性组并且在结果中把重复的属性列去掉，所以根据中元组可以判断 R和 S做的是自然连接操作。 10 【正确答案】 A 【试题解析】 面向对象基本方法的基本概念有对象、类和实例、消息、继承与多态性，所以选择 A。 11 【正确答案】 D 【试题解析】 VB 中变量的命名规则为： 必须以字母或汉字开头 由字母、汉字、数字或下划线组成 不能使用 VB已经占用的关键字。 # 1中是类型符号，变量名中不能用 VB 保留符号。故不合法。 123 a以数字开头不合法。 string是 VB 的关键字，也不合法。故 D选项正确。 12 【正确答案】 D 【试题解析】 VB 中一个对象可以对应一个或多个事件

28、，事件可由用户或系统触发，触发后执行相应的事件过程。不过，不一定一个对象的所有事件过程都执行，响应哪个事件过程就执行哪个。故 D选项错误。 13 【正确答案 】 C 【试题解析】 用 Dim可同时定义多个变量，但变量要分别声明其数据类型，如果不声明数据类型，默认是 Variant变体型变量。本题中，变量 x定义时没声明数据类型，所以为 Variant型变量，变量 Y是整型变量。故 C选项正确。 14 【正确答案】 A 【试题解析】 控件数组 1各控件具有相同的名称，而且类型是相同的，但Index属性值不同。数组中各控件响应的事件是相同，用 Index 属性值来区分每个控件。故 A选项正确， B

29、、 C、 D选项错误。 15 【正确答案】 B 【试题解析】 工程 文件的扩展名为 vbp，故 B 选项错误。 16 【正确答案】 C 【试题解析】 select case语句中表达式的形式呵以是：常量或变量；若干符合条件的值用 “， ”隔开；表达式 1 to表达式 2； Is关系表达式。本题中选项 A、 B 和 D都符合语法规则。选项 C中 ls火系表达式语法错误，它可以是 Is0或 Is50， 17， 0)， 5250结果为 Tme，所以 IIF函数返回 17，则 x值为 17，故选 C。 18 【正确答案】 C 【试题解析】 本题定义 -r一个二维数组，第一维的下标一 1 t0 4，即为

30、一 1， 0，l， 2， 3， 4(共 6行 )，第二二维下标 3，即 0to 3(0， l， 2， 3共 4列 )， 6$4=24二维数组有 24个数组元素。故选 C。 19 【正确答案】 D 【试题解析】 VB 工程的启动对象有： Sub： Main 过程 (在标准模块中定义 )、窗体 (在多个窗体町选一个窗体启动 )，我们 可以通过在 “工程属性 ”对话框中设置启动对象来实现，设置哪个就用哪个启动。所以当一 r程中含有 Sub Main 过程时，工程执行不一定最先执行该过程，也叮以通过窗体启动。故选项 D错误。 20 【正确答案】 A 【试题解析】 随机文件中的每一行是一条记录，每条记录

31、的长度是固定的、相等的，并且都有一个记录号。 Open 语句中的 Len 用于指定记录长度，当指定长度小于记录实际长度时将产生错误；大于实际长度时，可以写入，但浪费空间，所以随机文件占据磁盘空间较大，故选项 A错误。 21 【正确答案】 B 【试 题解析】 当 Ftamel的 Enabled 属性设为 False后，框架 Framel变为不可用，它里面放的两个单选按钮也就变为不可用，故 A选项错误；当 Opl Value为False时， “单程 ”和 “往返 ”单选按钮都处于未选中状态，故 C选项错误；Opl Value的值为 0，即为 False，语句正确，没有程序错误，故 D选项说法错误；

32、根据图可只， “单程 ”单选按钮处于选中状态， Opl Value的值为 True，故 B选项正确。 22 【正确答案】 A 【试题解析】 GotFocus 和 LostFocus 是控件获得焦点 和失去焦点时触发的两个事件； TabStop 是控件的属性； SetFocus 方法是控件设置、获得焦点的方法。故选 A。 23 【正确答案】 A 【试题解析】 x1、 Y1、 x2、 Y2属性是直线的起点、终点坐标。故选 A。 24 【正确答案】 C 【试题解析】 MoseMove事件中的 Button 表示鼠标所有按键的状态。用 0、 l、 2三个位表示左、右、中键，当按下某个键时，相应位是 1

33、，否则是 0。三位的二进制数也可转换为十进制数，作为 Button 的值。如表：本题中当 Button 值为 011或 lll时， (Button And 3)=3，条件才成立，窗体上显示 “检查按键 ”。这说明只要同时按下鼠标的左右键时，在窗体上就显示 “检查按键 ”。故选 C。 25 【正确答案】 B 【试题解析】 通用对话框的 FilterIndex 属性为 1时表示默认过滤器为第 1个文件类型，为 2时表示为第 2个文件类型。 lnitDir属性值指定通用对话框的初始目录。 FileName属性表示对话框中默认的文件名。 ShowSave方法表示打开另存为对话框，执行保存文件的操作。

34、26 【正确答案】 B 【试题解析】 窗体的 Load 事 件是把窗体装入工作区的事件，即装入内存，然后窗体才显示出来，使用 Hide方法可以使窗体隐藏，但窗体仍在内存中，使用Show方法能使窗体显示出来。当窗体被移动或放大时，或者窗口移动时覆盖了一个窗体时，触发 Paint事件。双击窗体时会触发窗体的 DblClick 事件。 27 【正确答案】 C 【试题解析】 列表框控件没有 Caption属性。 28 【正确答案】 A 【试题解析】 List 控件的 AddItem方法的语法是： Ad-dltem(String， index)。其中 index是列表框中列表 项的索引值，第一项的索引值

35、为 0。 29 【正确答案】 C 【试题解析】 框架是一个容器控件，用于将屏幕上的对象分组。框架常用的事件是 Click和： DblClick，它不接受用户输入，不能显示文本和图形，也不能与图形相连。 30 【正确答案】 B 【试题解析】 程序对数组元素赋初值为 1、 2、 3、 4、 5。 Ubound函数返回数组可用的最大下标，过程 prog的功能是遍历数组对数组中的元素进行排序，由条件a(j)=“a”And b$=“A”And b$ 四、综合应用题 43 【正确答案】 Commandl Click单击 “读数据 ”按钮事件过程中，通过文件操作和For循环语句把考生文件夹下 in4 dat

36、文件的内容读， 5)As Integer Private Sub Commandl Click() Open App Path&“ in5 dat”For Input As#l For i=1 To 20 For j=1 To 5 Input#1， a(i， j) TextI=Textl+Sir(a(i， J)+Space(2) Next J Textl=Textl+Chr(13)+Chr(10) Next i Close#1 End Sub Private Sub Command2 Click() 考生编写 End Sub Private Sub Form Unload(Cancel As

37、Integer) Open App Path&“ out5 dat”For Output As#l Print#1 Text2 Text Close 1 End Sub 程序结束 Private Sub Command2 Click() 考生编写 Dim sum As Long Dim rain As Long Dim b(20)As Integer For i=1 To 20 min=a(i， 1) For j=1 To 5 lf a(i， j)min Then min=a(i， j) End If Next j b(i)=min Next i sum=0 For i=1 To 20 sum

38、=sum+b(i) Next Text2=sum 20 End Sub到个 20行 5列的二维数据 a中，同时运用 Str函数， Space函数， +连接符将其显示在 Textl文本框中。在单击 “计算 ”按钮事件过程中，通过循环嵌套先求出每一行的最小值 rain，再对最小值进行累加求和，得出每一行最小值的和 8am，然后对二维数组中每行最小数求平均值，并将最终结果显示在 Text2文本框内。 步骤 1：打开本题工程文件，添加一个标题为 “各行最小数的平均值为 ”的标签Label2，再添加一个初始内容为空的文本框 Text2。 步骤 2：分析并编写程序代码。 程序提供代码 Option Bas

39、e 1 Dim a(20， 5)As Integer Private Sub Commandl Click() Open App Path&“ in5 dat”For Input As#l For i=1 To 20 For j=1 To 5 Input#1， a(i， j) TextI=Textl+Sir(a(i， J)+Space(2) Next J Textl=Textl+Chr(13)+Chr(10) Next i Close#1 End Sub Private Sub Command2 Click() 考生编写 End Sub Private Sub Form Unload(Canc

40、el As Integer) Open App Path&“ out5 dat”For Output As#l Print#1 Text2 Text Close 1 End Sub 程序结束 Private Sub Command2 Click() 考生编写 Dim sum As Long Dim rain As Long Dim b(20)As Integer For i=1 To 20 min=a(i， 1) For j=1 To 5 lf a(i， j)min Then min=a(i， j) End If Next j b(i)=min Next i sum=0 For i=1 To 20 sum=sum+b(i) Next Text2=sum 20 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。