计算机等级考试二级VB全真模拟题及答案（2）
侧方位停车技巧图解302015计算机等级考试二级VB全真模拟题及答案
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
陆昱霖在一般情况下(即不按住Shift键和锁定大写键时) 运行程序，如果按"A"键，则程序输出的结果是
A) A
a
B) a
A
C) A
A
D) a
a
正确答案：C
(23) 要使菜单项MenuOne在程序运行时失效，使用的语句是
A) MenuOne.Visible=True
B) MenuOne.Visible=False
C) MenuOne.Enabled=True
D) MenuOne.Enabled=False
答案：D
(24) 在窗体上建立通用对话框需要添加的控件是
A) Data控件
B) From控件
C) CommonDialog控件
D) VBComboBox控件
答案：C
(25) 在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是
A) Load
B) Show
C) Hide
D) Unload
答案：A
(26) 运行下列程序段后，显示的结果为
J1=4
J2=9
If J1A) 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<3?y And x>y Then y=x^3
B) If x<3?y And x>y Then y=3x
C) If x<3?y:x>y Then y=x^3
D) If x<3?y 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=2?x+y+3?z
End Function
Function SecProc(x As Integer, y As Integer, z As Integer)
SecProc=FirProc(z, x, y) +x
二级VB
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