1、二级 VISUAL+BASIC 笔试 74 及答案解析(总分：92.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.要存放如下矩阵的数据，在不浪费存储空间的基础上，能实现声明的语句是 1 2 3 2 4 6 3 6 9（分数：2.00）A.Dim A(9)As IntegerB.Dim A(3，3)As IntegerC.Dwn A(-1 to 1，-3 to -1)As SingleD.Dim A(-3 to -1，1 to 3)As Integer2.E-R 模型属于（分数：2.00）A.概念模型B.层次模型C.网状模型D.关系模型3.在窗体上画一个名称为
2、 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() m=1:n=0 Call sub) (m)，n) m=m+2 n=n+m Print m; n End Sub Private Sub Subl(x， y) x=x+2 y=y+x End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.5 6B.3 6C.0 1D.2 34.决定窗体有无控制菜单的属性是（分数：2.00）A.ControlBoxB.MinButtonC.EnabledD.MaxButton5.在窗体上画一个文本框，然后编写如下事件过程：
3、 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(Ucase(char) Print String(6，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则在窗体上显示的内容为（分数：2.00）A.aB.AC.aaaaaaD.AAAAAA6.在窗体上添加一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，编写如下事件过程： Private Sub Command1_Click() Text1.Te
4、xt=“计算机” Me.Text1=“等级” Text1=“考试” End Sub 程序运行后如果单击命令按钮，则在文本框中显示的是（分数：2.00）A.计算机B.等级C.考试D.出错7.窗体上有一个按钮和一个列表框，执行下列程序后，输出的结果为 Private Sub Command1_Click() List1.AddItem “Visual“ List1.AddItem “Basic“ List1.AddItem “Programming“, 1 Print list1.List(2) End Sub（分数：2.00）A.VisualB.BasicC.ProgrammingD.28.以下
5、的描述中，不是线性表顺序存储结构特征的是（分数：2.00）A.不便于插入和删除B.需要连续的存储空间C.可随机访问D.需另外开辟空间来保存元素之间的关系9.结构化程序设计主要强调的是（分数：2.00）A.程序的规模B.程序的易读性C.程序的执行效率D.程序的可移植性10.在窗体上添加一个命令按钮(其 Name 属性为 Command1),然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array(4, 3, 2, 1) j = 1 For i = 4 To 1 Step -1 s = s + a(i)*
6、j j = j * 10 Next i Print s End Sub 运行上面的程序、单击命令按钮，其输出结果是（分数：2.00）A.4321B.1234C.34D.1211.编写如下事件过程： Private Sub Form Click() Dim Char As String，i As Integer Const ch$=“#“ msg$= “Enter a String：“ char=InputBox$(msg$) n=Len(Char) For i=1 To n If Mid$(char，i，1)=ch$ Then Exit For End If Next i Print i -
7、1 End Sub 其中 InputBox 函数的功能是弹出一个输入对话框，按所给参数给出提示，等待用户输入，并返回输入的内容。程序运行后，单击窗体，如果在输入对话框内输入字符串“12ab$%*/#fg”，则窗体上输出（分数：2.00）A.2B.2C.5D.812.已知一个有序表为(14，21，27，39，45，53，66，80，91，119，150)，当使用二分法查找值为 27 的元素时，查找成功的比较次数为（分数：2.00）A.1B.2C.3D.513.阅读下面的程序； Function Func(x As Integer，y As Integer)As Integer Dim n As
8、Integer Do While n = 4 x=x + y n = n + 1 Loop Func=x End Function Private Sub Command1_Click() Dim x As Integet, y As Integer Dim n As Integer，z As Integer x=1 y=1 For n = 1 To 6 z=Func(x，y) Next n Print z End Sub 程序运行后，单击命令按钮，输出的结果为（分数：2.00）A.16B.21C.26D.3114.以下叙述中错误的是（分数：2.00）A.下拉式菜单和弹出式菜单都用编辑器建立B
9、.在多窗体程序中，每个窗体都可以建立自己的菜单系统C.除分隔线外，所有菜单项都能接收 Click 事件D.如果将一个菜单项的 Enabled 属性设置为 False，则该菜单项不可见15.在窗体上画一个名称为 Command1 的命令按钮和 3 个名称分别为 Label1, Label2, Label3 的标签，然后编写如下代码： Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n= 10 z = n + z y = y + z x = x + z Label1.Cap
10、tion = x Label2.Caption = y Label3.Caption = z End Sub 运行程序，连续三次单击命令按钮后，则 3 个标签中显示的内容分别是（分数：2.00）A.10 10 10B.30 30 30C.30 30 10D.10 30 3016.设待排序关键码序列为(33，18，9，25，67，82，53，95，12，70)，要按关键码值递增的顺序排序，采取以第一个关键码为分界元素的快速排序法，第一趟排序完成后关键码 33 被放到了第 _ 个位置。（分数：2.00）A.3B.5C.7D.917.数据库系统的核心是（分数：2.00）A.数据库B.数据库管理系统C
11、.数据模型D.软件工具18.在程序代码中将图片文件 mypic.jpg 装入图片框 Picture1 的语句是（分数：2.00）A.Picture1.Picture=“mypijpg“B.Picture1.Image=“mypijpg“C.Picture1.Picture=LoadPicture(“mypijpg“)D.LoadPicture(“mypijpg“)19.关于模块设计的原则，以下叙述中正确的是（分数：2.00）A.模块的内聚性高，模块之间的耦合度高B.模块的内聚性高，模块之间的耦合度低C.模块的内聚性低，模块之间的耦合度高D.模块的内聚性低，模块之间的耦合度低20.表达式 12+
12、31/6*5/10 Mod 4 的值是（分数：2.00）A.14B.22C.12D.021.假定编写了如下事件过程： Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) If Button=2 Then Print “aaaa“ End If End Sub 程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为（分数：2.00）A.左键B.右键C.同时按下左、右键D.按什么键都不显示22.有下列程序： Option Base 0 Private Sub Comman
13、d1_Click() Dim City As Variant x = Array(“Visual“，“Basic“，“Microsoft“，“Programming“) Print x(2) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是（分数：2.00）A.MicrosonB.错误提示C.VisualD.Basic23.下面四个选项，不是事件的是（分数：2.00）A.LoadB.EnabledC.UnloadD.DblClick24.下列关于栈的描述中错误的是（分数：2.00）A.栈是先进后出的线性表B.栈只能顺序存储C.栈具有记忆作用D.对栈的插入与删除操作中，不需要改变
14、栈底指针25.以下 4 组语句中不正确的是（分数：2.00）A.A=1:A=A+1B.Const A=1:A=A+110，10C.A=B=1D.Print A=B26.运行以下程序后，输出的图形是 Private Sub Command1_Click() Line(500，500)-(1000，500) Line(750，300)-(750，700) End Sub（分数：2.00）A.一条折线B.两条分离的直线段C.一个伞形图形D.一个十字形图形27.软件工程包括软件开发技术和软件工程管理。下面属于软件工程管理内容的是（分数：2.00）A.软件工具B.软件工程环境C.开发方法D.软件工程经济
15、学28.当关闭窗体(Form1)或执行 Unload 语句时所能触发的事件是（分数：2.00）A.Form1_UnloadB.Form1_UnloadC.Form1_CloseD.Form1_End29.设 s=“Visual Basic Programming“，则以下使变量 x 的值为“Basic”的语句是（分数：2.00）A.x=Left(s，6)B.x=Mid(s，6)C.x=Right(s，6)D.x=Mid(s，8，6)30.通用过程可以通过执行“工具”菜单中的 _ 命令来建立。（分数：2.00）A.添加过程B.通用过程C.添加窗体D.添加模块31.Visual Basic 集成开
16、发环境可以（分数：2.00）A.编辑、调试、运行程序，但不能生成执行程序B.编辑、生成可执行程序、运行程序，但不能调试程序C.编辑、调试、生成可执行程序，但不能运行程序D.编辑、调试、运行程序，也能生成执行程序32.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer x = 1 Do Until x 8 Print x； x = x + 3.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.1 4.4 6.8B.1 3 5C.1 4
17、 7D.无数据输出33.单击滚动条上的滚动箭头时，产生的事件是（分数：2.00）A.ClickB.ScrollC.ChangeD.Move34.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后编写如下程序： Private Sub Command1_Click() Dim x, y, z As Integer x = 1:y = 2:z = 3 Text1. Text= “ “ Call P1(x, y, z) Text1.Text = Str(z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Inte
18、ger, c As Integer) a= a + b b= b + c c= a + b End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（分数：2.00）A.1B.3C.8D.Str(35.在一棵度为 3 的树中，度为 3 的结点个数为 2，度为 2 的结点个数为 1，则度为 0 的结点个数为（分数：2.00）A.4B.5C.6D.7二、B填空题/B(总题数：11，分数：22.00)36.问题处理方案的正确而完整的描述称为U 【1】 /U。（分数：2.00）填空项 1:_37.对于给定的一组关键字(12，2，16，30，8，28，4，10，20，6，18)，按照希尔排序(
19、增量为 5)算法进行递增排序，第一趟排序后得到的结果是U 【2】 /U。（分数：2.00）填空项 1:_38.在面向对象方法中，类的实例称为U 【3】 /U。（分数：2.00）填空项 1:_39.测试的目的是暴露错误，评价程序的可靠性；而U 【4】 /U的目的是发现错误的位置并改正错误。（分数：2.00）填空项 1:_40.数据库在经过一定时间运行后，其性能会逐步下降，这时需要对数据库进行数据库U 【5】 /U。（分数：2.00）填空项 1:_41.为了选择多个控件，可以按住U 【6】 /U键，然后逐个单击每个控件。（分数：2.00）填空项 1:_42.全局变量必须在标准模块中定义，所使用的语
20、句为U 【7】 /U。（分数：2.00）填空项 1:_43.阅读如下程序； Private Sub Form Click() msg1$=“继续吗?” msg2$=“操作对话框” r=MsgBox(msg1$，vbYesNo OrvbDefaultButton2，msg2$) End Sub 程序运行后，单击窗体，将产生一个信息框。此时如果直接按回车键，则相当于用鼠标单击信息框中的U 【8】 /U按钮。（分数：2.00）填空项 1:_44.窗体、图片框或图像框中的图形通过对象的U 【9】 /U属性设置。（分数：2.00）填空项 1:_45.下列程序中有一个按钮 Command1，一个文本框 T
21、ext1，其属性 MultiLine=True。当单击按钮后，文本框显示U 【10】 /U行数据，其中第 2 行和第 3 行的数据分别是U 【11】 /U和U 【12】 /U。 Option Base 1 Private Sub Command1_Click() Dim a， s As String，i As Integer a=Array(1，3，5，7，2，4，6，8) s=“ “ For i=1 To Ubound(A) s=s + Str(a(i)+i)+ vbCrLf Next i Text1.Text=s End Sub（分数：2.00）填空项 1:_46.编写一过程将 C 盘中的
22、 Config.sys 文件内容读出，并在文本框中显示出来。在窗体 Form1 上建立一个文本框 Text1，将其 MultiLine 属性设置为 True，ScrollBars 属性设置为 3-Both。给定的程序不完整，请将程序补充完整。 Option Explicit Private Sub Form _Click() Dim ch1 As String，fn As Integer Dim Str As String fn=U 【13】 /U Open “C:/Config.sys“ For Input As fn Do While Not EOF(U 【14】 /U) Line Inp
23、ut #fn, ch1 Str = Str + chl+ vbCrLf Loop Text1.Text =U 【15】 /U End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 74 答案解析(总分：92.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.要存放如下矩阵的数据，在不浪费存储空间的基础上，能实现声明的语句是 1 2 3 2 4 6 3 6 9（分数：2.00）A.Dim A(9)As IntegerB.Dim A(3，3)As IntegerC.Dwn A(-1 to 1，-3 to -1)As Single D.D
24、im A(-3 to -1，1 to 3)As Integer解析：分析 在一般情况下，下标的下界默认为 0。如果希望下标从 1 开始，可以通过 Option Base 语句来设置，其语句为：Option Base 1。A(9)有 10 个元素，A(3，3)有 16 个元素，A(-1 to 1，-3 to -1)有 9 个元素，A(-3 to -1，1 to 3)有 12 个元素。选项 C 声明的语句能满足题意要求。2.E-R 模型属于（分数：2.00）A.概念模型 B.层次模型C.网状模型D.关系模型解析：分析 数据模型按不同的应用层次分成 3 种类型，它们是概念数据模型、逻辑数据模型、物理
25、数据模型。实体-联系模型(E-R 模型)是概念数据模型，而关系模型、层次模型、网状模型都是逻辑数据模型。所以，选项 A 是正确答案。3.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() m=1:n=0 Call sub) (m)，n) m=m+2 n=n+m Print m; n End Sub Private Sub Subl(x， y) x=x+2 y=y+x End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.5 6B.3 6 C.0 1D.2 3解析：分析 从 Sub 中
26、 Print 输出可以看出，变量 m 的值经过 sub1 计算后没有变化。这是因为变量 m 作为实参时变成了(m)，这样使得其是被强制计算，是按数字传给 sub1 的，在 sub1 中被计算的结果没有反传回来。本题答案为选项 B。从中可以看出传址引用的参数值是如何改变的。4.决定窗体有无控制菜单的属性是（分数：2.00）A.ControlBox B.MinButtonC.EnabledD.MaxButton解析：分析 ControlBox 属性用来设置窗口控制框 (也称系统菜单，位于窗口左上角)的状态。当该属性被设置为 True(默认)时，窗口左上角会显示一个控制框。5.在窗体上画一个文本框，
27、然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(Ucase(char) Print String(6，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则在窗体上显示的内容为（分数：2.00）A.aB.AC.aaaaaaD.AAAAAA 解析：分析 Chr(x)是将 x 的值转换为相应的 ASCII 字符，Asc(x)是返回字符串 x 中第一个字符的ASCII 码，Ucase(“字符串”)将“字符
28、串”中的小写字母转换为大写字母。函数 String(n，字符串)的功能是返回由 n 个指定字符组成的字符串。本程序中是将在文本框中输入的字符都转换成 6 个大写字符输出。6.在窗体上添加一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，编写如下事件过程： Private Sub Command1_Click() Text1.Text=“计算机” Me.Text1=“等级” Text1=“考试” End Sub 程序运行后如果单击命令按钮，则在文本框中显示的是（分数：2.00）A.计算机B.等级C.考试 D.出错解析：分析 为了方便使用，Visual Basic 为每个
29、控件规定了一个默认属性，在设置这样的属性时，不必给出属性名，通常将该属性称为控件的值。控件值是一个控件的最重要或最常用的属性。在该题中，文本框 Text1 的默认属性为 Text，关键字 Me 代表的是程序代码所在的窗体。这样，语句“Text1.Text=“计算机“”、“Me.Text1=“等级 “”和“Text1=“考试“”是等价的。最终在文本框中显示的是“考试”。7.窗体上有一个按钮和一个列表框，执行下列程序后，输出的结果为 Private Sub Command1_Click() List1.AddItem “Visual“ List1.AddItem “Basic“ List1.Add
30、Item “Programming“, 1 Print list1.List(2) End Sub（分数：2.00）A.VisualB.BasicC.Programming D.2解析：分析 列表框控件使用 AddItem 方法增加列表项，格式如下： object.AddItem item，index Index 参数为可选参数，当不带该参数使用 AddItem 方法时，增加项自动添加到列表框最后一条；当带Index 参数时，则将增加项添加到 Index 指定的位置。注意 Index 只能在 0 到 ListCount 间取值。本题中由于最后一个 AddItem 方法使用了 Index(为 1
31、)，所以“Programming”插入到第 2 行的位置，“Basic”则被挤进最后一行的位置(对应 Index=2)。8.以下的描述中，不是线性表顺序存储结构特征的是（分数：2.00）A.不便于插入和删除B.需要连续的存储空间C.可随机访问D.需另外开辟空间来保存元素之间的关系 解析：分析 线性表的顺序存储用一片连续空间来存放数据元素，其特点是逻辑上相邻的元素在物理位置上也相邻，数据元素之间逻辑上的先后关系自动隐含在物理位置的相邻关系之中，因此不需另外开辟空间来保存元素之间的关系。9.结构化程序设计主要强调的是（分数：2.00）A.程序的规模B.程序的易读性 C.程序的执行效率D.程序的可移
32、植性解析：分析 结构化程序设计主要强调的是程序清晰易读，可理解性好，程序员能够进行逐步求精、程序证明和测试，以保证程序的正确性。10.在窗体上添加一个命令按钮(其 Name 属性为 Command1),然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array(4, 3, 2, 1) j = 1 For i = 4 To 1 Step -1 s = s + a(i)* j j = j * 10 Next i Print s End Sub 运行上面的程序、单击命令按钮，其输出结果是（分数：2.00）A.4
33、321 B.1234C.34D.12解析：分析 数组名 a 为变体型变量，用 Array 函数对其进行初始化，得到 a(1)=4、a(2)=3、a(3)= 2和 a(4)=1。变量 j 在循环中每次计算后扩大 10 倍，变量 s 的计算过程为 s=11+210+3100 +41000=4321。11.编写如下事件过程： Private Sub Form Click() Dim Char As String，i As Integer Const ch$=“#“ msg$= “Enter a String：“ char=InputBox$(msg$) n=Len(Char) For i=1 To
34、n If Mid$(char，i，1)=ch$ Then Exit For End If Next i Print i - 1 End Sub 其中 InputBox 函数的功能是弹出一个输入对话框，按所给参数给出提示，等待用户输入，并返回输入的内容。程序运行后，单击窗体，如果在输入对话框内输入字符串“12ab$%*/#fg”，则窗体上输出（分数：2.00）A.2B.2C.5D.8 解析：分析 该程序代码的功能是：在输入字符串中，对字符“#”前的字符个数进行统计：无“#”时，即统计该字符串的长度(或字符个数)；有“#”时，则计算“#”符号左边的字符个数。在“12ab$%*/#fg”中，“#”前
35、有 8 个字符，窗体上输出 8。12.已知一个有序表为(14，21，27，39，45，53，66，80，91，119，150)，当使用二分法查找值为 27 的元素时，查找成功的比较次数为（分数：2.00）A.1B.2 C.3D.5解析：分析 根据二分法查找的查找过程，首先将 27 与表中中间的元素 53 进行比较，由于 27 小于 53，所以在线性表的前半部分查找。第 2 次比较的元素是前半部分的中间元素，即 27，这时两者相等，即查找成功。13.阅读下面的程序； Function Func(x As Integer，y As Integer)As Integer Dim n As Integ
36、er Do While n = 4 x=x + y n = n + 1 Loop Func=x End Function Private Sub Command1_Click() Dim x As Integet, y As Integer Dim n As Integer，z As Integer x=1 y=1 For n = 1 To 6 z=Func(x，y) Next n Print z End Sub 程序运行后，单击命令按钮，输出的结果为（分数：2.00）A.16B.21C.26D.31 解析：分析 过程 Func 有两个参数，使用的是引用方式，参数和返回值均为整型，在命令按钮事
37、件过程的 For 循环中调用 Func 过程，共循环 6 次，每次循环调用一次。两个过程中使用的变量 (包括参数)基本相同，但由于是局部变量，不会发生冲突。无论在事件过程还是通用过程中， y 的值始终保持不变，总等于 1。在 Func 过程中， Do Loop 循环共执行 5 次，通过变量 n 控制(从 04)，每次都执行 x=x+1，因此，每调用一次 Func 过程，都使得 x=x+5，并将返回值赋给事件过程中的变量 z。6 次调用中，循环变量n 的计算过程为：1、2、3、4、5、6：返回值 z 的结果为：6、11、16、21、26、31。14.以下叙述中错误的是（分数：2.00）A.下拉式
38、菜单和弹出式菜单都用编辑器建立B.在多窗体程序中，每个窗体都可以建立自己的菜单系统C.除分隔线外，所有菜单项都能接收 Click 事件D.如果将一个菜单项的 Enabled 属性设置为 False，则该菜单项不可见 解析：分析 对于菜单项，Enabled 属性设置为 False 表示菜单项无效，Visible 属性设置为 False 表示菜单项不可见。15.在窗体上画一个名称为 Command1 的命令按钮和 3 个名称分别为 Label1, Label2, Label3 的标签，然后编写如下代码： Private x As Integer Private Sub Command1_Click
39、() Static y As Integer Dim z As Integer n= 10 z = n + z y = y + z x = x + z Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub 运行程序，连续三次单击命令按钮后，则 3 个标签中显示的内容分别是（分数：2.00）A.10 10 10B.30 30 30C.30 30 10 D.10 30 30解析：分析 用 Dim 或 Static 关键字可以声明过程级变量，过程级变量只有在声明它们的过程中才能被识别。在整个应用程序运行时，用 Static
40、声明的变量中的值一直存在，而用 Dim 声明的变量只在过程执行期间才存在。Dim 语句还可以声明模块级变量，其作用域为声明它的窗体模块或标准模块中。本题中变量 x 是用 Dim 声明的模块级变量，变量 y 是用 Static 声明的过程级变量，而变量 z 是用 Dim 声明的过程级变量，第 1 次单击命令按钮后，3 个标签中分别显示 10、10、10；第 2 次单击命令按钮后，3 个标签中分别显示 20、 20、10：第 3 次单击命令按钮后，3 个标签中分别显示 30、30、10。16.设待排序关键码序列为(33，18，9，25，67，82，53，95，12，70)，要按关键码值递增的顺序排
41、序，采取以第一个关键码为分界元素的快速排序法，第一趟排序完成后关键码 33 被放到了第 _ 个位置。（分数：2.00）A.3B.5 C.7D.9解析：分析 快速排序的基本思想是：通过一趟排序将待排序记录分割成独立的两部分，其中一部分记录的关键字均比另一部分记录的关键字小，再分别对这两部分记录继续进行排序，以达到整个序列有序。在上述序列中，比关键码 33 小的元素有 4 个，因此第 1 趟排序完成后关键码 33 被放到了第 5 个位置上。17.数据库系统的核心是（分数：2.00）A.数据库B.数据库管理系统 C.数据模型D.软件工具解析：分析 数据库系统是由数据库(数据)、数据库管理系统(软件)
42、、数据库管理员(人员)、系统平台之一硬件平台(硬件)、系统平台之二软件平台 5 个部分构成。其中，数据库管理系统 DBMS 是负责数据库的建立、使用和维护的软件。 DBMS 建立在操作系统之上，实施对数据库的统一管理和控制。用户使用的各种数据库命令以及应用程序的执行，最终都必须通过 DBMS。另外，DBMS 还承担着数据库的安全保护工作，按照 DBA 所规定的要求，保证数据库的完整性和安全性。所以数据库管理系统 DBMS 是数据库系统的核心，选项 B 是正确答案。数据库是数据的集合，它不是数据库系统的核心；数据模型是用来抽象表示和处理现实世界中数据和信息的工具：软件工具是用来辅助软件开发、运行
43、、维护、管理、支持等活动的工具。所以选项 A、C、D 都不正确。18.在程序代码中将图片文件 mypic.jpg 装入图片框 Picture1 的语句是（分数：2.00）A.Picture1.Picture=“mypijpg“B.Picture1.Image=“mypijpg“C.Picture1.Picture=LoadPicture(“mypijpg“) D.LoadPicture(“mypijpg“)解析：分析 图片框一般通过 LoadPicture 函数引入图片文件，而不是直接将文件名赋值为相关属性。清除图片内容则只能使用不带任何参数的 LoadPicture 函数。如： Pictur
44、e1.Picture=LoadPicture(“mypic.jpg“) Picture1.Picture=LoadPicture()或 LoadPicture(“ “)19.关于模块设计的原则，以下叙述中正确的是（分数：2.00）A.模块的内聚性高，模块之间的耦合度高B.模块的内聚性高，模块之间的耦合度低 C.模块的内聚性低，模块之间的耦合度高D.模块的内聚性低，模块之间的耦合度低解析：分析 耦合性和内聚性是衡量软件模块独立性的两个定性的度量标准。其中，内聚性是度量一个模块功能强度的相对指标，耦合性则用来度量模块之间的相互联系程度，它们是相互关联的。在程序结构中，各模块的内聚性越强，则耦合性越
45、弱。一般较优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，有利于提高模块的独立性。20.表达式 12+31/6*5/10 Mod 4 的值是（分数：2.00）A.14 B.22C.12D.0解析：分析 按算术运算符的优先级，将上述的表达式改为 12+(31/(6*5)/10)Mod4)。计算过程为：12+(31/(30/10)Mod 4)=12+(31/ 3) Mod 4)=12+(10 Mod 4)=12+2=1421.假定编写了如下事件过程： Private Sub Form_MouseDown(Button As Integer，Shift As I
46、nteger，X As Single， Y As Single) If Button=2 Then Print “aaaa“ End If End Sub 程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为（分数：2.00）A.左键B.右键 C.同时按下左、右键D.按什么键都不显示解析：分析 在窗体上压下鼠标键，触发 Form_M ouseDown 事件。参数 Button 标识鼠标的信息，1 表示按下鼠标左键；2 表示按下鼠标右键：4 表示按下鼠标中间键。当按下鼠标右键时，程序能在窗体上显示字符串“AAAA”。22.有下列程序： Option Base 0 Private Sub C
47、ommand1_Click() Dim City As Variant x = Array(“Visual“，“Basic“，“Microsoft“，“Programming“) Print x(2) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是（分数：2.00）A.Microson B.错误提示C.VisualD.Basic解析：分析 使用 Array 函数创建的数组下界是由 Ophon Base 语句指定的下界而确定的，在本题中，下界被 Option Base 语句指定为 0，所以 x(0)的值为“Visual”，x(1)的值为“Basic”，x(2)的值为“Micro
48、soit”，x(3)的值为“Programming”。23.下面四个选项，不是事件的是（分数：2.00）A.LoadB.Enabled C.UnloadD.DblClick解析：分析 Enabled 是属性，它用于触发或禁止。每个对象都有一个 Enabled 属性，可以被设置为 True 或 False，分别用来触发或禁止该对象。对于窗体，该属性一般设置为 True，但为了避免鼠标或键盘事件发送到某个窗体，也可以设置为 False。24.下列关于栈的描述中错误的是（分数：2.00）A.栈是先进后出的线性表B.栈只能顺序存储 C.栈具有记忆作用D.对栈的插入与删除操作中，不需要改变栈底指针解析：分析 栈是限定只能在表的一端进行插入和删除操作的线性表，入栈和出栈操作都在栈顶进行，它的操作特点是先进后出，具有记忆作用。因此选项 A、C、D 都是正确的。栈可以采用顺序存储，也可以采用链式存储，因此选项 B 说法不正确。25.以下 4 组语句中不正确的是（分数：2.00）A.A=1:A=A+1
