(31) 不能脱离控件(包括客体) 而独立存在的过程是
A) 事件过程
B) 通用过程
C) Sub过程
D) 函数过程
正确答案: A
(32) Sub过程与Function过程最根本的区别是
A) Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以
B) Function过程可以有形参，Sub过程不可以
C) Sub过程不能返回值，而Function过程能返回值
D) 两种过程参数的传递方式不同
正确答案: C
(33) 单击命令按钮时，下列程序的执行结果为
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=12:y=32
Call Proc(x,y)
Print x; y
End Sub
Public Sub Proc(n As Integer, ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
A) 1232
B) 232
C) 23
D) 123
正确答案: B
(34) 单击命令按钮时，下列程序的执行结果是
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a=3
b=4
c=5
Print SecProc(c, b, A)
End Sub
Function FirProc(x As Integer, y As Integer, z As Integer)
FirProc=2x+y+3z
End Function
Function SecProc(x As Integer, y As Integer, z As Integer)
SecProc=FirProc(z, x, y) +x
End Function
A) 20
B) 22
C) 28
D) 30
正确答案: C
(35) 下列程序的执行结果为
Private Sub Command1_Click()
Dim FirStr As String
FirSt="abcdef"
Print Pat(FirStr)
End Sub
Private Function Pat(xStr As String) As String
Dim tempStr As String, strLen As Integer
tempStr=""
strLen=Len(xStr)
i=1
Do While i<=Len(xStr) -3
tempStr=tempStr+Mid(xStr, i, 1) +Mid(xStr, strLen -i+1, 1)
i=i+1
Loop
Pat=tempStr
End Function
A) abcdef
B) afbecd
C) fedcba
D) defabc
正确答案: B
二 、填空题
(1) 算法的基本特征是可行性、确定性、 【1】 和拥有足够的情报。
正确答案: 1.(有穷性)
(2) 在长度为n的有序线性表中进行二分查找。最坏的情况下，需要的比较次数为 【2】 。
正确答案: 1.(log2n)
(3) 在面向对象的程序设计中，类描述的是具有相似性质的一组 【3】 。
正确答案: 1.(对象)
(4) 通常，将软件产品从提出、实现、使用维护到停止使用退役的过程称为 【4】 。
正确答案: 1.(软件生命周期)
(5) 数据库管理系统常见的数据模型有层次模型、网状模型和 【5】 3种。
正确答案: 1.(关系模型)
(6) Visual Basic对象可以分为两类，分别为 【6】 和 【7】 。
正确答案: 1.(预定义对象) 2.(用户定义对象)
(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
正确答案: 1.(Welcome to Beijing !) 2.(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
正确答案: 1.(Select Case x) 2.(Case Else)
(9) 改变驱动器列表框的Drive属性值将引发 【12】 事件。
正确答案: 1.(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
正确答案: 1.(PaintStart = True) 2.(PaintStart = False) 3.(Cls)
