答案：A
(26) 运行下列程序段后，显示的结果为
J1=4
J2=9
If J1<J2 Then Print J2 Else Print J1
A) 4
B)9
C) 13
D) 49
答案：B
(27) 下列语句正确的是
A) If A≠B Then Print "A不等于B"
B) If A<>B Then Printf "A不等于B"
C) If A<>B Then Print "A不等于B"
D) If A≠B Print "A不等于B"
答案：C
(28) 下面语句正确的是
A) If x<3y And x>y Then y=x^3
B) If x<3y And x>y Then y=3x
C) If x<3y:x>y Then y=x^3
D) If x<3y And x>y Then y=x* *3
答案：A
(29) 计算z的值，当x大于y时，z=x；否则z=y。下列语句错误的是
A) If x>=y Then z=x : z=y
B) If x>=y Then z=x Else z=y
C) z=y : If x>=y Then z=x
D) If x<=y Then z=y Else z=x
答案：A
(30) 下列程序段执行结果为
x=5
y=-6
If Not x>0 Then x=y-3 Else y=x+3
Print x-y; y-x
A) -3 3
B) 5 -9
C) 3 -3
D) -6 5
答案：A
(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】 和拥有足够的情报。
正确答案：有穷性
(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
