【计算机类职业资格】计算机二级(VB)20及答案解析.doc

1、计算机二级(VB)20 及答案解析(总分：1765.00，做题时间：90 分钟)一、选择题(每小题 2分，共 70分) 下列各(总题数：25，分数：1750.00)1.下列说法错误的是（ ）。（分数：70.00）A.Caption不是只读属性，运行时对象的名称可以通过代码改变B.设置 Height或 Width的数值单位为 twip，1twip=1/10pointC.Icon属性用来设置窗体最小化时的图标D.用来激活属性窗口的快捷键是 F4键2.下列语句中，不能实现循环 100次的是（ ）。（分数：70.00）A.N=0 Do N=N+1 Loop Until N=100B.N=0 Do N=

2、N+1 Loop While n100C.N=0 N=N+1 Do Loop Until N100D.N=0 Do While n100 N=N+1 Loop3.有如下事件过程： Private Sub Commaild1_Click( ) Dim i As Integer For i =1 To 2 DC Next i End Sub Sub DC( ) Dim x As Integer，m As String Static y，n x=x + 1 y=y + 1 m=mB.D-；C.c+；D.-f；18.下面的程序的运行结果是( )。 a=1 b=1 Do a=a2 b= b + 1 Lo

3、op Until b5 Print “k=“；a；Spc(4)；“b=“；b + a （分数：70.00）A.ComputerB.什么都没有C.* * * * * * * *D.程序出错19.可以在常量的后面加上类型说明符以显示常量的类型，可以表示整型常量的是（ ）。（分数：70.00）A.B.#C.!D.$20.要获得当前驱动器应使用驱动器列表框的属性是（ ）。（分数：70.00）A.PathB.DriveC.DirD.Pattern21.下面语句正确的是（ ）。（分数：70.00）A.If xy Then y=x3B.If xy Then y=3xC.If xy Then y=x3D.If

4、 xy Then y=x * * 322.声明一个变量为局部变量应该用（ ）。（分数：70.00）A.GlobalB.PrivateC.StaticD.Public23.如果在窗体上添加一个通用对话框控件 DBT，那么语句“DBTAction=4”的作用是（ ）。（分数：70.00）A.编译器是检查程序错误的第一道防线B.源程序编译过程中没有出现任何错误，执行时就不会发生错误C.Java的异常处理机制是检查程序错误的第二道防线D.选项 A) 和 C) 正确24.设执行以下程序段时依次输入 2，4，6，执行结果为( )。 Dim a(4)As Integer Dim b(4)AS Integer

5、 For k=0 To 2 a(k+1)=Val(InputBox(“Enter data：“) b(3 - k) =a(k + 1) Next k Print b(k) （分数：70.00）A.2B.4C.6D.025.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim m As Integer，n As Integer，p As Integer m=3：n=5：p=O Call Y(m，n，p) Print Str(p) End Sub Sub Y(ByVal i As Integer，ByVal j As Integer，k

6、 As Integer) k=i + j End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。 （分数：70.00）A.资源文件的扩展名为resB.一个窗体对应一个窗体文件C.Visual Basic中的一个工程只包含一个窗体D.Visual Basic中一个工程最多可以包含 255个窗体26.SQL语言又称为( )。（分数：-1.00）A.结构化定义语言B.结构化控制语言C.结构化查询语言D.结构化操纵语言27.为用户与数据库系统提供接口的语言是( )。（分数：-1.00）A.高级语言B.数据描述语言(DDL)C.数据操纵语言(DML)D.汇编语言28.下列不属于结构

7、化分析的常用工具的是( )。（分数：-1.00）A.数据流图B.数据字典C.判定树D.PAD图29.用链表表示线性表的优点是( )。（分数：-1.00）A.便于随机存取B.花费的存储空间比顺序存储少C.便于插入和删除操作D.数据元素的物理顺序与逻辑顺序相同30.单个用户使用的数据视图的描述称为( )。（分数：-1.00）A.外模式B.概念模式C.内模式D.存储模式31.下列数据模型中，具有坚实理论基础的是( )。（分数：-1.00）A.层次模型B.网状模型C.关系模型D.以上 3个都是32.相对于数据库系统，文件系统的主要缺陷有数据关联差、数据不一致性和( )。（分数：-1.00）A.可重用性

8、差B.安全性差C.非持久性D.冗余性33.算法分析的目的是( )。（分数：-1.00）A.找出数据结构的合理性B.找出算法中输入和输出之间的关系C.分析算法的易懂性和可靠性D.分析算法的效率以求改进34.下列叙述中，不属于数据库系统的是( )。（分数：-1.00）A.数据库B.数据库管理系统C.数据库管理员D.数据库应用系统35.一些重要的程序语言(如 C语言和 Pascal语言)允许过程的递归调用。而实现递归调用中的存储分配通常用( )。（分数：-1.00）A.栈B.堆C.数组D.链表三、填空题（每空 2分，共 30分）(总题数：10，分数：30.00)36.在窗体上画两个文本框，其名称分别

9、为 Namel和 PassWordl，然后编写如下事件过程 Private Sub Form_Load1 Show NamelText=“ “ PasswordlText=“ “ PasswordlSetFocus End Sub Private Sub Passwordl_KeyDown(KeyCode As Integer，Shift As Integer) NamelText=Name1Text+Chr(KeyCode - 3) End Sub 程序运行后，如果在 Passwordl中输入“hit，则在 Namel文本框中显示的内容是 2。 （分数：3.00）填空项 1:_37.下面程序

10、运行后，单击命令按钮，输出的结果是 1。 Private Sub Commandl_Click2 Dim a(1 To 4) ，b(2 To 6) ，i，strl#，str2# For i=1 To 4 a(i) =i Next i For i=2 To 6 b(i) =i Next i str1 =YAG(a) str2 =YAG(b) Print“strl“；str1;“str2=“；str2 End Sub Function YAG (a3As Integer) Dim T#，i t=1 For i=LBound(a) To UBound(a) t=t * a(i) Next i YAG

11、 =t End Function （分数：3.00）填空项 1:_38. 阅读程序： Option Base1 Private Sub Form_Click1 Dim a(3)As Integer Print“输入的数据是：”； For i1 To 3 a(i)=InputBox(“输人数据”) Print a(i)； Next Print If a(1)2 End If If a(2)a(3) Then m=a(2) Else If a(1)a(3)Then m= 3 Else m= 4 End If Print“中间数是：”；m End Sub 程序运行后，单击窗体，在输入对话框中分别输人

12、三个整数，程序将输出三个数中的中间数，如图所示。请填空。 （分数：3.00）填空项 1:_39.关系式 x-5 或 x5 所对应的布尔表达式是 1。（分数：3.00）填空项 1:_40.下列事件过程的功能是：通过 Form _ Load事件给数组赋初值为 35、48、15、22、67，Form_ Click事件找出可以被 3整除的数组元素并打印出来。请在空白处填入适当的内容，将程序补充完整。 Dim Arr 1 Private Sub Form _ Load2 3 End Sub Private Sub Form _ Click4 5 If Int(x/3)=x/3 Then Print x

13、End If Next x End Sub （分数：3.00）填空项 1:_41.数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可 以不变，因此，基于逻辑结构的应用程序不必修改，称为 1。（分数：3.00）填空项 1:_42.在修改列表框内容时，RemoveItem 方法的作用是 1。（分数：3.00）填空项 1:_43.以下程序段的输出结果是 1。 num=0 While num=2 num=num+1 Wend Print num （分数：3.00）填空项 1:_44.下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面

14、的程序。 首先在窗体层定义如下变量： Dim PaintStart As Boolean 编写如下事件过程： Private Sub Form_Load1 DrawWidth=2 ForeColor=vbGreen End Sub Private Sub Form_MouseDown(Button As Integer，Shift As Integer，_ X As Single，Y As Single) 2 End Sub Private Sub Form_MouseMove(Button As Integer，Shift As Integer，_ X As Single，Y As Sing

15、le) If PaintStart Then PSet(X，Y) End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，_ X As Single，Y As Single) 3 End Sub Private Sub Form_Db1Click4 5 End Sub （分数：3.00）填空项 1:_45.下面的程序用于根据文本框 Test中输入的内容进行以下处理： 若 Text为 1，则打印“您的成绩为优秀！”；若 Text为 2，则打印“您的成绩为良好!”；若 Text 为 3，则打印“您的成绩为

16、一般”；否则打印“您的成绩一般以下!”，请填空。 Private Sub Command1_Click1 Selct Case Val(Text1.Text) Case 2 Print “您的成绩为优秀！“ Case 3 Print “您的成绩为良好！“ Case 4 Print “您的成绩为一般！“ Case Else Print “您的成绩为一般以下！“ End Select End Sub （分数：3.00）填空项 1:_46.耦合和内聚是评价模块独立性的两个主要标准，其中 1 反映了模块内各成分之间 的联系。 （分数：-1.00）填空项 1:_47.用链表表示线性表的突出优点是 1。（

17、分数：-1.00）填空项 1:_48.当循环队列非空且队尾指针等于队头指针时，说明循环队列已满，不能进行入队运算。这种情况称为 1。（分数：-1.00）填空项 1:_49.算法的基本特征是可行性、确定性、 1 和拥有足够的情报。（分数：-1.00）填空项 1:_50.在关系模型中，把数据看成一个二维表，每一个二维表称为一个 1。（分数：-1.00）填空项 1:_计算机二级(VB)20 答案解析(总分：1765.00，做题时间：90 分钟)一、选择题(每小题 2分，共 70分) 下列各(总题数：25，分数：1750.00)1.下列说法错误的是（ ）。（分数：70.00）A.Caption不是只读

18、属性，运行时对象的名称可以通过代码改变B.设置 Height或 Width的数值单位为 twip，1twip=1/10point C.Icon属性用来设置窗体最小化时的图标D.用来激活属性窗口的快捷键是 F4键解析：Caption 不是只读属性，在设计阶段可以在属性窗口中改变，也可以用代码在运行时改变，不同的运行状态可以有不同的 Caption属性值，所以选项 A)是正确的；Height 和 Width的默认的单位是twip，1twip 等于 1/1440英寸，是 1点的 1/20，故选项 B)是不正确的；Icon 属性是用来设置窗体最小化图标的，所以选项 C)的表述是正确的；用来激活属性窗口

19、的快捷键是 F4键，所以选项 D)也是正确的。2.下列语句中，不能实现循环 100次的是（ ）。（分数：70.00）A.N=0 Do N=N+1 Loop Until N=100B.N=0 Do N=N+1 Loop While n100C.N=0 N=N+1 Do Loop Until N100 D.N=0 Do While n100 N=N+1 Loop解析：选项 C)中循环终止条件为 N100，在第一次循环时该条件就为 True，所以只执行一次，不能循环100次。3.有如下事件过程： Private Sub Commaild1_Click( ) Dim i As Integer For

20、i =1 To 2 DC Next i End Sub Sub DC( ) Dim x As Integer，m As String Static y，n x=x + 1 y=y + 1 m=mB.D-； C.c+；D.-f；解析： 此题考核了 Show方法的使用，Show 方法的格式为： 窗体名称Show模式 Show 方法用来显示一个窗体。如果省略“窗体名称”，则显示当前窗体。参数”模式”用来确定窗体的状态，可以取两种值，即 0和 1(不是 False和 True)。当“模式”值为 1(或常量 vbModal)时，表示窗体是“模态型”窗体，在这种情况下，鼠标只在此窗体内起作用，不能到其他窗

21、口内操作，只有关闭该窗口才能对其他窗口进行操作；当“模式”值为 0(或省略参数“模式”值)时，表示窗体为“非模态型”窗体，不用关闭该窗体就可以对其他窗体进行操作；Show 方法兼有装入和显示窗体的双重功能，也就是说，在执行Show时，如果窗体不在内存中，则 Show自动把窗体装入内存，然后显示出来。 18.下面的程序的运行结果是( )。 a=1 b=1 Do a=a2 b= b + 1 Loop Until b5 Print “k=“；a；Spc(4)；“b=“；b + a （分数：70.00）A.ComputerB.什么都没有C.* * * * * * * * D.程序出错解析：程序中添加注

22、释语句是为了提高程序的可读性，一般格式为： Rem 注释内容或注视内容；注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译，故选项 A)和选项 B)没有错误；任何字符都可以在注释行中作为注释内容，注释语句通常放在过程、模块的开头作为标题用，也可放在执行语句(单行或者复合语句行)的后面，但不可以放在续行符的后面，所以选项 c)没有错误；所以本题的正确答案是选项 D)。19.可以在常量的后面加上类型说明符以显示常量的类型，可以表示整型常量的是（ ）。（分数：70.00）A. B.#C.!D.$解析：下面是常量类型及其类型说明符： 整型 长整型“str2=“；str2 End Su

23、b Function YAG (a3As Integer) Dim T#，i t=1 For i=LBound(a) To UBound(a) t=t * a(i) Next i YAG =t End Function （分数：3.00）填空项 1:_ （正确答案：strl=24 str2=720）解析：程序首先调用循环语句为数组 a、b 赋值，其中 a(i)=I；b(i)=I，且数 组 a的上下界分别为 1和4，数组 b的上下界分别为 2和 6；接着将数组 a作为参数调用 YAG 过程，在 YAG过程中，定义了两个变量 t及 I，I 作为循环语句 For的变量，它的初始 值和终值分别为数组的

24、上下界，循环体为 t=t * a(i)，即将 a(i)的值乘以 t，然后再赋 给 t，当循环结束后，程序返回的就是数组 a中的各元素的积；同理程序将数组 b作为参 数传递给 YAG过程后返回数组 b中各元素的积，运行程序结束后，输出结果为：strX=24 str2=720。38. 阅读程序： Option Base1 Private Sub Form_Click1 Dim a(3)As Integer Print“输入的数据是：”； For i1 To 3 a(i)=InputBox(“输人数据”) Print a(i)； Next Print If a(1)2 End If If a(2)a

25、(3) Then m=a(2) Else If a(1)a(3)Then m= 3 Else m= 4 End If Print“中间数是：”；m End Sub 程序运行后，单击窗体，在输入对话框中分别输人三个整数，程序将输出三个数中的中间数，如图所示。请填空。 （分数：3.00）填空项 1:_ （正确答案：t）解析：39.关系式 x-5 或 x5 所对应的布尔表达式是 1。（分数：3.00）填空项 1:_ （正确答案：x=-5 Or x=5）解析：表示逻辑或的关系运算符号为 Oro40.下列事件过程的功能是：通过 Form _ Load事件给数组赋初值为 35、48、15、22、67，Fo

26、rm_ Click事件找出可以被 3整除的数组元素并打印出来。请在空白处填入适当的内容，将程序补充完整。 Dim Arr 1 Private Sub Form _ Load2 3 End Sub Private Sub Form _ Click4 5 If Int(x/3)=x/3 Then Print x End If Next x End Sub （分数：3.00）填空项 1:_ （正确答案：Arc=Array(35，48，15，22，67)）解析：Form _ Load 事件给数组赋初值，且限定只能用一条语句完成，显然只能用 Array 函数给数组赋值了。Form _ Click 事件是

27、打印出数组中能被 3整除的数，程序中只有“Next x”语句，没有与之对应的For语句。循环体是对数组元素进行处理，但循环体中又没有出现表示数组元素的下标变量，由此判断出应该用 For Each语句。41.数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可 以不变，因此，基于逻辑结构的应用程序不必修改，称为 1。（分数：3.00）填空项 1:_ （正确答案：物理独立性）解析：数据独立性包括数据的物理独立性和逻辑独立性。物理独立性是指用户的应用程序与存储在磁盘上的数据库中数据是相互独立的。数据在磁盘上的数据库中怎样存储是由 DBMS 管理的，用户程序不需要了 解，应用程序

28、要处理的只是数据的逻辑结构，这样当数据的物理存储改变时，应用程序不用改变。逻辑独 立性是指用户的应用程序与数据库的逻辑结构是相互独立的，也就是说，数据的逻辑结构改变了，用户程 序也可以不变。42.在修改列表框内容时，RemoveItem 方法的作用是 1。（分数：3.00）填空项 1:_ （正确答案：用来删除列表中指定的项目）解析：列表框可以使用 AddItem、Clear 和 RemoveItem等方法，用来在运行期间改变列表框的内容。AddItem方法用来在列表框中插入一行文本，格式为：列表框AddItem 项目字符串，索引值；Clear方法用来清除列表框中的全部内容，格式为：列表框Cle

29、ar； RemoveItem 方法用来删除列表中指定的项目，格式为：列表框RemoveItem 索引值。43.以下程序段的输出结果是 1。 num=0 While num=2 num=num+1 Wend Print num （分数：3.00）填空项 1:_ （正确答案：3）解析：44.下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。 首先在窗体层定义如下变量： Dim PaintStart As Boolean 编写如下事件过程： Private Sub Form_Load1 DrawWidth=2 ForeColor=vbGreen

30、End Sub Private Sub Form_MouseDown(Button As Integer，Shift As Integer，_ X As Single，Y As Single) 2 End Sub Private Sub Form_MouseMove(Button As Integer，Shift As Integer，_ X As Single，Y As Single) If PaintStart Then PSet(X，Y) End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，

31、_ X As Single，Y As Single) 3 End Sub Private Sub Form_Db1Click4 5 End Sub （分数：3.00）填空项 1:_ （正确答案：PaintStart=True）解析：上述过程定义了一个布尔型变量 PaintStart，当按下鼠标左键(触发 MouseDown事件)时，由题意按下鼠标键表示能画图，所以该变量的值为 True，而松开鼠标左键(触发 MouseUp事件)时，该变量为False；如果变量 PaintStart为 True，则移动鼠标(触发 MouseMove 事件)，将在窗体上绘出一个点；除鼠标事件外，上述程序还含有一个

32、 Load事件过程和一个 DblClick事件过程，其中 Load事件过程用来设置画点的大小和颜色， DblClick 事件过程用来清除所画的图形，函数 Pset是画点语句，用它可以在(x，y)处画一个点。45.下面的程序用于根据文本框 Test中输入的内容进行以下处理： 若 Text为 1，则打印“您的成绩为优秀！”；若 Text为 2，则打印“您的成绩为良好!”；若 Text 为 3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。 Private Sub Command1_Click1 Selct Case Val(Text1.Text) Case 2 Print “您

33、的成绩为优秀！“ Case 3 Print “您的成绩为良好！“ Case 4 Print “您的成绩为一般！“ Case Else Print “您的成绩为一般以下！“ End Select End Sub （分数：3.00）填空项 1:_ （正确答案：1）解析：函数调用了 Val(Text1Text)函数将从文本框中得到的字符串转化为数据，将转换来的数据作为情况语句的测试条件。因为当输入 1时，则打印“您的成绩为优秀!”；所以当测试表达式的值与之相同时，就执行该 Case分支的语句，同样当输入 2，3 等其他数字时执行其他的 Case分支。46.耦合和内聚是评价模块独立性的两个主要标准，其

34、中 1 反映了模块内各成分之间 的联系。 （分数：-1.00）填空项 1:_ （正确答案：内聚）解析：内聚性是一个模块内部各个元素间彼此结合的紧密程度的度量，内聚是从功能角度来度量模块内的联系；耦合性是模块间互相连接的紧密程度的度量。47.用链表表示线性表的突出优点是 1。（分数：-1.00）填空项 1:_ （正确答案：便于插入和删除操作）解析：为了克服顺序表中插入和删除时需要移动大量数据元素的缺点，引入了链式存储结构。链表表示线性表的突出优点是插入和删除操作方便，不必移动数据元素，执行效率高。48.当循环队列非空且队尾指针等于队头指针时，说明循环队列已满，不能进行入队运算。这种情况称为 1。

35、（分数：-1.00）填空项 1:_ （正确答案：上溢）解析：本题考查了队列的基本性质。入队运算是指在循环队列的队尾加入一个新元素。这个运算有两个基本操作：首先将队尾指针进一(即 rear=rear+1)，并当 lear=m+1时置 rear=1；然后将新元素插入队尾指针指向的位置。当循环队列非空(s=1)时且队尾指针等于队头指针时，说明循环队列已满，不能进行入队运算，这种情况称为“上溢”。 49.算法的基本特征是可行性、确定性、 1 和拥有足够的情报。（分数：-1.00）填空项 1:_ （正确答案：有穷性）解析：算法是指解题方案的准确而完整的描述。它有 4个基本特征，分别是可行性、确定性、有穷性和拥有足够的情报。50.在关系模型中，把数据看成一个二维表，每一个二维表称为一个 1。（分数：-1.00）填空项 1:_ （正确答案：关系）解析：在关系模型中，把数据看成一个二维表，每一个二维表称为一个关系。表中的每一列称为一个属性，相当于记录中的一个数据项，对属性的命名称为属性名；表中的一行称为一个元组，相当于记录值。