2007年9月计算机等级二级VB考前密卷四及答案

二、填空题

(1) 算法的基本特征是可行性、确定性、 【1】 和拥有足够的情报。

　　解析： 算法是指解题方案的准确而完整的描述。它有4个基本特征，分别是可行性、确定性、有穷性和拥有足够的情报。

(2) 在长度为n的有序线性表中进行二分查找。最坏的情况下，需要的比较次数为 【2】 。

　　解析： 对于长度为n的有序线性表，在最坏情况下，二分查找只需要比较log2n次，而顺序查找需要比较n次。

(3) 在面向对象的程序设计中，类描述的是具有相似性质的一组 【3】 。

　　解析： 将属性、操作相似的对象归为类，也就是说，类是具有共同属性、共同方法的对象的集合。

 (4) 通常，将软件产品从提出、实现、使用维护到停止使用退役的过程称为 【4】 。

　　解析： 软件产品从考虑其概念开始，到该软件产品不能使用为止的整个时期都属于软件生命周期。一般包括可行性研究与需求分析、设计、实现、测试、交付使用以及维护等活动。

(5) 数据库管理系统常见的数据模型有层次模型、网状模型和 【5】 3种。

　　解析： 数据库管理系统是位于用户与操作系统之间的一层系统管理软件，是一种系统软件，是用户与数据库之间的一个标准接口。其总是基于某种数据模型，可以分为层次模型、网状模型和关系模型。

(6) Visual Basic对象可以分为两类，分别为 【6】 和 【7】 。

　　解析： 对象分为两类：预定义对象和用户定义对象，预定义对象是由系统设计好的，可以直接使用或对其进行操作；而用户定义对象中的对象可由程序员自己定义，建立自己的对象。

(7) 完成下面的程序，使显示结果如下图所示。
　　Private Sub Form_Click()
 　　FontSize=18
　　 Sample＄=" 【8】 "
　　　 x=(ScaleWidth-TextWidth(Sample＄) ) /2
 　　　y=(ScaleHeight-TextHeight(Sample＄) ) /2
 　　CurrentX=x
 　　CurrentY=y
  　【9】 Sample＄
　End Sub
         解析： 该题中主要是考查了赋值语句与显示语句。赋值语句是根据图示给出的信息，填写上字符串，然后，用Print命令，使字符串显示在窗体上。赋值语句为Sample＄ = " Welcome to Beijing !"；输出语句为：Print Sample＄。 
 
(8) 下列程序的功能是：当x<50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x>100时，没有意义。请填空。
　　Private Sub Command1_Click()
 　　Dim x As Single
 　　　x=InputBox("请输入x的值！")
  　　【10】
  　　Case Is < 50
  　　y=0.8 * x
 　　Case 50 To 100
 　　 y=0.7 * x
 　　【11】
 　　 Print "输入的数据出界！"
 　　End Select
 　　Print x, y
　　End Sub
　　 解析：阅读程序后，看到程序中有了Case和End Select子句，没有多分支选择结构的起始语句，很明显，第一个空应该填写多分支结构的起始语句Select Case x。在Select Case 结构中，只有两个Case子句，分别表示x取值的两种情况，但题目中将x的值分为3种情况，可见第二个空应该填写Case Else语句。
 
(9) 改变驱动器列表框的Drive属性值将引发 【12】 事件。

　　解析： 本题考查的是驱动器列表框的知识。驱动器列表框的最常用的事件是"Change事件"，每次重新设置Drive属性都会引起"Change"事件。

(10) 下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。
　　首先在窗体层定义如下变量：
　　Dim PaintStart As Boolean
　　编写如下事件过程：
　　Private Sub Form_Load()
　　 DrawWidth=2
 　　ForeColor=vbGreen
　　End Sub
　　Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
         X As Single, Y As Single)
   　【13】
　　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, _
         X As Single, Y As Single)
   【14】
　End Sub
　Private Sub Form_DblClick()
   【15】
End Sub
　　解析： 上述过程定义了一个布尔型变量PaintStart，当按下鼠标左键(触发MouseDown事件) 时，由题意按下鼠标键表示能画图，所以该变量的值为True，而松开鼠标左键(触发MouseUp事件) 时，该变量为False；如果变量PaintStart为True，则移动鼠标(触发MouseMove事件)，将在窗体上绘出一个点；除鼠标事件外，上述程序还含有一个Load事件过程和一个DblClick事件过程，其中Load事件过程用来设置画点的大小和颜色，DblClick事件过程用来清除所画的图形，函数Pset是画点语句，用它可以在(x,y) 处画一个点。

选择题：

01-05　C　D　B　D　D

06-10　C　D　C　C　D

11-15　C　D　D　B　C

16-20　A　C　D　D　B

21-25　C　C　D　C　A

26-30　B　C　A　A　A

31-35　A　C　B　C　B