【计算机类职业资格】二级VISUAL+BASIC笔试-375及答案解析.doc

1、二级 VISUAL+BASIC 笔试-375 及答案解析(总分：83.00，做题时间：90 分钟)一、选择题(总题数：35，分数：55.00)1.为了取消窗体的最小化功能，需要把它的一个属性设置为 False，这个属性是_。A) ControlBox B) MinButtonC) Enabled D) MaxButton（分数：2.00）A.B.C.D.2.要使文本框获得输入焦点，则应采用文本框控件的( )方法。A) GotFocus B) LostFocusC) KeyPress D) SetFocus（分数：2.00）A.B.C.D.3.n 个顶点的强连通图的边数至少有 _。A) n-1

2、B) n(n-1) C) n D) n+1（分数：1.00）A.B.C.D.4.设 a=6，则执行x=IIF(a5，-1,0)后，x 的值为 _。A) 5 B) 6 C) 0 D) -1（分数：1.00）A.B.C.D.5.下列对于软件测试的描述正确的是( )A软件测试的目的是证明程序是否正确B软件测试的目的是使程序运行结果正确C软件测试的目的是尽可能地多发现程序中的错误D软件测试的目的是使程序符合结构化原则（分数：2.00）A.B.C.D.6.对窗体编写如下事件过程：Private Sub Form_MouseDown(Button As Integer，Shift As Integer,X

3、 As Single，Y As Single)If Button=2 ThenPrint “AAAAA“End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single)Print “BBBBB“End Sub程序运行后，如果单击鼠标右键，则输出结果为 _ 。A) AAAAABBBBBB) BBBBBC) AAAAAD) BBBBBAAAAA（分数：1.00）A.B.C.D.7.使用 Redim Preserve 可以改变数组的A) 最后一维的大小 B) 第一维的大小

4、C) 所有维的大小 D) 改变维数和所有维的大小（分数：1.00）A.B.C.D.8.下列程序段，在运行时，最早输出的内容是a=2C=1AAA：C=C+aIf c10 ThenPrint cCoTo AAAE1sePrint“10 以内的奇数显示完毕。End IfA3 B7 C9 D6（分数：1.00）A.B.C.D.9.在窗体中有一个名为 Command1 的命令按钮，并编写有以下代码。程序执行时，单击命令按钮，输出的结果为( )。Public Sub Procl(n As Integer,ByVal m As Integer)n=n Mod 10:m=m/10End SubPrivate

5、Sub Command1_Click()Dim x As Integer,y As Integerx=12:y=34Call Procl(x,y)Print x;yEnd SubA) 2 3 B) 2 34 C) 12 3 D) 12 34（分数：2.00）A.B.C.D.10.语句 Dim Arr(3 To 5,-2 To 2)定义的数组的元素个数是( )。A) 20 B) 12C) 15 D) 24（分数：2.00）A.B.C.D.11.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序：Private Sub Form_Load()ShowText1.Tex

6、t=“ “Text2.Text=“Text1.SetFocusEnd SubPrivate Sub Text1_Change()Text2.Text=Mid(Text1.Text,8)End Sub程序运行后，如果在文本框 Text1 中输入 BeijingChina，则在文本框 Text2 中显示的内容是A) BeijingChina B) China C) Beijing D) BeijingC（分数：2.00）A.B.C.D.12.定义有 5 个整数型元素的数组，正确的语句是_。A) Dim a(4)As Integer B) Option Base 1：Dim a(5)C) Dim a

7、bEnd SubSub p1(x As Integeh By Val y As Integer)x=x+10y=y+20End SubSub p2(ByVal x As Integer,y As Integer)x=x+10y=y+20End SubSub p3 (ByVal x As Integer,ByVal y As Integer)x=x+10y=y+20End Sub该程序运行后，单击窗体，则在窗体上显示的内容是：a=_和 b=_。（分数：4.00）填空项 1:_填空项 1:_二级 VISUAL+BASIC 笔试-375 答案解析(总分：83.00，做题时间：90 分钟)一、选择题(

8、总题数：35，分数：55.00)1.为了取消窗体的最小化功能，需要把它的一个属性设置为 False，这个属性是_。A) ControlBox B) MinButtonC) Enabled D) MaxButton（分数：2.00）A.B. C.D.解析：解析 MaxButton、MinButton 两个属性用来显示窗体右上角的最大、最小化按钮。如果希望显示最大或最小化按钮，则应将两个属性设置为 True，这两个属性只在运行期间起作用。在设计阶段，这两项设置不起作用，因此，即使把 MaxButton 属性和 MinButton 属性设置为 False，最大、最小化按钮也不会消失。如果 Borde

9、rStyle 属性被设置为“0None”，则这两个属性将被忽略。2.要使文本框获得输入焦点，则应采用文本框控件的( )方法。A) GotFocus B) LostFocusC) KeyPress D) SetFocus（分数：2.00）A.B.C.D. 解析：解析 GotFocus 是当对象获得焦点时触发的事件；LostFocus 事件是在对象失去焦点时触发的事件；SetFocus 方法是将焦点移至指定的控件或窗体；KeyPress 事件是当用户按下和松开一个键时触发的事件。3.n 个顶点的强连通图的边数至少有 _。A) n-1 B) n(n-1) C) n D) n+1（分数：1.00）A.

10、B.C. D.解析：解析 在有向图中，若任意两个顶点都连通，则称该图是强连通图，这样的有向图的形状是环状，因而至少应有 n 条边。4.设 a=6，则执行x=IIF(a5，-1,0)后，x 的值为 _。A) 5 B) 6 C) 0 D) -1（分数：1.00）A.B.C.D. 解析：解析 IIf 方法根据表达式的值来决定返回其第 2 和第 3 个参数中的某一个。表达式是其第 1 个参数。在本题中 a5 为 True，所以返回的是-1。5.下列对于软件测试的描述正确的是( )A软件测试的目的是证明程序是否正确B软件测试的目的是使程序运行结果正确C软件测试的目的是尽可能地多发现程序中的错误D软件测试

11、的目的是使程序符合结构化原则（分数：2.00）A.B.C. D.解析：解析 软件测试是为了尽可能多地发现程序中的错误，尤其是发现至今尚未发现的错误。6.对窗体编写如下事件过程：Private Sub Form_MouseDown(Button As Integer，Shift As Integer,X As Single，Y As Single)If Button=2 ThenPrint “AAAAA“End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single)

12、Print “BBBBB“End Sub程序运行后，如果单击鼠标右键，则输出结果为 _ 。A) AAAAABBBBBB) BBBBBC) AAAAAD) BBBBBAAAAA（分数：1.00）A. B.C.D.解析：解析 窗体的的 MouseDown 和 MouseUp 中，button 参数是具有相应于左按钮(为 0)，右按钮(为 1)，以及中间按钮(为 2)的一个位字段。这些位的值分别等于 1，2，和 4。其中仅有一位被设置，指示出引起该事件的那个按钮。本题中 MouseDown 事件会首先判断按下的是哪个鼠标键，如果是右键则输出 AAAAA。然后在 MouseUp 事件中输出 BBBBB

13、。7.使用 Redim Preserve 可以改变数组的A) 最后一维的大小 B) 第一维的大小C) 所有维的大小 D) 改变维数和所有维的大小（分数：1.00）A. B.C.D.解析：解析 如果使用了 Preserve 关键字，就只能重定义数组最末维的大小，且根本不能改变维数的数目。例如，如果数组就是一维的，则可以重定义该维的大小，因为它是最末维，也是仅有的一维。不过，如果数组是二维或更多维时，则只有改变其最末维才能同时仍保留数组中的内容。8.下列程序段，在运行时，最早输出的内容是a=2C=1AAA：C=C+aIf c10 ThenPrint cCoTo AAAE1sePrint“10 以内

14、的奇数显示完毕。End IfA3 B7 C9 D6（分数：1.00）A. B.C.D.解析：解析 在本题中使用了 If 语句与 GoTo 语句。当 c10 时，输出 c，并继续运行；c=10 时，显示“10 以内的奇数显示完毕。“，并结束程序。开始时，a=2，c=1 执行语句 c=c+a 后 c 为 3，小于 10，故输出 c 的值 3。9.在窗体中有一个名为 Command1 的命令按钮，并编写有以下代码。程序执行时，单击命令按钮，输出的结果为( )。Public Sub Procl(n As Integer,ByVal m As Integer)n=n Mod 10:m=m/10End S

15、ubPrivate Sub Command1_Click()Dim x As Integer,y As Integerx=12:y=34Call Procl(x,y)Print x;yEnd SubA) 2 3 B) 2 34 C) 12 3 D) 12 34（分数：2.00）A.B. C.D.解析：解析 本题考查参数传递。在 VB 的过程调用中，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用 ByVal 声明，说明此参数为传值调用；若用 ByRef 声明，说明此参数为传址调用；没有说明传递类型，则默认为传址传递。题目中的实参 x 为传址调用，y 为传值调用，因此 n 的变化影

16、响x，而 m 变化不会影响 y。10.语句 Dim Arr(3 To 5,-2 To 2)定义的数组的元素个数是( )。A) 20 B) 12C) 15 D) 24（分数：2.00）A.B.C. D.解析：解析 该数组定义语句定义了一个二维数组，它的第一维下标下界为 3，上界为 5，第二维下标下界为-2，上界为 2。因此该数组的数组元素为 Arr(3，-2)、Art(3，-1)、Arr(3，0)、Arr(3，1)、Arr(3， 2)、Arr(4，2)、Art(4，-1)、Arr(4，0)、Arr(4，1)、Arr(4，2)、Arr(5， -2)、Arr(5，-1)、Arr(5，0)、Arr(5

17、，1)、Art(5，2)，共 15 个元素。11.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序：Private Sub Form_Load()ShowText1.Text=“ “Text2.Text=“Text1.SetFocusEnd SubPrivate Sub Text1_Change()Text2.Text=Mid(Text1.Text,8)End Sub程序运行后，如果在文本框 Text1 中输入 BeijingChina，则在文本框 Text2 中显示的内容是A) BeijingChina B) China C) Beijing D) Beiji

18、ngC（分数：2.00）A.B. C.D.解析：解析 本题考查文本框属性、文本框事件以及 Mid 函数的用法。当在文本框 Text1 中输入BeijingChina 时，Text2.Text=Mid(Text1.Text,8)会执行。Mid(Str -ing,m,n)函数返回从 m 起向后的 n个字符省略 n 时，则直到尾部结束。题目中 Mid(BeijingChina,8)将返回 China，所以选项 B 是正确答案。12.定义有 5 个整数型元素的数组，正确的语句是_。A) Dim a(4)As Integer B) Option Base 1：Dim a(5)C) Dim a&(5) D

19、) Dime a(5)As Integer（分数：1.00）A. B.C.D.解析：解析 在选项 B 中，语句 Option Base l 不能放在过程中与 Dim 语句在一起；选项 C 中，使用了多余的字符“&”；选项 D 中的关键字错误。选项 A 中的 4 表示最大下标的值，而起始下标默认为 o，数组包含 a(0)到 a(4)5 个元素。13.在深度为 5 的满二叉树中，结点的个数为A) 32 B) 31 C) 16 D) 15（分数：2.00）A.B. C.D.解析：解析 所谓满二叉树是指这样的一种二叉树：除最后一层外，每一层上的所有结点都有两个叶子结点。这就是说，在满二叉树中，层上的结

20、点数都达到最大值，即在满二叉树的第 k 层上有 2k-1个结点，且深度为 m 的满二叉树有 2m-1 个结点。14.在窗体上画一个名称为 CommonDialog1 的通用对话框，一个名称为 Command1 的命令按钮，要求单击命令按钮时，打开一个保存文件的对话框，该窗口的标题为“Save”，缺省文件名称为“SaveFile”，在“文件类型”栏中显示*txt，则能够满足上述要求的程序是A) Private Sub Command1_Click ( )CommonDialog1FileName=“SaveFile“CommonDialog1Filter=“AllFiles|*.*|(*.txt

21、)|*.txt|(*.doC) |*.doc“CommonDialog1FilterIndex=2CommonDialog1DialogTitle=“Save“CommonDialog1Action=2End SubB) Private Sub Command1_Click ( )CommonDialog1FileName=“SaveFile“CommonDialog1Filter=“AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc“CommonDialog1FilterIndex=1CommonDialog1DialogTitle=“Save“CommonD

22、ialog1Action=2End SubC) Private Sub Command1 Click ( )CommonDialog1FileName=“Save“CommonDialog1Filter=“AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc“CommonDialog1FilterIndex=2CommonDialog1DialogTitle=“SaveFile“CommonDialog1Action=2End SubD) Private Sub Command1 Click ( )CommonDialog1FileName=“SaveFile“C

23、ommonDialog1Filter=“AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc“CommonDialogl.FilterIndex=1CommonDialog1.DialogTitle=“Save“CommonDialog1Action=1End Sub（分数：1.00）A. B.C.D.解析：解析：该题考核考生对 CommonDialog 控件的各种属性的了解和掌握，其FileNme 属性用来设置缺省文件名；Filter 属性设置在对话框的文件类型列表框中所显示的过滤器，其值从 0 开始：DialogTitle 属性用来设置对话框的标题；Actio

24、n 属性用来返回或设置被显示对话框的类型，其值为 1 时显示“打开”对话框，为 2 时显示“另存为”对话框。15.在窗体上添加一个按钮，名为 Command1，然后编写如下的事件过程，输出结果为_。Prinvate Sub Command1_Click()For i=1 To 4x=4Forj=1 To 3x=3For k=1 To 2x=x+5NextNextNextPtint xEnd SubA) 13 B) 26 C) 30 D) 40（分数：2.00）A. B.C.D.解析：解析 本题考查多重 For 循环结构。做题时要注意每次循环时变量的初始值。16.下列程序段的执行结果为I=4x=

25、5DoI=I + 1X=K2Loop Until I=7Print“I=“；IPrint“x=“；xA)I=4x=258694 B)I=7x=256987C)I=6x=365840D)I=7x=390625（分数：1.00）A.B.C.D. 解析：解析 考查考生对循环控制结构的掌握。解题要点 结构 Do 循环结构，其格式为：Do【语句块】【Exit Do】Loop Until 循环条件此循环由于“先执行后检查”，所以至少执行一次。本题中，程序运行到循环条件 1=7 的值为 True，停止所以程序结束运行后 I=7，x=399625.考点链接 DoLoop While 循环结构，Do While

26、|Until Loop 循环结构。17.下列叙述中不正确的是( )。A) 若使用 Write#语句将数据输出到文件，则各数据项之间自动插入逗号，并且将字符串加上双引号B) 若使用 Print#语句将数据输出到文件，则各数据项之间没有逗号分隔，且字符串不加双引号C) Write#语句和 Print#语句建立的顺序文件格式完全一样D) Write#语句和 Print#语句均实现向文件写入数据（分数：2.00）A.B.C. D.解析：解析 Write#语句和 Print#语句都可以把数据写入顺序文件中，两者的不同主要有两点：当用Write#语句向文件写入数据时，数据在磁盘上以紧凑格式存放，能自动在数

27、据项之间插入逗号，并给字符串加上双引号，使用 Print#语句则没有这些功能；用 Write#语句写入的正数前面没有空格。18.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是_。A)任何时刻最多只有一个窗体是活动窗体B)不能把标准模块设置成启动模块C)用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体D)如果工程中含有 Sub Main 过程，则程序一定首先执行该过程（分数：2.00）A.B.C.D. 解析：解析 工程中首先执行的部分可以由编程人员自己设置，并不一定要先执行 SubMain 过程。19.以下程序段中 Do.Loop 循环执行的次数为_。n=5Doif n mo

28、d 2=0 thenn=n/2elsen=n*3+1end ifLoop until n=1A) 4 B) 3C) 5 D) 2（分数：2.00）A.B.C. D.解析：20.若要获得滚动条的当前值，可访问的属性是_。A) Text B) Value C) Max D) Min（分数：2.00）A.B. C.D.解析：解析 滚动条的 Value 属性代表滚动条的滑块在当前位置的取值。21.当 ScrollBars 属性的值为 _ 时，给文本框同时加水平滚动条和垂直滚动条。A) 0 B) 1 C) 2 D) 3（分数：1.00）A.B.C.D. 解析：解析 当 SerollBars 属性的值为

29、0(None)时，文本框无滚动条；当 ScrollBars 属性的值为1(Horizontal)时，给文本框加水平滚动条；当 ScrollBars 属性的值为 2(Vertical)时，给文本框加垂直滚动条；当 SerollBars 属性的值为 3(Both)时，给文本框同时加水平滚动条和垂直滚动条。22.如果在立即窗口中执行以下操作(CR是回车键)：a=8 CRb=9 CRprint abCR则输出结果是 _。A) -1 B) 0 C) False D) True（分数：1.00）A.B.C. D.解析：解析 因 ab 不成立(89)，故表达式的值为 False。立即窗口中输出值即为 Fal

30、se。23.下列数据模型中，具有坚实理论基础的是( )。A) 层次模型 B) 网状模型 C) 关系模型 D) 以上三个都是（分数：2.00）A.B.C. D.解析：解析 关系模型较之格式化模型(网状模型和层次模型)有以下几方面的优点，即数据结构比较简单，具有很高的数据独立性，可以直接处理多对多的联系，以及有坚实的理论基础。24.软件工程上常用的表达工具有_。A) 图形工具 B) 表格工具 C) 语言工具 D) 以上全是（分数：1.00）A.B.C.D. 解析：25.假定在窗体(名称为 Form1)的代码窗口中定义如下记录类型：Private Type animalanimalName As S

31、tring*20aColor As String*10End Type在窗体上面一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim rec As animalOpen “c:/vbTest. dat“ For Random As #1 Len=Len(rec)rec. animalName=“Cat“rec. aColor=“White“Put #1, , recEnd Sub则以下叙述中正确的是_。A) 记录类型 animal 不能在 Form1 中定义，必须在标准模块中定义B) 如果文件“c:/vbTest. da

32、t“不存在，则 Open 命令执行失败C) 由于 Put 命令中没有指明记录号，因此每次都把记录写到文件的末尾D) 语句“Put #1, , rec”将 animal 类型的两个数据元素写到文件中（分数：2.00）A.B.C.D. 解析：解析 选项 A 在一般情况下，记录类型应在标准模块中定义。如果在窗体模块中定义，则必须在“Type“关键字前面加上“Private”；选项 B 用 Open 语句打开文件时，如果为输入(Input)打开的文件不存在，则产生“文件未找到”错误；如果为输出(Output)、附加(Append)或随机(Random)访问方式打开的文件不存在，则建立相应的文件；选项

33、C 如果没有指明记录号，则将上一个 Get 或 Put 语句之后的(或上一个 Seek 函数指出的)下一个记录或字节写入。选项 D 由于 rec 是 animal 类型变量，对其操作都是对变量 animalName 和变量 aColor 的操作。26.在下列关系运算中，不改变关系表中的属性个数但能减少元组个数的是( )。A) 并 B) 交 C) 投影 D) 除（分数：2.00）A.B. C.D.解析：解析 关系 R 与 S 经交运算后所得到的关系是由那些既在 R 内又在 S 内的有序组所组成，记为RS，交运算不改变关系表中的属性个数但能减少元组个数。27.如果进栈序列为 e1，e2，e3，e4

34、，则可能的出栈序列是A)e3，e1，e4，e2 B)e2，e4，e3，el C)e3，e4，e1，e2 D)任意顺序（分数：1.00）A.B. C.D.解析：解析：由栈“后进先出”的特点可知：A)中 e1 不可能比 e2 先出，c)中 e3 不可能比 e4 先出，且e1 不可能比 e2 先出，D)中栈是先进后出的，所以不可能是任意顺序。B)中出栈过程如图所示：28.若在 Shape 控件内以 FillSyylr 属性所指定的图案填充区域，而填充图案的线条的颜色由 FillColor属性指定，非线条的区域由 Back Style 属性填充，则应_。A) 将 Shape 控件的 Fillstyle

35、 属性设置为 27 间的某个值，BackStyle 属性设置为 1B) 将 Shape 控件的 FillStyle 属性设置为 0 或 1，Backstyle 属性设置为 1C) 将 Shape 控件的 FillStyle 属性设置为 27 间的某个值，BackStyle 属性设置为 0D) 将 Shape 控件的 FillStyle 属性设置为 0 或 1，BackStyle 属性设置为 0（分数：2.00）A. B.C.D.解析：解析 Shape 控件的相关属性FillStyle 属性，该属性的设置值决定了形状控件内部的填充图案，其值如下；0-SoHd=(实心)1-Transparent：

36、(透明)2-HorizontalLin：(水平线)3-VertialLine：(垂直线)4-UpwardDiagona：(向上对角线)5-DownwardDiagonal：(向下对角线)6-Cross：(交又线)7-Diagonal：(对角交叉线)FillColor 属性，用来定义形状控件的内部颜色。如果 FillStyle 属性值设置为 1，则 FillColor 属性将不起作用。BaekStyle 属性，设置值为 0 和 1，用来决定形状控件的背景是否被指定的颜色填充。为。时，形状控件的背景是透明的，为 1 时，形状控件的背景由 BackColor 属性所指定的颜色来填充。如果 FillS

37、tyle 属性设置为 0，则 BackStyle 属性将不起作用。29.假定窗体上有一个文本框，名为 txt1，为了使该文本框的内容能够换行，并且具有垂直滚动条，没有水平滚动条正确的属性设置为ATxt1.MultiLine=True Txt1.ScrollBars=0 BTxt1.MuhiLine=TrueTxt1.ScrollBars=2CTxt1.MuhiLine=False Txt1.ScrollBars=0 DTxt1.MuhiLine=FalseTxt1.ScrollBars=3（分数：1.00）A.B. C.D.解析：解析 Multine 如果设置为 True，可以使用多行文本，即

38、在文本框中输入或输出文本时可换行，并在下一行接着输入或输出。Scmllbars 用来确定文本框中没有滚动条，可以取 0、1、2、3 四个值，其含义分别为：0 表示没有滚动条；1 表示只有水平滚动条；2 表示只有垂直滚动条；3 表示同时具有水平滚动条和垂直滚动条。30.假定程序中有以下语句：answer=MsgBox(“String1“,“String2“,“String3“,2)执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则 answer 的值为_。A) String1 B) String2C) String3 D) 1（分数：2.00）A.B.C.D. 解析：解析 MsgBox

39、 函数：在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。返回值常数 值 描述vbOK 1 OKvbCancel 2 CancelvbAbort 3 AbortvbRetry 4 RetryvbIgnore 5 IgnorevbYes 6 YesvbNo 7 No本题单击的是“确定”按钮，及 vbOK，所以 MsgBox 返回 1。31.设有如下程序：Private Sub Command1_Click()Dim C As Integer, d As Integerc=4d=InputBox(“请输入一个整数“)Do While d0If dc Then

40、c=c+1End Ifd=InputBox(“请输入一个整数“)LoopPrint c+dEnd Sub程序运行后，单击命令按钮，如果在输入对话框中依次输入 1、2、3、4、5、6、7、8、9、0，则输出结果是_。A) 12 B) 11 C) 10 D) 9（分数：2.00）A.B.C.D. 解析：解析 在输入对话框中依次输入 14 时，因 dc 的结果为 Falsc，变量 c 没有进行任何计算；输入 59 时，因 dc 的结果为 True，变量 c 的计算过程为：4+1+1+1+1+1=9；输入 0 时，退出 DO 循环，最后打印出 9+0=9 的结果。32.能够确定控件或窗体大小的属性是_

41、。A) Top 和 Lef B) Top 或 Left C) Height 或 Width D) Height 和 Width（分数：1.00）A.B.C.D. 解析：解析 Height 和 Width 分别表示控件的高度和宽度，用来确定控件的大小。33.若对 n 个元素进行直接插入排序，则进行第 i 趟排序过程前，有序表中的元素个数为 _。A1 Bi-1 Ci Di+1（分数：2.00）A.B.C. D.解析：34.下列叙述中正确的是( )。A)一个逻辑数据结构只能有一种存储结构B)逻辑结构属于线性结构，存储结构属于非线性结构C)一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处

42、理的效率D)一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率（分数：2.00）A.B.C.D. 解析：解析 数据的存储结构是指数据的逻辑结构在计算机存储空间小的存放形式，一种数据结构可以根据需要采用不同的存储结构，常用的存储结构有顺序和链式结构。采用不同的存储结构，其处理的效率是不同的。35.要想改变窗体边框线型，可使用的属性是_。A) FontStyle B) BorderStyleC) BackStyle D) Border（分数：1.00）A.B. C.D.解析：二、填空题(总题数：13，分数：28.00)36.数据库系统中实现各种数据管理功能的核心软件称为 1。（分

43、数：1.00）填空项 1:_ （正确答案：数据库管理系统或 DBMS）解析：解析 数据库管理系统是数据库的机构，它是一种系统软件，负责数据库中的数据组织、数据操纵、数据维护、控制及保护和数据服务等。数据库管理系统是数据库系统的核心。37.在程序的每个空白处填写一条适当的语句，使程序完成相应的操作。程序实现的功能是：窗体上有文本框 Text1 和若干复选框，其中复选框 Check1 设置文本框 Text1 显示的文本是否加下划线。Check1 的单击事件过程如下：Private Sub Check1_Click()If_ ThenText1.FontUnderline=TreeElseIf_Th

44、enText1.FontUndefiine=FalseEnd IfEnd Sub（分数：2.00）填空项 1:_ （正确答案：Check1.Value=1 Check1.Value=0）解析：解析 题目要求通过选中复选框 Check1 来设置文本框的文本是否加下划线，因此判断条件需要对复选框是否选中进行判断，因此 If 语句后面应填 “Check1.Value=1”语句，ElaoIf 后面应填“Check1.Value=0”语句。38.在面向对象方法中，类之间共享属性和方法的机制称为 1。（分数：2.00）填空项 1:_ （正确答案：继承）解析：解析 在面向对象的程序设计方法中，某些属性和方法

45、是可以共享的，由子类从父类中继承而来，这样提高了软件的可重用性。39.以下程序段执行后 y 的值是_。x=8.6y=int(x+0.5)print y（分数：1.00）填空项 1:_ （正确答案：9）解析：解析 返回参数的整数部分，其类型和参数相同。语法Int(number)必要的 number 参数是 Double 或任何有效的数值表达式。如果 number 包含 Null，则返回 Null。40.为了定义自己的鼠标光标，首先应把 MousePointer 属性设置为_，然后把_属性设置为一个图标文件。（分数：1.00）填空项 1:_ （正确答案：99 MouseIcon）解析：解析 Mou

46、sePointer 属性用来返回或设置一个值，该值指示在运行时当鼠标移动到对象的一个特定部分时，被显示的鼠标指针的类型。如果将其设为 99，则表示通过该属性指定自定义图标。而MouseIcon 属性用来返回或设置自定义的鼠标图标，方法是指定图标文件的路径。41.假定建立了一个工程，该工程包括两个窗体，其名称(Name 属性)分别为 Form1 和 Form2，启动窗体为 Form1。在 Form1 中画一个命令按钮 Command1，程序运行后，要求当单击该命令按钮时，Form1 窗体消失，显示窗体 Form2，请将程序补充完整。Private Sub Command1_Click()_MeF

47、orm2_End Sub（分数：1.00）填空项 1:_ （正确答案：Unload Show）解析：解析 要使窗体消失，可以使用窗体的 Hide 方法将窗体隐藏(窗体仍在内存中)，也可以使用Unload 语句将窗体从内存中清除，程序中的关键字 Me 代表当前程序代码所在的窗体，即 Forml，如果使用 Hide 方法，正确的语句应该是 Me.Hide，而如果使用 Unload 语句，正确的表示方法是 Unload Me。窗体的 Show 方法可以实现将窗体装入内存并显示出来的操作。42.如图所示，在列表框 List1 中已经有若干人的简单信息，运行时在 Text1 文本框(即“查找对象”右边的

48、文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在 Text2 文本框中。若有多个匹配的列表项，则只显示第 1 个匹配项；若未找到，则在 Text2 中显示“查无此人”。请填空。Private Sub Command1_Click()Dim k As Integer， n As Integer， found As Booleanfound=Falsen= Len(_)k = 0While kList1.ListCount And Not foundIf Text1=Lefts(List1.List(k)，n)ThenText2 _foundTrueEnd Ifk k + 1WendIf Not found ThenText2“查无此人”End IfEnd Sub（分数：3.00）填空项 1:_ （