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

1、国家二级（ VB）机试模拟试卷 144及答案与解析 一、选择题 1 下列叙述中正确的是 ( )。 （ A）循环队列是队列的一种链式存储结构 （ B）循环队列是队列的一种顺序存储结构 （ C）循环队列是非线性结构 （ D）循环队列是一种逻辑结构 2 下列关于线性链表的叙述中，正确的是 ( )。 （ A）各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致 （ B）各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续 （ C）进行插入与删除时，不需要移动表中的元素 （ D）以上说法均不正确 3 一棵二叉树共有 25个结点，其中 5个是叶子结点，则度为 1的结点数为 (

2、)。 （ A） 16 （ B） 10 （ C） 6 （ D） 4 4 在下列模式中，能够给出数据库物理存储结构与物理存取方法的是 ( )。 （ A）外模式 （ B）内模式 （ C）概念模式 （ D）逻辑模式 5 在满足实体完整性约束的条件下 （ A）一个关系中应该有一个或多个候选关键字 （ B）一个关系中只能有一个候选关键字 （ C）一个关系中必须有多个候选关键字 （ D）一个关系中可以没有候选关键字 6 有三个关系 R、 S和 T如下： 则由关系 R和 S得到关系 T的操作是 ( )。 （ A）自然连接 （ B）交 （ C）除 （ D）并 7 下面描述中，不属于软件危机表现的是 ( )。 （

3、 A）软件过程不规范 （ B）软件开发生产率低 （ C）软件质量难以控制 （ D）软件成本不断提高 8 下面不属于需求分析阶段任务的是 ( )。 （ A）确定软件系统的功能需求 （ B）确定软件系统的性能需求 （ C）需求规格说明书评审 （ D）制定软件集成测试计划 9 在黑盒测试方法中，设计测试用例的主 要根据是 ( )。 （ A）程序内部逻辑 （ B）程序外部功能 （ C）程序数据结构 （ D）程序流程图 10 在软件设计中不使用的工具是 ( )。 （ A）系统结构图 （ B） PAD图 （ C）数据流图 (DFD图 ) （ D）程序流程图 11 以下变量名中合法的是 ( )。 （ A）

4、x-2 （ B） 12abe （ C） sum_total （ D） print 12 已知 a=6， b=15， c=23，则语句 Print Sgn(a+b Mod b-c a)&a+b的输出结果为( )。 （ A） 6 （ B） 16 （ C） 31 （ D） 121 13 以下叙述中错误的是 ( )。 （ A）续行符与它前面的字符之间至少要有一个空格 （ B） Visual Basic中使用的续行符为下划线 (一 )。 （ C）以撇号 ()开头的注释语句可以放在续行符的后面 （ D） Visual Basic可以自动对输入的内容进行语法检查 14 以下关于多重窗体程序的叙述中，错误的是

5、 ( )。 （ A）对于多重窗体程序，需要单独保存每个窗体 （ B）在多重窗体程序中，可以根据需要指定启动窗体 （ C）在多 重窗体程序中，各窗体的菜单是彼此独立的 （ D）用 Hide方法不仅可以隐藏窗体，而且还可以清除内存中的窗体 15 以下关于文件的叙述中，错误的是 ( )。 （ A）顺序文件中的记录是一个接一个地顺序存放 （ B）随机文件中记录的长度是随机的 （ C）文件被打开后，自动生成一个文件指针 （ D） EOF函数用来测试是否到达文件尾 16 下面不是键盘事件的是 ( )。 （ A） KeyDown （ B） KeyUp （ C） KeyPress （ D） KeyCode 1

6、7 语句 Dim Arr(一 2 To 4)As Integer所定义的数组的元素个数为 ( )。 （ A） 7个 （ B） 6个 （ C） 5个 （ D） 4个 18 为了使窗体左上角不显示控制框，需设置为 False的属性是 ( )。 （ A） Visible （ B） Enabled （ C） ControlBox （ D） Caption 19 窗体上有 1个名称为 Text1的文本框， 1个名称为 Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为 ( )。 （ A） Private Sub Label1_Click

7、() Label1 Caption=Text1 Text End Sub （ B） Private Sub Label1_Change() Label1 Caption=Text1 Text End Sub （ C） Private Sub Text1_Click() Label1 Caption=Text1 Text End Sub （ D） Private Sub Text1_Change() Label1 Caption=Text1 Text End Sub 20 对窗体上名称为 Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() M

8、ove 200， 200 End Sub 程序运行时，单击命令按钮，则产生的操作是 ( )。 （ A）窗体左上角移动到距屏幕左边界、上边界各 200的位置 （ B）窗体左上角移动到距屏幕右边界、上边界各 200的位置 （ C）窗体由当前位置向左、向上各移动 200 （ D）窗体由当前位置向右、向下各移动 200 21 为了每秒钟发生一次计时器事件，可以将 Interval属性设置为 ( )。 （ A） I （ B） 10 （ C） 100 （ D） 1000 22 能够将组合框 Combol中最后一个数据项删除的语句为 ( )。 （ A） Combol RemoveItem Combol Li

9、stCount （ B） Combol Removeltem Combol ListCount-1 （ C） Combol Removehem Combol ListIndex （ D） Combol RemoveItem Combol List1ndex-1 23 用来设置文字字体是否为粗体的属性是 ( )。 （ A） Fontltalic （ B） FontUnderline （ C） FontSize （ D） FontBold 24 以下不能触发滚动条 Change事件的操作是 ( )。 （ A）拖动滚动框 （ B）单击两端的滚动箭头 （ C）单击滚动框 （ D）单击滚动箭头与滚动框之

10、间的滚动条 25 确定图片框 Picturel在窗体上位置的属性是 ( )。 （ A） Width和 Height （ B） Left和 Top （ C） Width和 Top （ D） Height和 Left 26 以下不属于单选按钮的属性是 ( )。 （ A） Caption （ B） Name （ C） Min （ D） Enabled 27 以下关于图片框控件的说法中，错误的是 ( )。 （ A）可以通过 Print方法在图片框中输出文本 （ B）图片框控件中的图形可以在程序运行过程中被清除 （ C）图片框控件中可以放置其他控件 （ D）用 Stretch属性可以自动调整图片框中图形

11、的大小 28 为了清除列表框中指定的项目，应 使用的方法是 ( )。 （ A） Cls （ B） Clear （ C） Remove （ D） Removeltem 29 假定 Picturel和 Text1分别为图片框和文本框的名称，则下列错误的语句是( )。 （ A） Print 25 （ B） Picturel Print 25 （ C） Text1 Print 25 （ D） Debug Print 25 30 设在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum As String*20 End Type 在窗

12、体上画一个名为 Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件 Person txt中写入一条记录。下列能够完成该操作的事件过程是 ( )。 （ A） Private Sub Command1_Click() Dim B As Books Open“c： Person txt“For Output As #1 B Name=InputBox(“输入姓名 “) B TelNum=InputBox(“输入电话号码 “) Write #1， B Name， B TelNum Close #1 End Sub （ B） Private Sub Command1

13、_Click() Dim B As Books Open“c： Person txt“For Input As #1 B Name=InputBox(“输入姓名 “) B TelNum=InputBox(“输入电话号码 “) Print #1， B Name， B TelNum Close #1 End Sub （ C） Private Sub Command1_Click() Dim B As Books Open“c： Person txt“For Output As #1 B Name=InputBox(“输入姓名 “) B TelNum=InputBox(“输入电话号码 “) Writ

14、e #1 B Close #1 End Sub （ D） Private Sub Command1_Click() Open“c： Person txt“For Input As #1 Name=InputBox(“输入姓名 “) TelNum=InputBox(“输入电话号码 “) Print #1， Name， TelNum Close #1 End Sub 31 运行如下程序： Private Sub Command1_Click() Dim a(5， 5)As Integer For i=1 To 5 For j=1 To 4 a(i， j)=i*2+j If a(i， j) 7=a(

15、i， j) 7 Then n=n+1 End If Next j Next Print n End Sub n的值是 ( )。 （ A） 2 （ B） 3 （ C） 4 （ D） 5 32 窗体上有单选钮和列表框控件。单击名称为 Option1、标题为 “国家 ”的单选钮，向列表框中添加国家名称，如下图所示。 Option1的单击事件过程如下： Private Sub Option1 Click() Dim arr alT=Array(“中国 “， “日本 “， “德国 “， “美国 “， “澳大利亚 “) List1 Clear For i=0 To Ubound(aaa) List1 Ad

16、dItem alT(i) Next End Sub 以下关于上述代码的叙述中，正确的是 ( )。 （ A）程序有错，没有声明数组的维数及上下界 （ B）只有一维数组才能使用 Array为数组赋初值 （ C） For循环的终值应为 ListCount-1 （ D） For循环的初值应为 1 33 现有如下一段程序： Private Sub Command1_Chck() x=UCase(InputBox(“输入： “) Select Case x Case“A“To”C“ Print“考核通过 !“ Case“D“ Print“考核不通过 !“ Case Else Print“输入数据不合法 !

17、“ End Select End Sub 执行程序，在输入框中输入字母 “B”，则以下叙述中正确的是 ( )。 （ A）程序运行错 （ B）在窗体上显示 “考核通过 !” （ C）在窗体上显示 “考核不通过 !” （ D）在窗体上显示 “输入数据不合法 !” 34 窗体上有三个水平滚 动条，名称分别为 HSRed、 HSGreen和 HSBlue，取值范围均是 0 255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。 程序代码如下： Dim color(3)As Integer Private Sub Form_Load() Call fill

18、(color() End Sub Private Sub fill(c()As Integer) Form1 BaekColor=RGB(c(1)， e(2)， c(3) End Sub Private Sub HSRed_Change() color(1)=HSRed Value Call fill(color() End Sub Private Sub HSGreen_Change() color(2)=HSGreen Value Call fill(color() End Sub Private Sub HSBlue_Change() color(3)=HSBlue Value Call

19、 fill(color() End Sub 关于以上程序，如下叙述中错误的是 ( )。 （ A） color是窗体 级整型数组 （ B）改变任何一个滚动条滚动框的位置，窗体的背景色将立刻随之改变 （ C） 3个滚动条 Change事件过程中只设置了一个 color数组元素的值，调用 fill过程失败 （ D） fill函数定义中的形式参数是数组型参数 35 命令按钮 Command1的单击事件过程如下： Private Sub Command1_Click() x=10 Print f(x) End Sub Private Function f(y As Integer) f=y*y End

20、Function 运行上述程序，如下叙述中正确的是 ( )。 （ A）程序运行出错， x变量的类型与函数参数的类型不符 （ B）在窗体上显示 100 （ C）函数定义错，函数名 f不能又作为变量名 （ D）在窗体上显示 10 36 窗体上有 1个名称为 Text1、内容为空的文本框。编写如下事件过程： Private Sub Text1_KeyUp(KeyCode As Integer， Shift As Integer) Print Text1 Text； End Sub 运行程序，并在文本框中输入 “123”，则在窗体上的输出结果为 ( )。 （ A） 123 （ B） 112 （ C）

21、12123 （ D） 112123 37 窗体上有 1个名称为 Command1的命令按钮，事件过程如下： Private Sub Command1_Click() Dim x， y， z x=InputBox(“请输入第 1个整数 “) y=InputBox(“请输入第 2个整数 “) Do Until x=y If xy Then x=xy Else y=yx Loop Print x End Sub 运行程序，单击命令按钮，并输入 2个整数 169和 39，则在窗体上显示的内容为 ( )。 （ A） 11 （ B） 13 （ C） 23 （ D） 39 38 窗体上有 1个名称为 Com

22、mand1的命令按钮，事件过程及函数过程如下： Private Sub Command1_Click() Dim m As String m=InputBox(“请输入字符串 “) Print pick_str(m) End Sub Private Function pick_str(s As String)As String temp=“ i=1 sLen=Len(s) Do While iMod+&顺序计算。计算过程： Sgn(6+15Mod 623 6)&6+15=Sgn(6+35)&21=Sgn(4)&21=1&21=“121“。故选项 D正确。 说明：字符串连接符 &两边的操作数不管

23、是字符型还是数值型，系统首先要将其转换为字符型，然后进行连接。 13 【正确答案】 C 【试题解析】 续行符 “一 ”与前面的内容至少要保留一个空格，并且续行符只能出现在行尾，后面不能有注释。故选项 C错误。 14 【正确答案】 D 【试题解析】 用 Hide方法只是隐藏窗体，不卸载窗体，所以不会清除内存中的窗体。故选项 D错误。 15 【正确答案】 B 【试题解析】 随机文件中记录的长度是固定的、相等的，不是随机的。故选项 B错误。 16 【正确答案】 D 【试题解析】 KeyCode是 KeyDown、 KeyUp键盘事件的参数，不是键盘事件，它返回的是按键相应的 ASCII字符代码。故选

24、项 D错误。 17 【正确答案】 A 【试题解析】 本题是定义了一个一维数组，下标是一 2 to 4， 所以数组元素的个数是 4一 (一 2)+1=7，故选 A。 18 【正确答案】 C 【试题解析】 窗体的 Visible属性是设置窗体可见不可见； Enabled属性是设置可用不可用； Caption属性是用来设置窗体标题栏上显示的内容； ControlBox属性是设置窗体左上角是否显示控制框，当属性值为 True时，显示控制框，否则False时，不显示。故选项 C正确。 19 【正确答案】 D 【试题解析】 题意是在文本框中输入信息，会影响标签上显示的内容，所以触发的是文本框 Text1的

25、事件，要在文本框 Text1的事件过程中写代码，因此排除 A、B选项。又因为标签上显示的内容会随着文本框中输入信息变化，因此要在 Text1的 Change事件过程写代码。故 D选项正确。 20 【正确答案】 A 【试题解析】 Move方法是窗体的移动方法，其中 200， 200是窗体左上角的坐标(X， Y)。坐标系是以屏幕左上角为原点，向右为 X轴正方向，向下为 Y轴正方向。所以本题中窗体左上角移动到距屏幕左边界、上边界各 200的位置。故 A选项正确。 21 【正确答案】 D 【试题解析】 计时器控件的 Interval属性值 以毫秒为单位，设置为 1000则计时器事件每 1秒钟发生一次。

26、 22 【正确答案】 B 【试题解析】 组合框的 Removeltem方法与列表框删除指定项目的方法相同，格式为： Removeltem(索引值 )，而列表中的项目索引值从 0开始，因此最后一项的索引值为 ListCount1。 23 【正确答案】 D 【试题解析】 Fonthalic用来设置文字是否为斜体， FontUnderLine用来设置文字是否加下划线， FontSize用来设置文字的字号， FontBold用来设置文字是否为粗体。 24 【正确答案】 C 【试题解析】 改变滚动框的位置后会触发 Change事件，拖动滚动框、单击滚动箭头、单击滚动箭头与滚动框之间的滚动条都会改变滚动框

27、的位置。 25 【正确答案】 B 【试题解析】 确定图片框在窗体上位置的属性是 Left和 Top，三们使用韵是相对坐标，以窗体为参考点。 26 【正确答案】 C 【试题解析】 单选按钮没有 Min属性，滚动条控件的属性中有 Min属性。 27 【正确答案】 D 【试题解析】 可以通过 Print方法在图片框中输出文件，图片框中的 图形可以在程序运行过程中通过载入空文件的方法清除，图片框控件可以作为父控件，即可以放置其他控件， Stretch属性用来自动调整图片框中图形内容的大小。 28 【正确答案】 D 【试题解析】 清除列表框中的指定内容要使用 Re。 moveltem方法，格式为：Rem

28、oveltem(索引值 )，只要指定要清除项目的索引值就可以清除指定项目。如果要清除列表框中的全部内容可以使用 Clear方法。 29 【正确答案】 C 【试题解析】 Print方法可以在窗体上显示文本字符串和表达式的值，并可在其他图形 对象或打印机卜输出信息。其一般格式为： 对象名称 Print表达式表 ， |； 其中对象名称可以是窗体 (Form)、图片框 (PictureBox)或打印机 (Printer)，也可以是立即窗口 (Debug)。如果省略对象名称，则在当前窗体上输出。 30 【正确答案】 A 【试题解析】 数据文件的写操作分为 3步，即打开文件、写入文件和关闭文件。 首先，在

29、顺序文件中打开文件写入数据的打开方式为： Open文件名 For Output As#文件号。因此 B、 C选项排除，只看 A、 D选项。 写入顺序文件 Print#语句格式为： Print#文件号，变量名，变量名 ， Write语句的的格式与 Print语句一样： Write#文件号，变量名，变量名。而记录类型变量不能整体引用，需要指明记录变量中的成员名，格式为：记录变量名成员名，Books类型变量 B成员 Name和 TelNum赋值和引用应该是 B Name、B TelNum，因此 A选项正确。 31 【正确答案】 B 【试题解析】 VB中 “ ”是浮点除法运算符， “ ”是整数除法运算

30、符，程序中的条件表达式 a(i， j) 7=a(i， j) 7成立时说明这个数能够被 7整除，程序即是统计这个二维数组中能被 7整除的数的个数。数组元素值在 i=1时为 (3， 4， 5， 6)， i=2时为 (5， 6， 7， 8) i=3时为 (7， 8， 9， 10)， i=4时为 (9， 10， 11， 12)， i=5时为(11， 12， 13， 14)，其中能够被 7整除的数有 7、 7、 14共 3个。因此答案为 B。 32 【正确答案】 B 【试题解析】 程序没有错误。数组变最定义时可以不用声明上下界。 List控件列表项的索引从 0开始。 Arfay函数只适用于一组数组，只能

31、对一维数组进行初始化， 不能对二维数组或多维数组进行初始化。因此叙述正确的是 B选项。 33 【正确答案】 B 【试题解析】 程序中 Ucase函数将输入的字母转换为大写，然后通过 Select多分支控制语句选择输出不同信息，当输入字母在 “A”到 “C”之间时，显示 “考核通过 !”，输入的是 “D”时显示 “考核不通过 !”，如果输入的是 “A”到 “D”之外的其他字符则显示 “输入数据不合法 !”。程序中输入字母 “B”，因此会显示 “考核通过 !”。 34 【正确答案】 C 【试题解析】 当用 Dim语句定义数组时，该语句把数值数组中的全 部元素都初始化为 0，而把字符串数组中的全部元

32、素都初始化为空串。因此 color数组中的元素初始值都为 0，没有空值，过程调用不会失败。 C选项叙述错。 35 【正确答案】 A 【试题解析】 变量 x在按钮单击事件过程中没有定义，因此系统自动将它定义为Vatiant类型，由于过程中参数类型为 Integer，所以程序运行时会提示 “ByRef参数类型不符 ”错误。 A选项正确。只在按钮事件中加上 Dim x as Integer就可以解决问题，或者 f过程中的 y aLs integer改为 ByVal y as integer也可以解决。 36 【正确答案】 D 【试题解析】 Keyup事件是在松开按钮时发生。按下 1松开时，文本框中显

33、示1，执行 Keyup事件过程，在窗体上显示文本框内容，即 1。按下 2松开时，文本框中显示 12，执行 Keyup事件过程，在窗体上 1后面接着现在显示文本框的内容，即窗体上显示为 112。按下 3松开时，文本框中显示 123，执行 Keyup事件过程，在窗体上 112后面接着显示文本框的内容，即在窗体上显示为 112123。 37 【正确答案】 B 【试题解析】 程序中 Do循环比较输入的两个数 的大小，把较大的数值减去较小的数值后再与较小的值比较，直到两个数值相等。程序中输入 169和 39，则x=169一 39=130， 130y即 13039，因此 x=13039=91，如此循环 x

34、=9139=5239=13，此时 1339为假，执行 y=yx=39一 13=26，循环 y=2613=13，此时 x、 y都为 13，循环结束，因此窗体上显示为 13。 38 【正确答案】 A 【试题解析】 过程 picK_str的功能是对输入的字符串的字符莺新组合，通过 Do循环从原字符串中头尾开始各取一个字符重新组合 ，循环次数小于等于原字符串长度整除 2的值。当输入字符串是 “basic”时，字符串长度为 5，循环次数为 52=2次，因此取出的字符依次是 “b”， “c”， “a”， “i”。即 “bcai”，因此答案为 A。 39 【正确答案】 D 【试题解析】 在过程 m中 s被定

35、义为静态变量，因此它的值只在第一次调用过程时初始化，以后再调用都不再初始化，而是保留之前的值。 m过程的功能是根据参数值累加，因此第 1次单击时， m(1)+m(2)+m(3)=1+3+6=10，此时变量 s的值，即过程 m的值为 6，第 2次单击时， m(1)+m(2)+m(3)=7+9+12=28。因此答案为 D。 40 【正确答案】 C 【试题解析】 程序中 5次循环 x的值分别为 1 1， 1 1 2=1 (1*2)， 1 1 2 3=1 (1*2*3)， 1 1 2 3 4=1 (1*2*3*4)， 1 1 2 3 4 5=1(1*2*3*4*5)，可以看出 x值就是 1 i!，因此

36、过程的功能就是计算 1+1 2!+13!+1 4!+1 5!。因此选项 C正确。 二、基本操作题 41 【正确答案】 (1)步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见 表 1。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 2。步骤 2：编写程序代码。参考答案 rnVate Sub Command1_Click() Shapel Shape=3 End Sub Private Sub Command2_Click() Shapel BorderColor=&HFF& End Sub 步骤 3：调

37、试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)根据题意，先通过标签的 Autosize属性把标签的大小设置为自动调整。然后通过对滚动条的 SmallChange属性设置，使单击滚动条两端的箭头时，滚动框移动 2。 (2)根据题意，通过命令按钮的 Name、 Caption属性设置命令按钮的名称和标题。在单击命令按钮事件过程中，通过设置形状控件的 BorderColor和 Shape属性，将形状控件的边框颜色设为红色和将形状控件设为圆形。 三、简单应用题 42 【正确答案】 (1)步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Option Base

38、1 Private Sub Command1_Click() Dim arrN(20)As Integer Dim Sum As Integer Randomize For i=l To 20 arrN(i)=Int(Rnd*?) Next i Sum=? For i=l To 20 If?Then Sum=? End If Next i Print Sum End Sub 程序结束 参考答案 第 1个 ?处填入： 1000 第 2个 ?处填入： 0 第 3个 ?处填入： arrN(i)500 第 4个 ?处填入： Sum+arrN(i) 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。

39、(2)步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Sub SaveData() Open App Path&“ “&“outtxt txt“For Output As #1 Print#1 Text1 Text Close #1 End Sub Function Fun() End Function Private Sub Command1_Click() d=Fun() Text1 Text=d SaveData End Sub 程序结束 参考答案 Function Fun() Dim s As Long， i As Integer s=0 For i=0 T

40、o 100 If i Mod 2=0 Then s=s+i2 End If Next i Fun=s End Function 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)本题要产生随机整数，须使用 Rnd函数和 Int函数。 Int函数是将参数转换成整数。 Rnd函数返回小于 1，但大于或等于 0的值，为了生成某个范围内的随机整数，可使用以下公式： Int(upperboundlowerbound+1)*Rnd+lowerbound) 这里， upperbound是随机数范围的上限， lowerbound则是随机数范围的下限。 (2)根据题意，通过 For循环语

41、句的循环变量 i(初值为 0，终值为 100，步长为 2)来获得 0 100范围内的所有偶数，并逐一将 i2的值累加到变量 s，最后将 s的值显示在文本框中，并将其作为函数返回值。 四、综合应用题 43 【正确答案】 步骤 1：打开本题项目工程。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Command2 Click() Dim i， j As Integer Dim s As Single Dim temp As Single For i=1 To 10 s=0 For j=2 To 6 s=s+a(i， j) Next j List1 AddItem s 5 Next i For i=0 To List1 List1 ListCount-1 If List1 List(i)List1 List(j)Then Temp=List1 List(i) List1 List(j)=temp End If Next j Next i End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 本题主要考核列表框控件的基本操作，在事件过程中利用循环结构对二维数组中的元素求平均值，并将结果添加到列表框中，然后利用二重循环结构对列表框中的元素进行降序排列。