1、国家二级 VB机试（选择题）模拟试卷 28 及答案与解析 一、选择题 1 下列叙述中正确的是 ( )。 （ A）循环队列有队头和队尾两个指针，因此，循环队列是非线性结构 （ B）在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况 （ C）在循环队列中，只需要队尾指针就能反映队列中元素的动态变化情况 （ D）循环队列中元素的个数是由队头指针和队尾指针共同决定 2 一个栈的初始状态为空。现将元素 1、 2、 3、 4、 5、 A、 B、 C、 D、 E依次入栈，然后再依次出栈，则元素出栈的顺序是 ( )。 （ A） 12345ABCDE （ B） EDCBA54321 （ C） ABCD
2、E12345 （ D） 54321EDCBA 3 某二叉树有 5个度为 2的结点，则该二叉树中的叶子结点数是 ( )。 （ A） 10 （ B） 8 （ C） 6 （ D） 4 4 下列排序方法中，最坏情况下比较次数最少的是 ( )。 （ A）冒泡排序 （ B）简单选择排序 （ C）直接插入排序 （ D）堆排序 5 软件设计中划分模块的一个准则是 ( )。 （ A）低内聚低耦合 （ B）高内聚低耦合 （ C）低内聚高耦合 （ D）高内聚高耦合 6 下列选项中不属于结构化程序设计原则的是 ( )。 （ A）可封装 （ B）自顶向下 （ C）模块化 （ D）逐步求精 7 下列关于栈的叙述正确的是
3、( )。 （ A）栈按 “先进先出 “组织数据 （ B）栈按 “先进后出 “组织数据 （ C）只能在栈底插入数据 （ D）不能删除数据 8 在数据库设计中，将 E R图转换成关系数据模型的过程属于 ( )。 （ A）需求分析阶段 （ B）概念设计阶段 （ C）逻辑设计阶段 （ D）物理设计阶段 9 在数据管理技术发展的三个阶段中，数据共享最好的是 ( )。 （ A）人工管理阶段 （ B）文件系统阶段 （ C）数据库系统阶段 （ D）三个阶段相同 10 有三个关系 R、 S和 T如下：由关系 R和 S通过运算得到关系 T，则所使用的运算为 ( )。 （ A）笛卡尔积 （ B）交 （ C）并 （
4、D）自然连接 11 下列叙述中正确的是 ( )。 （ A） MsgBox语句的返回值是一个整数 （ B）执行 MsgBox 语句并出现信息框后，不用关闭信息框即可执行其他操作 （ C） MsgBox语句的第一个参数不能省略 （ D）如果省略 MsgBox 语句的第三个参数 (Title)，则信息框的标题为空 12 语句 Dim a( 3 To 4,3 To 6)As Integer 定义的数组的元素个数是 ( )。 （ A） 18 （ B） 28 （ C） 21 （ D） 32 13 设窗体文件中有下面的事件过程： Private Sub Command1_Click() Dim s a% 1
5、00 Print a End Sub 其中变量 a和 s的数据类型分别是 ( )。 （ A）整型，整型 （ B）变体型，变体型 （ C）整型，变体型 （ D）变体型，整型 14 下面不能 在信息框中输出 “VB“的是 ( )。 （ A） MsgBox “VB“ （ B） x MsgBox(“VB“) （ C） MsgBox(“VB“) （ D） Call MsgBox “VB“ 15 现有语句： y IIf(x 0， x Mod 3， 0) 设 x 10，则 y的值是 ( )。 （ A） 0 （ B） 1 （ C） 3 （ D）语句有错 16 窗体上有一个菜单编辑器设计的菜单。运行程序，并在窗
6、体上单击鼠标右键，则弹出一个快捷菜单，如图所示。下列说法错误的是 ( )。 （ A）在设计 “粘贴 “菜单项时，在菜 单编辑器窗口中设置了 “有效 “属性 (有 “) （ B）菜单中的横线是在该菜单项的标题输入框中输入了一个 “-“(减号 )字符 （ C）在设计 “选中 “菜单项时，在菜单编辑器窗口中设置了 “复选 “属性 (有 “) （ D）在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了 “可见 “前面的“ 17 假定有以下循环结构： Do Until 条件表达式 循环体 Loop 则以下正确的描述是 ( )。 （ A）如果 “条件表达式 “的值是 0，则一次循环体也不执行 （ B）
7、如果 “条件表达式 “的值不为 0，则至 少执行一次循环体 （ C）不论 “条件表达式 “的值是否为 “真 “，至少要执行一次循环体 （ D）如果 “条件表达式 “的值恒为 0，则无限次执行循环体 18 执行语句 Dim X， Y As Integer 后 ( )。 （ A） X和 Y均被定义为整型变量 （ B） X和 Y均被定义为变体类型变量 （ C） X被定义为整型变量， Y被定义为变体类型变量 （ D） X被定义为变体类型变量， Y被定义为整型变量 19 在程序运行时，下面的叙述中正确的是 ( )。 （ A）用鼠标右键单击窗体中无控件的部分，会执行窗体的 Form_Load事件过程 （
8、B）用鼠标左键单击窗体的标题栏，会执行窗体的 Form_Click事件过程 （ C）只装入而不显示窗体，也会执行窗体的 Form_Load事件过程 （ D）装入窗体后，每次显示该窗体时，都会执行窗体的 Form_Click事件过程 20 下列有关文件的叙述中，正确的是 ( )。 （ A）以 Output方式打开一个不存在的文件时，系统将显示出错信息 （ B）以 Append方式打开的文件，既可以进行读操作，也可以进行写操作 （ C）在随机文件中，每个记录的长度是固定的 （ D）无论是顺序文件 还是随机文件，其打开的语句和打开方式都是完全相同的 21 VB中有 3个键盘事件： KeyPress、
9、 KeyDown、 KeyUp，若光标在 Text1文本框中，则每输入一个字母 ( )。 （ A）这 3个事件都会触发 （ B）只触发 KeyPress 事件 （ C）只触发 KeyDown、 KeyUp事件 （ D）不触发其中任何一个事件 22 设窗体的名称为 Form1，标题为 Win，则窗体的 MouseDown事件过程的过程名是 ( )。 （ A） Form1_MouseDown （ B） Win_MouseDown （ C） Form_MouseDown （ D） MouseDown_Form1 23 窗体上有一个名称为 HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时
10、，立即在窗体上显示滚动框的位置 (即刻度值 )。下面能够实现上述操作的事件过程是 ( )。 （ A） Private Sub HScroll1_Change() Print HScroll1.Value End Sub （ B） Private Sub HScroll1_Change() Print HScroll1.SmallChange End Sub （ C） Private Sub HScroll1_Scroll() Print HScroll1.Value End Sub （ D） Private Sub HScroll1_Scroll() Print HScroll1.SmallC
11、hange End Sub 24 若已把一个命令按钮的 Default属性设置为 True，则下面可导致按钮的 Click事件过程被调用的操作是 ( )。 （ A）用鼠标右键单击此按钮 （ B）按键盘上的 Esc键 （ C）按键盘上的回车键 （ D）用鼠标右键双击此按钮 25 假定通过复制、粘贴操作建立了一个命令按钮数组 Command1，以下说法中错误的是 ( )。 （ A）数组中每个命令按钮的名称 (Name属性 )均为 Command1 （ B）若未做修改，数组中每个命令按钮的大小都一样 （ C）数组中各个命令按钮使用同一个 Click事件过程 （ D）数组中每个命令按钮的 Index属
12、性值都相同 26 以下关于菜单的叙述中，错误的是 ( )。 （ A）当窗体为活动窗体时，用 Ctrl E 键可以打开菜单编辑器 （ B）把菜单项的 Enabled属性设置为 False，则可删除 该菜单项 （ C）弹出式菜单在菜单编辑器中设计 （ D）程序运行时，利用控件数组可以实现菜单项的增加或减少 27 下面哪个属性肯定不是框架控件的属性 ( )。 （ A） Text （ B） Caption （ C） Left （ D） Enabled 28 窗体上有一个名称为 Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程： Private Sub Option1
13、_Click(Index As Integer) End Sub 下面关于此过程的参数 Index 的 叙述中正确的是 ( )。 （ A） Index为 1表示单选按钮被选中，为 0表示未选中 （ B） Index 的值可正可负 （ C） Index 的值用来区分哪个单选按钮被选中 （ D） Index表示数组中单选按钮的数量 29 要想使列表框只允许单选列表项，应设置的属性为 ( )。 （ A） Style （ B） Selected （ C） MultiSelect （ D） Enabled 30 在窗体上画一个名称为 Text1的文本框和一个名称为 Command1的命令按钮，然后编写如
14、下事件过程： Private Sub Command1_Click() Dim i As Integer， n As Integer For i 0 To 50 i i 3 n n 1 If i10 Then Exit For Next Text1.Text Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 ( )。 （ A） 2 （ B） 3 （ C） 4 （ D） 5 31 窗体上有一个名称为 Text1的文本框，一个名称为 CD1的通用对话框，一个标题为 “打开文件 “的命令按钮，如图所示。命令按钮的单击事件过程如下：Private Sub Command1_
15、Click() CD1.ShowOpen Open CD1.FileName For Input As#1 MsgBox CD1.FileName Line Input#1， s Text1.Text s Close#1End Sub单击命令按钮，执行以上事件过程，打开选定的文件，读取文件的内容并显示在文本框中 .以下叙述中正确的是 ( )。 （ A）程序没有错误，可以正确完成打开文件、读取文件中 内容的操作 （ B）执行 Open命令时出错，因为没有指定文件的路径 （ C） Open语句是错误的，应把语句中的 For Input改为 For Output （ D） Line Input命令格
16、式错 32 窗体上有一个如右图所示的图形控件，控件中显示了如图所示的文字，可以判断这个图形控件 ( )。 （ A）是图像框 (Image) （ B）是图片框 (PictureBox) （ C）是形状控件 （ D）不是上述 3种控件中的一种 33 窗体上有一个由两个文本框组成的控件数组，名称为 Text1，并有如下事件过程： Private Sub Text1_Change(Index As Integer) Select Case Index Case 0 Text1(1).FontSize Text1(0).FontSize * 2 Text1(1).Text Text1(0).Text C
17、ase 1 Text1(0).FontSize Text1(1).FontSize / 2 Text1(0).Text Text1(1).Text Case Else MsgBox “执行 Else分支 “ End Select End Sub 关于上述程序，以下叙述中错误的是 ( )。 （ A） Index用于标识数组元素 （ B）本程序中 Case Else分支的语句永远不会被执行 （ C）向任何一个文本框输入字符，都会在另一个文本框中显示该字符 （ D）下标为 0的文本框中显示的字符尺寸将越来越小 34 设有如下程序： Option Base 1 Dim a(3， 4)As Intege
18、r， b(4， 3)As Integer Private Sub Command1_Click() 循环 1 For i 1 To 3 For j 1 To 4 b(j， i) a(i， j) Next j Next i 循环 2 x b(1， 1) For i 1 To 4 For j 1 To 3 Print b(i， j)； If xmax Then max a(k) End If Next k Print max End Sub 运行程序时发现，当输入 10个正数时，可以得到正确结果，但输入 10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是 ( )。 （ A
19、）把 If a(k)max Then改为 If a(k)0) Print n Mod 10； n n10 Wend Print End Sub 此程序功能是：输入 2个正整数，反序输出这 2个数的每一位数字，再反序输出这 2个数之和的每一位数字。例如：若输入 123 和 234，则应该输出： 3 2 1 4 3 2 7 5 3 但调试时发现只输出了前 2行 (即 2个数的反序 )，而未输出第 3行 (即 2个数之和的反序 )，程序需要修改。下面的修改方案中正确 的是 ( )。 （ A）把过程 pro 的形式参数 n As Integer 改为 ByVal n As Integer （ B）把
20、Call pro(a b)改为 pro a b （ C）把 n n10 改为 n n / 10 （ D）在 pro b语句之后增加语句 c% a b ，再把 Call pro(a b)改为 pro c 38 在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c 1234 c1 Trim(Str(c) For i 1 To 4 Print Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234 则在横线处应填入的内容为 ( )。 （ A） Right(c1， i)
21、 （ B） Left(c1， i) （ C） Mid(c1， i， 1) （ D） Mid(c1， i， i) 39 命令按钮 Command1的单击事件过程如下： Private Sub Command1_Click() Dim a(10， 10)As Integer x 0 For i 1 To 3 For j 1 To 3 a(i， j) i * 2 Mod j If xa(i， j)Then x a(i， j) Next Next Print x End Sub 执行上述事件过程后，窗体上显示的是 ( )。 （ A） 1 （ B） 2 （ C） 3 （ D） 4 40 设有如下 Com
22、mand1的单击事件过程及 fun过程： Private Sub Command1_Click() Dim x As Integer x Val(InputBox(“请输入一个整数 “) fun(x) End Sub Private Sub fun(x As Integer) If x Mod 2 0 Then fun(x / 2) Print x； End Sub 执行上述程序，输入 6，结果是 ( )。 （ A） 3 6 （ B） 6 3 （ C） 6 （ D）程序死循环 41 下列叙述中正确的是 ( )。 （ A）算法的效率只与问题的规模有关，而与数据的存储结构无关 （ B）算法的时间复
23、杂度是指执行算法所需要的计算工作量 （ C）数据的逻辑结构与存储结构是一一对应的 （ D）算法的时间复杂度与空间复杂度一定相关 42 下列叙述中正确的是 ( )。 （ A）线性表链式存储结构的存储空间一般要少于顺序存储结构 （ B）线性表链式存储结构与顺序存储结构的存储空间都是连续的 （ C）线性表链式存储结构的存储空间可以是连续的，也可以是不连续的 （ D）以上说法均错误 43 某二叉树共有 12个节点，其中叶子节点只有 1个。则该二叉树的深度为 (根节点在第 1层 )( ) （ A） 3 （ B） 6 （ C） 8 （ D） 12 44 对长度为 n的线性表作快速排序，在最坏情况下，比较次
24、数为 ( )。 （ A） n （ B） n-1 （ C） n(n-1) （ D） n(n-1) 2 45 结构化程序设计中，下面对 goto语句使用描述正确的是 ( )。 （ A）禁止使用 goto语句 （ B）使用 goto语句程序效率高 （ C）应避免滥用 goto语句 （ D）以上说法均错误 46 下面不属于软件测试实施步骤的是 ( )。 （ A）集成测试 （ B）回归测试 （ C）确认测试 （ D）单元测试 47 下面不属于软件需求分析阶 段主要工作的是 ( )。 （ A）需求变更申请 （ B）需求分析 （ C）需求评审 （ D）需求获取 48 一般情况下，当对关系 R和 S进行自然连
25、接时，要求 R和 S含有一个或者多个共有的 ( )。 （ A）记录 （ B）行 （ C）属性 （ D）元组 49 有三个关系 R， S和 T如下： 则由关系 R和 S得到关系 T的操作是 ( )。 （ A）选择 （ B）差 （ C）交 （ D）并 50 有表示公司和职员及工作的三张表，职员可在多家公司兼职。其中公司 C(公司号，公司名，地址，注册资本，法人代表，员工数 )，职员 s(职员号，姓名，性别，年龄，学历 )，工作 W(公司号，职员号，工资 )，则表 W的键 (码 )为 ( )。 （ A）公司号，职员号 （ B）职员号，工资 （ C）职员号 （ D）公司号，职员号，工资 51 以下叙述
26、中，错误的是 ( )。 （ A）标准模块不属于任何一个窗体 （ B）工程文件的扩展名为 vbg （ C）窗体文件的扩展名为 frm （ D）一个应用程序可以有多个窗体 52 下列说法中，错误的是 ( )。 （ A）变量名长度不能超过 127个字符 （ B）变量名的第一个字符必须是 字母 （ C）变量名不能使用保留字 （ D）变量名只能由字母、数字和下画线组成 53 双精度浮点数的类型说明符为 ( )。 （ A） （ B） # （ C） & （ D） 54 能正确表述 “x为大于等于 5并且小于 20的数 ”的 Visual Basic表达式是 ( )。 （ A） x =5 And x 20 （
27、 B） x =5 Or x 20 （ C） 5 =x 20 （ D） 5 =x =20 55 下列运算符中，优先级别最高的是 ( )。 （ A） Not （ B） Is （ C） & （ D） And 56 Visual Basic源程序的续行符为 ( )。 （ A）冒号 (： ) （ B）分号 (； ) （ C）下画线 (_) （ D）连字符 (-) 57 下面能够将某个变量声明为局部变量的是 ( )。 （ A）在窗体模块的声明部分，用关键字 Static声明这个变量 （ B）在窗体模块的声明部分，用关键字 Dim声明这个变量 （ C）在需要使用这个变量的过程中，用关键字 Private声明
28、这个变量 （ D）在需要使用这个变量的过程中，用关键字 Public声明这个变量 58 为了读取数据，需打开 顺序文件 “D： data5 txt”，以下正确的命令是 ( )。 （ A） Open D： data5 txt For Input As #1 （ B） Open“D： data5 txt“For Input As #2 （ C） Open D： data5 txt For Output As #1 （ D） Open“D： data5 txt“For Output As #2 59 下列关于菜单项的描述中，错误的是 ( )。 （ A）菜单项不能响应 Click事件以外的其他事件 （
29、 B）每个菜单项都可以 被看作一个控件，具有相应的属性和事件 （ C）菜单项的索引号可以不连续 （ D）通过 Visible属性设置菜单项的有效性 60 单击窗体，可以弹出如图所示对话框的程序为 ( )。（ A） Private Sub Form_Click() x=InputBox(“输入界面 “， “请输入数据 “， 20) End Sub （ B） Private Sub Form_Click() x=InputBox(“请输入数据 “， “输入界面 “， 20) End Sub （ C） Private Sub Form_Click() x=InputBox(“输入界面 “， “请输入
30、数据 “， 20) End Sub （ D） Private Sub Form_Click() x=InputBox(“请输入数据 “， “输入界面 “， 20) End Sub 61 下列关于标签的描述中，错误的是 ( )。 （ A）标签可以响应 Click事件 （ B）标签不能响应 DblClick事件 （ C）为了使标签的 WordWrap属性起作用，必须将其 AutoSize属性设置为 True （ D）标签 上显示的文本就是 Caption属性的值 62 窗体上有 1个名称为 Label1的标签； 1个名称为 List1且含有若干表项的列表框。为了使得单击 List1中某个表项时，在
31、 Label1中相应地显示该表项，应使用的程序代码为 ( )。 （ A） Private Sub List1_Click() Label1 Caption=List1 Index End Sub （ B） Private Sub List1_Click() Label1 Caption=List1 ListCount End Sub （ C） Private Sub List1_Click() Label1 Caption=List1 Text End Sub （ D） Private Sub List1_Click() Label1 Caption=List1 Selected End Su
32、b 63 下列不属于计时器控件属性的是 ( )。 （ A） Enabled （ B） Interval （ C） Name （ D） Timer 64 下列描述中，错误的是 ( )。 （ A）图片框控件和图像框控件都支持 Print方法 （ B）设计阶段，可以通过 Picture属性把图形文件装入图片框 （ C）运行期间，可以用 LoadPicture甬数把图形文件装入图片框 （ D）运行期间，可以用 LoadPieture函数删除图片框中的图形 65 如果将命令按钮的访问键设置为 “D”，以下不会触发命令按钮 Click事件的操作是 ( )。 （ A）在命令按钮上单击鼠标左键 （ B）在命令
33、按钮上单击鼠标右键 （ C）将焦点移至命令按钮上，并按 Enter键 （ D）按组合键 Alt+D 66 下列关于滚动条的叙述中，错误的足 ( )。 （ A）在滚动条内单击滚动框前面或后面的部位时，会触发 Scroll事件 （ B）在滚动条内拖动滚动框时，会触发 Scroll事件 （ C）在滚动条内拖动滚动框后，会触发 Change事件 （ D）单击滚动条两端的箭头时，会触发 Change事件 67 以下关于控件的叙述中，正确的是 ( )。 （ A）列表框包含了组合框的全部功能 （ B）列表框兼有组合框和文本框的功能 （ C）列表框和组合框具有完全不同的功能 （ D）组合框兼有列表框和文本框的
34、功能 68 以下可以作为 “容器 ”的控件是 ( )。 （ A）框架 （ B）图像框 （ C）标签 （ D）命令按钮 69 判断单选按钮是否被选中的属性为 ( )。 （ A） Selected （ B） Checked （ C） Value （ D） Index 70 对于某些控件，只要将其 Style属性设置为 1，则可以在该控件上使用 Picture属性显示图片。以下不具备这一使用规则的控件是 ( )。 （ A）命令按钮 （ B）单选按钮 （ C）复选按钮 （ D）框架 71 编写如下程序： Private Sub Command1_Click() Dim x As String， y A
35、s String x=Right(“abcd“， 2) y=Mid(“dcba“， 2， 3) If x y Then Print x+y Else Print y+x End If End Sub 程序运行后，单击命令按钮 Command1，输出结果为 ( )。 （ A） cdcba （ B） cbacd （ C） cbacd （ D） cbcd 72 编写如下程序： Private Sub Command1_Click() For i=1 To 4 Print Space(12-3*i)； For j=1 To i Print j； Next j For k=i-1 To 1 Step-1
36、 Print k； Next k Print Next i End Sub程序运行后，单击命令按钮 Command1，输出结果为 ( )。73 编写如下程序： Private Sub Command1_Click() Dim m As Integer， n As Integer m=2： n=1 Select Case m Case 1 Select Case n Case 1 Print“AAA“ Case 2 Print“BBB“ End Select Case 2 Print“CCC“ End Select End Sub 程序运行后，单击命令按钮 Command1，输出结果为 ( )。
37、 （ A） AAA （ B） BBB （ C） CCC （ D） 1 74 编写如下程序： Private Sub Command1_Click() Dim 13 As Integer Static s As Integer For n=1 To 3 s=s+n Next Print s End Sub 程序运行后，第三次单击命令按钮 Command1时，输出结果为 ( )。 （ A） 3 （ B） 6 （ C） 9 （ D） 18 75 编写如下程序： Private Sub Command1_Click() Dim x As Integer， y As Integer x=10 y=20
38、Call fun1(x， y) Print x； y End Sub Private Function fun1(ByVal m As Integer， n As Integer)As Integer m=m*m n=n+n End Function 程序运行后，单击命令按钮 Command1，输出结果为 ( )。 （ A） 10 25 （ B） 10 40 （ C） 100 25 （ D） 100 40 76 编写如下程序： Private Sub Command1_Click() Dim x As Integer， y As Integer x=1： y=1 Do y=x*y If y 1
39、0 Then Print x， y Exit Do Else x=x+3 End If Loop While x =10 End Sub 运行程序，循环实际执行次数为 ( )。 （ A） 0 （ B） 2 （ C） 3 （ D） 4 77 窗体上有 2个名称分别为 Text1和 Text2的文本框。编写如下程序： Private Sub Form_Load() Text1 Text=“ Text2 Text=“ End Sub Private Sub Command1_Click() Print Text1 Text+Text2 Text End Sub 程序运行后，在 Text1和 Text
40、2中依次输入 100和 200，并单击命令按钮Command1，则输出结果为 ( )。 （ A） 100 （ B） 200 （ C） 300 （ D） 100200 78 编写如下程序： Dim num As Integer， r As Integer， n As Integer， i As Integer Dim arr(5)As Integer Private Sub Command1_Click() num=12； r=2 Call Sub1(num， r， n) For i=n To 1 Step-1 Print arr(i)； Next i End Sub Sub Sub1(d As
41、 Integer， r As Integer， k As Integer) k=0 Do While d 0 k=k+1 arr(k)=d Mod r d=d r Loop End Sub 程序运行后，单击命令按钮 Command1，输出结果为 ( )。 （ A） 1 1 0 0 （ B） 0 0 1 1 （ C） 0 1 0 1 （ D） 1 0 1 0 79 编写如下程序： Private Sub Command1|_Click() Dim n As Long， s As String n=InputBox(“输入一个数 “) Do While n 0 Plint n 10 Mod 10： Print n Mod 10； n=n 100 Loop Print s End Sub 程序运行后，单击命令按钮 Command1，并输入数值 123456，则输出结果为 ( )。 （ A） 6 5 4 3 2 1 （ B） 5 6 3 4 1 2 （ C） 6 4 2 5 3 1 （ D） 6 1 5 2 4 3 80 编写如下程序： Private Sub Command1_Click() Dim a(3， 3)As Integer Dim i As Integer， j As Integer
