1、国家二级 VB机试（选择题）模拟试卷 109 及答案与解析 一、选择题 1 支持子程序调用的数据结构是 ( )。 （ A）栈 （ B）树 （ C）队列 （ D）二叉树 2 下列叙述中正确的是 ( )。 （ A）栈是 “先进先出 “的线性表 （ B）队列是 “先进后出 “的线性表 （ C）循环队列是非线性结构 （ D）有序线性表既可以采用顺序存储结构，也可以采用链式存储结构 3 对于循环队列，下列叙述中正确的是 ( )。 （ A）队头指针是固定不变的 （ B）队头指针一定大于队尾指针 （ C）队头指针一定小于 队尾指针 （ D）队头指针可以大于队尾指针，也可以小于队尾指针 4 算法的空间复杂度是
2、指 ( )。 （ A）算法在执行过程中所需要的计算机存储空间 （ B）算法所处理的数据量 （ C）算法程序中的语句或指令条数 （ D）算法在执行过程中所需要的临时工作单元数 5 算法的有穷性是指 ( )。 （ A）算法程序的运行时间是有限的 （ B）算法程序所处理的数据量是有限的 （ C）算法程序的长度是有限的 （ D）算法只能被有限的用户使用 6 对长度为 n的线性表排序，在最坏情况下，比较次数不是 n(n 1)/2的排序方法是 ( )。 （ A）快速排序 （ B）冒泡排序 （ C）直接插入排序 （ D）堆排序 7 在面向对象方法中，不属于 “对象 “基本特点的是 ( )。 （ A）一致性
3、（ B）分类性 （ C）多态性 （ D）标识唯一性 8 一间宿舍可住多个学生，则实体宿舍和学生之间的联系是 ( )。 （ A）一对一 （ B）一对多 （ C）多对一 （ D）多对多 9 有两个关系 R， S如下： 由关系 R通过运算得到关系 S，则所使用的运算为 ( )。 （ A）选择 （ B）投影 （ C）插入 （ D）连接 10 将 E R图转换为关系模式时，实体和联系都可以表示为 ( )。 （ A）属性 （ B）键 （ C）关系 （ D）域 11 在 VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是 ( )。 12 设 x是整型变量，与函数 IIf(x0， x
4、， x)有相同结果的代数式是 ( )。 （ A） |x| （ B） |x| （ C） x （ D） x 13 以下选项中，不合法的 Visual Basic的变量名是 ( )。 （ A） a5b （ B） _xyz （ C） a_b （ D） andif 14 以下数组定义语句中，错误的是 ( )。 （ A） Static a(10)As Integer （ B） Dim c(3， 1 To 4) （ C） Dim d( 10) （ D） Dim b(0 To 5， 1 To 3)As Integer 15 以下关于过程及过程参数的描述中，错误的是 ( )。 （ A）调用过程时可以用控件名称作
5、为实际参数 （ B）用数组作为过程的参数时，使用的是 “传地址 “方式 （ C）只有函数过程能够将过程中处理的信息传回到调用的程序中 （ D）窗体 (Form)可以作 为过程的参数 16 在窗体上有两个名称分别为 Text1、 Text2的文本框，一个名称为 Command1的命令按钮。运行后的窗体外观如图所示。 设有如下的类型和变量声明： Private Type Person name As String*8 major As String*20End TypeDim p As Person设文本框中的数据已正确地赋值给 Person类型的变量 p，当单击 “保存 “按钮时，能够正确地把变
6、量中的数据写入随机文件Test2.dat中的程序段是 ( )。 （ A） Open “c： Test2.dat“ For Output As #1 Put #1， 1， p Close #1 （ B） Open “c： Test2.dat“ For Random As #1 Get #1， 1， p Close #1 （ C） Open “c： Test2.dat“ For Random As #1 Len Len(p) Put #1， 1， p Close #1 （ D） Open “c： Test2.dat“ For Random As #1 Len Len(p) Get #1， 1， p
7、 Close #1 17 下面有关标准模块的叙述中，错误的是 ( )。 （ A）标准模块不完全由代码组成，还可以有窗体 （ B）标准模块中的 Private过程不能被工程中的其他模块调用 （ C）标准模块的文件扩展名为 .bas （ D）标准模块中的全局变量可以被工程中的任何模块引用 18 可以产生 30 50(含 30和 50)之间的随机整数的表达式是 ( )。 （ A） Int(Rnd*21 30) （ B） Int(Rnd*20 30) （ C） Int(Rnd*50 Rnd*30) （ D） Int(Rnd*30 50) 19 下面程序运行时，若输入 395 ，则输出结果是 ( )。
8、Private Sub Command1_Click() Dim x% x InputBox(“请输入一个 3位整数 “) Print x Mod 10， x100， (x Mod 100)10 End Sub （ A） 3 9 5 （ B） 5 3 9 （ C） 5 9 3 （ D） 3 5 9 20 某人编写了下面的程序，希望能把 Text1文本框中的内容写到 out.txt文件中： Private Sub Command1_Click() Open “out.txt“ For Output As #2 Print “Text1“ Close #2 End Sub 调试时发现没有达到目的，
9、为实现上述目的，应做的修改是 ( )。 （ A）把 Print “Text1“ 改为 Print #2， Text1 （ B）把 Print “Text1“ 改为 Print Text1 （ C）把 Print “Text1“ 改为 Write “Text1“ （ D）把所有 #2 改为 #1 21 为了使文本框同时具有垂直和水平滚动条，应先把 MultiLine属性设置为True，然后再把 ScrollBars属性设置为 ( )。 （ A） 0 （ B） 1 （ C） 2 （ D） 3 22 文本框 Text1的 KeyDown 事件过程如下： Private Sub Text1_KeyDo
10、wn(KeyCode As Integer， Shift As Integer) . End Sub 其中参数 KeyCode的值表示的是发生此事件时 ( )。 （ A）是否按下了 Alt键或 Ctrl键 （ B）按下的是哪个数字键 （ C）所按的键盘键的键码 （ D）按下的是哪个鼠标键 23 在窗体上画两个单选按钮，名称分别为 Option1、 Option2，标题分别为 “宋体 “和“黑体 “； 1个复选框 (名称为 Check1，标题为 “粗体 “)和 1个文本框 (名称为 Text1，Text属性为 “改变文字字体 “)，窗体外观如图所示。程序运行后，要求 “宋体 “单选按钮和 “粗体
11、 “复选框被选中，则以下能够实现上述操作的语句序列是 ( )。（ A） Option1.Value False Check1.Value True （ B） Option1.Value True Check1.Value 0 （ C） Option2.Value False Check1.Value 2 （ D） Option1.Value True Check1.Value 1 24 以下说法中正确的是 ( )。 （ A）当焦点在某个控件上时，按下一个字母键，就会执行该控件的 KeyPress事件过程 （ B）因为窗体不接受焦点，所以窗体不存在自己的 KeyPress事件过程 （ C）若按下
12、的键相同， KeyPress事件过程中的 KeyAscii参数与 KeyDown事件过程中的 KeyCode参数的值也相同 （ D）在 KeyPress事件过程中， KeyAscii参数可以省略 25 下列关于通用对话框 CommonDialog1的叙述中，错误的是 ( )。 （ A）只要在 “打开 “对话框中选择了文件，并单击 “打开 “按钮，就可以将选中的文件打开 （ B）使用 CommonDialog1.ShowColor方法，可以显示 “颜色 “对话框 （ C） CancelError属性用于控制用户单击 “取消 “按钮关闭对话框时，是否显示出错警告 （ D）在显示 “字体 “对话框前
13、，必须先设置 CommonDialog1的 Flags 属性，否则会出错 26 在利用菜单编辑器设计菜单时，为了把组合键 “Alt X“设置为 “退出 (X)“菜单项的访问键，可以将该菜单项的标题设置为 ( )。 （ A）退出 (X&) （ B）退出 (&X) （ C）退出 (X#) （ D）退出 (#X) 27 以下能够触发文本框 Change事件的操作是 ( )。 （ A）文本框失去焦点 （ B）文本框获得焦点 （ C）设置文本框的焦点 （ D）改变文本框的内容 28 假定在图片框 Picture1中装入了一个图片，在程序运行中，为了清除该图片 (注意，清除图片，而不是删除图片框 )，应采
14、用的正 确方法是 ( )。 （ A）单击图片框，然后按 Del键 （ B）执行语句 Picture1.Picture LoadPicture(“) （ C）执行语句 Picture1.Picture “ （ D）执行语句： Picture1.Cls 29 窗体上有一个名称为 Frame1的框架 (如图 )，若要把框架上显示的 “Frame1“改为汉字 “框架 “，下面正确的语句是 ( )。 （ A） Frame1.Name “框架 “ （ B） Frame1.Caption “框架 “ （ C） Frame1.Text “框架 “ （ D） Frame1.Value “框架 “ 30 在窗体上
15、画一个名称为 Combo1的组合框，名称为 Text1的文本框，以及名称为Command1的命令按钮，如图所示。 运行程序，单击命令按钮，将文本框中被选中的文本添加到组合框中，若文本框中没有选中的文本，则将文本框中的文本全部添加到组合框中。命令按钮的事件过程如下： Private Sub Command1_Click() If Text1.Se1Length0 Then Else Combo1.AddItem Text1 End IfEnd Sub程序中横线处应该填写的是( )。 （ A） Combo1.AddItem Text1.Text （ B） Combo1.AddItem Text1.
16、SelStart （ C） Combo1.AddItem Text1.SelText （ D） Combo1.AddItem Text1.SelLength 31 设有如下一段程序： Private Sub Command1_Click() Static a As Variant a Array(“one“， “two“， “three“， “four“， “five“) Print a(3) End Sub 针对上述事件过程，以下叙述中正确的是 ( )。 （ A）变量声明语句有错，应改为 Static a(5)As Variant （ B）变量声明语句有错，应改为 Static a （ C）
17、可以正常运行，在窗体上显示 three （ D）可以正常运行，在窗体上显示 four 32 求 1！ 2！ 10！的程序如下： Private Function s(x As Integer) f 1 For i 1 To x f f * i Next s f End Function Private Sub Command1_Click() Dim i As Integer Dim y As Long For i 1 To 10 Next Print y End Sub 为实现功能要求，程序的横线处应该填入的内容是 ( )。 （ A） Call s(i) （ B） Call s （ C） y
18、 y s(i) （ D） y y s 33 窗体上有两个名称分别为 Text1、 Text2的文本框。 Text1的 KeyUp事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer， Shift As Integer) Dim c As String c UCase(Chr(KeyCode) Text2.Text Chr(Asc(c) 2) End Sub 当向文本框 Text1中输入小写字母 a时，文本框 Text2中显示的是 ( )。 （ A） A （ B） a （ C） C （ D） c 34 设窗体上有一个文本框 Text1和一个命令按钮
19、 Command1，并有以下 事件过程： Private Sub Command1_Click() Dim s As String， ch As String s “ For k 1 To Len(Text1) ch Mid(Text1， k， 1) s ch s Next k Text1.Text s End Sub 程序执行时，在文本框中输入 “Basic“，然后单击命令按钮，则 Text1中显示的是( )。 （ A） Basic （ B） cisaB （ C） BASIC （ D） CISAB 35 假定有以下函数过程： Function Fun(S As String)As Strin
20、g Dim s1 As String For i 1 To Len(S) s1 LCase(Mid(S， i， 1) s1 Next i Fun s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String， Str2 As String Str1 InputBox(“请输入一个字符串 “) Str2 Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串 “abcdefg“，则单击 “确定 “按钮后在窗体上的输出结果为 (
21、 )。 （ A） ABCDEFG （ B） abcdefg （ C） GFEDCBA （ D） gfedcba 36 为计算 an的值，某人编写了函数 power如下： Private Function power(a As Integer， n As Integer)As Long Dim s As Long p a For k 1 To n p p*a Next k power p End Function 在调试时发现是错误的，例如 Print power(5,4)的输出应该是 625，但实际输出是 3125。程序需要修改。下面的修改方案中有 3个是正确的，错误的一个是 ( )。 （ A
22、）把 For k 1 To n 改为 For k 2 To n （ B）把 p p * a 改为 p p n （ C）把 For k 1 To n 改为 For k 1 To n 1 （ D）把 p a 改为 p 1 37 窗体上有名称分别为 Text1、 Text2的文本框，名称为 Command1的命令按钮。运行程序，在 Text1中输入 “FormList“，然后单击命令按钮，执行如下程序： Private Sub Command1_Click() Text2.Text UCase(Mid(Text1.Text， 5， 4) End Sub 在 Text2中显示的是 ( )。 （ A）
23、form （ B） list （ C） FORM （ D） LIST 38 窗体上有名称为 Command1的命令按钮，名称分别为 List1、 List2的列表框，其中 List1的 MultiSelect属性设置为 1(Simple)，并有如下事件过程： Private Sub Command1_Click() For i 0 To List1.ListCount 1 If List1.Selected(i) True Then List2.AddItem Text End If Next End Sub 上述事件过程的功能是将 List1中被选中的列表项添加到 List2中。运行 程序时
24、，发现不能达到预期目的，应做修改，下列修改中正确的是 ( )。 （ A）将 For循环的终值改为 List1.ListCount （ B）将 List1.Selected(i) True 改为 List1.List(i).Selected True （ C）将 List2.AddItem Text 改为 List2.AddItem List1.List(i) （ D）将 List2.AddItem Text 改为 List2.AddItem List1.ListIndex 39 窗体上有一个名称为 Text1的文本 框，一个名称为 Command1的命令按钮。窗体文件的程序如下： Privat
25、e Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a InputBox(“) If y.a2 y.a / 2 Then y.b y.a * y.a Else y.b Fix(y.a / 2) End If Text1.Text y.b End Sub 对 以上程序，下列叙述中错误的是 ( )。 （ A） x是用户定义的类型 （ B） InputBox函数弹出的对话框中没有提示信息 （ C）若输入的是偶数， y.b的值为该偶数的平方 （ D） Fix(y.a / 2)把 y.
26、a / 2的小数部分四舍五入，转换为整数返回 40 设工程文件包含两个窗体文件 Form1.frm、 Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为 Command1的命令按钮。 Form1的代码如下： Public x As Integer Private Sub Form_Load() x 1 y 5 End Sub Private Sub Command1_Click() Form2.Show End Sub Form2的代码如下： Private Sub Command1_Click() Print Form1.x， y End Sub Mod
27、ule1的代码如下： Public y As Integer 运行以上程序，单击 Form1的命令按钮 Command1，则显示 Form2；再单击 Form2上的命令按钮 Command1，则窗体上显示的是 ( )。 （ A） 1 5 （ B） 0 5 （ C） 0 0 （ D）程序有错 41 下列叙述中正确的是 ( )。 （ A）一个算法的空间复杂度大，则其时间复杂度也必定大 （ B）一个算法的空间复杂度大，则其时间复杂度必定小 （ C）一个算法的时间复杂度大，则其空间复杂度必定小 （ D）算法的时间复杂度与空间复杂度没有直接关系 42 下列叙述中正确的是 ( )。 （ A）循环队列中的元
28、素个数随队头指针与队尾指针的变化而动态变化 （ B）循环队列中的元素个数随队头指针的变化而动态变化 （ C）循 环队列中的元素个数随队尾指针的变化而动态变化 （ D）以上说法都不对 43 一棵二叉树中共有 80个叶子节点与 70个度为 1的节点，则该二叉树中的总节点数为 ( )。 （ A） 219 （ B） 229 （ C） 230 （ D） 231 44 对长度为 10的线性表进行冒泡排序，最坏情况下需要比较的次数为 ( )。 （ A） 9 （ B） 10 （ C） 45 （ D） 90 45 构成计算机软件的是 ( )。 （ A）源代码 （ B）程序和数据 （ C）程序和文档 （ D）程序
29、、数据及相关文档 46 软件生命周期可分为定义阶段、开发阶段和维护阶段，下面不属于开发阶段任务的是 ( )。 （ A）测试 （ B）设计 （ C）可行性研究 （ D）实现 47 下面不能作为结构化方法软件需求分析工具的是 ( )。 （ A）系统结构图 （ B）数据字典 (DD) （ C）数据流程图 (DFD图 ) （ D）判定表 48 在关系模型中，每一个二维表称为一个 ( )。 （ A）关系 （ B）属性 （ C）元组 （ D）主码 (键 ) 49 若实体 A和 B是一对多的联系，实体 B和 C是一对一的联系，则实体 A和 C的联系是 ( )。 （ A）一对一 （ B）一对多 （ C）多对一
30、 （ D）多对多 50 有三个关系 R、 S和 T如下： 则由关系 R和S得到关系 T的操作是 ( )。 （ A）选择 （ B）投影 （ C）交 （ D）并 51 在 visual Basic中，不能关闭的窗口是 ( )。 （ A）窗体设计器窗口 （ B）工程窗口 （ C）属性窗口 （ D）立即窗口 52 下列说法中，错误的是 ( )。 （ A）变量名长度不能超过 255个字符 （ B）变量名的第一个字符可以是字母或数字 （ C）变量名只 能由字母、数字和下画线组成 （ D）变量名不能使用保留字 53 长整型常数的类型说明符为 ( )。 （ A） （ B） # （ C） & （ D） 54 产
31、生 100以内 (不含 100)2位随机整数的 Visual Basic表达式是 ( )。 （ A） Int(Rnd(1)*91)+10 （ B） Int(Rnd(1)*90)+10 （ C） Int(Rnd(1)*91)+11 （ D） Int(Rnd(1)*90)+11 55 下列运算符中，优先级别最低的是 ( )。 （ A） Not （ B） Like （ C） Mod （ D） And 56 输入 Visual Basic源程序时，若一个命令行中包含两个语句，则两个语句之间的分隔符应使用 ( )。 （ A）冒号 (： ) （ B）分号 (； ) （ C）下画线 (_) （ D）连字符
32、(-) 57 在标准模块中，将 a定义为全局整型变量的语句是 ( )。 （ A） Static a As Integer （ B） Dim a As Integer （ C） Private a As Integer （ D） Public a As Integer 58 为了保存数据，需打开顺序文件 “E： UserData txt”，以下正确的命令是( )。 （ A） Open E： UserData txt For Input As #1 （ B） open“E： UserData txt“For Input As #2 （ C） Open E： UserData txt For Out
33、put As #1 （ D） Open“E： UserDam txt“For Output As #2 59 下列关于菜单项的描述中，错误的是 ( )。 （ A）通过内缩符号 ( )设置菜单项的层次 （ B）通过 Enabled属性设置菜单项的有效性 （ C）菜单项的索引号可以不连续 （ D）菜单项的索引号必须从 1开始 60 对于含有多个窗体的工程而言，以下叙述中正确的是 ( )。 （ A）没有指定唐动窗体时，系统自动将最后一个添加的窗体设置为启动窗体 （ B）启动窗体可以通过 “工程属性 ”对话框指定 （ C） Load方法兼有装入和显示窗体两种功能 （ D） Hide方法可以将指定的窗体
34、从内存中清除 61 命令按钮不支持的事件为 ( )。 （ A） Click （ B） DblClick （ C） GotFocus （ D） MouseMove 62 已知列表框控件 List1中已放入若干表项，下列关于 List1的叙述中错误的是( )。 （ A）第一个表项的序号为 0 （ B）没有选中任何一个表项时， ListIndex 属性的值为 -1 （ C）最后一个表项的序号为 ListCount （ D）可用 MultiSelect属性设置是否可多选 63 下列不属于计时器控件属性的是 ( )。 （ A） Enabled （ B） Interval （ C） Index （ D）
35、visible 64 窗体上已有 1个名称为 Pieture1的图片框，要求实现下面 2个功能之一： (1)在窗体上移动鼠标时，立即将 Pieture1显示在鼠标位置 (2)在窗体上单击鼠标时，立即将 Picture1显示在鼠标位置 下面不能实现上述任何功能的事件过程是 ( )。 （ A） Private Sub Form_NouseDown(Button As IntSger， Shift As Integer， X As Single， Y As Single) Pieture1 Move X， Y End Sub （ B） Private Sub Form_MouseUp(Button
36、As Integer， Shift As Integer， X As Single，Y As Sinsle) Pieture1 Move X， Y End Sub （ C） Private Sub Form_MouseDown(Button As Integer,Shift As Integer， X As Single) Picture1 CurrentX=X Picture1 CurrentY=Y End Sub （ D） Private Sub Form_MouseMove(Button As Integer， Shift As Integer， X As Single， Y As Si
37、ngle) Picture1 Move X， Y End Sub 65 以下控件中，能显示滚动条的是 ( )。 （ A）文本框 （ B）形状 （ C）标签 （ D）图片框 66 下列关于水平滚动条的叙述中，错误的是 ( )。 （ A） Value属性值表示单击滚动条两端的箭头时， 滚动框向左或向右移动的增量 （ B） Scroll事件在鼠标拖动滚动框时产生 （ C）用鼠标拖动滚动框后，会触发 Change事件 （ D）单击滚动条两端箭头时，会触发 Change事件 67 下列关于控件数组的叙述中，正确的是 ( )。 （ A）控件数组可以由不同类型的控件组成 （ B）控件数组元素的最小下标值为
38、1 （ C）在设计阶段，可以改变控件数组元素的 Index属性值 （ D）控件数组的名字由 Caption属性指定 68 判断复选框是否被选中的属性为 ( )。 （ A） Selected （ B） Checked （ C） Value （ D） Index 69 命令按钮、单选按钮、复选框都可以通过 Picture属性在控件上显示图片，但需事先设置某一属性，该属性为 ( )。 （ A） Appearance （ B） Style （ C） DisabledPicture （ D） DownPicture 70 以下不可以作为 “容器 ”的控件是 ( )。 （ A）图片框 （ B）图像框 （
39、C）框架 （ D）窗体 71 编写如下程序： Private Sub Command1_Click() Dim a As Integer， b As Integer a=3 b=2 If a * b 10 Then b=b+1 Else b=b-1 Print b-a 0 End Sub 程序运行后，单击命令按钮 Command1，输出结果为 ( )。 （ A） True （ B） False （ C） 1 （ D） -1 72 编写如下程序： Private Sub Command1_Click() Dim score As Integer score=86 If score 85 Then
40、 r=1 ElseIf score 60， Then r=2 Else r=0 End Tf Print r End Sub 程序运行后，单击命令按钮 Command1，输出结果为 ( )。 （ A） 0 （ B） 1 （ C） 2 （ D） 86 73 编写如下程序： Private Sub Command1_Click() Dim n As Integer， t As Long Static s As Integer t=1 For n=1 To 3 t=t*n s=s+t Next Print s End Sub 程序运行后，第二次单击命令按钮 Command1时，输出结果为 ( )。
41、（ A） 6 （ B） 9 （ C） 12 （ D） 18 74 编写如下程序： Private Sub Command1-Click() Dim X As Integer， Y As Integer x=1 y=1 Do y=x*y If y 10 Then Exit Do Else x=x+3 End If Loop Until x =10 Print x； y End Sub 程序运行后，单击命令按钮 Command1，输出结果为 ( )。 （ A） 1 1 （ B） 4 1 （ C） 4 2 （ D） 7 28 75 编写如下程序： Private Sub Command1_Click
42、() Dim a(10)As String s=“123456“ n=kn(s) For k=1 To n a(k)=Mid(s， k， 1) Next k For i=1 To n 2 t=a(i) a(i)=a(n-i+1) a(n-i+1)=t Next i For k=1 To n Print a(k)； Next k End Sub 程序运行后，单击命令按钮 Command1，输出结果为 ( )。 （ A） 654321 （ B） 123456 （ C） 654123 （ D） 123654 76 编写如下程序： Private Sub Command1_Click() Dim x
43、As Integer x=10 Print fun1(x， 12)+x End Sub Private Function fun1(m As Integer， n As Integer)As Integer If n 10 Then m=n fun1=m+n End Function 程序运行后，单击命令按钮 Command1，输出结果为 ( )。 （ A） 30 （ B） 32 （ C） 34 （ D） 36 77 编写如下程序： Prirate Sub Command1_Click() Dim Bum As Integer Dim k As Integer， n As Integer nu
44、m=InputBox(“请输入一个正整数： “) k=num n=2 Do Do While num Mod 12=0 Print n； num=num n Loop n=n+1 Loop Until n k 2 End Sub 程序运行后，单击命令按钮 Command1，并输入数值 20，则输出结果为 ( )。 （ A） 2 2 5 （ B） 2 3 4 （ C） 2 3 4 5 （ D） 2 5 78 编写如下程序： Private Sub Command1_Click() Dim n As Long， s As String n=InputBox(“输入一个数 “) Do While n
45、 0 s=s& n Mod 10 s=s&n 10 Mod 10 n=n 100 Loop Print s End Sub 程序运行后，单击命令按钮 Command1，并输入数值 123456，则输出结果为 ( )。 （ A） 654311 （ B） 563412 （ C） 642531 （ D） 615243 79 编写如下程序： Private Sub Command1_Click() Dim a(3， 3) As Integer Dim b(3， 3) As Integer For i=1 To 3 For j =1 To 3 a(i， j)=i+j b(i， j)=a(i， j)+i*(j-1) Next j Next i For i=1 To 3 For j=1 To 3 Print b(i， j)； Next j Print Next i End Sub 程序运行后，单击命令按钮 Command1，输出结果为 ( )。 （ A） 2 3 4 3 4 5 3 6 9 （ B） 2 4 6
