2014年12月计算机等级考试二级VB全真模拟卷一_第5页

二、填空题（无答题记录！）
(1) 算法的基本特征是可行性、确定性、 【1】 和拥有足够的情报。
正确答案：有穷性
(2) 在长度为n的有序线性表中进行二分查找。最坏的情况下，需要的比较次数为 【2】 。
正确答案：log2n
(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
正确答案：Welcome to Beijing !
正确答案：Print
(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
正确答案：Select Case x
正确答案：Case Else
(9) 改变驱动器列表框的Drive属性值将引发 【12】 事件。
正确答案：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