浏览次数: 时间:2015/11/17
计算机等级考试二级VB全真模拟卷答案:D
(11) 关于Visual Basic"方法"的概念错误的是
A) 方法是对象的一部分
B) 方法是预先定义好的操作
C) 方法是对事件的响应
D) 方法用于完成某些特定的功能
答案:C
(12) 下列说法有错误的是
A) 默认情况下,属性Visible的值为True
B) 如果设置控件的Visible属性为False,则运行时控件会隐藏
C) Visible的值可设为True或者False
D) 设置Visible属性同设置Enabled属性的功能是相同的,都是使控件处于失效状态
答案:D
(13) 下列各控件不包含滚动条的控件是
A) ListBox B) ComboBox C) TextBox D) LabelBox
答案:D
(14) 如果在程序中要将c定义为静态变量,且为整型数,则应使用的语句是
A) Redim a As Integer
B) Static a As Integer
C) Public a As Integer
D) Dim a As Integer
答案:B
(15) 声明一个变量为局部变量应该用
A) Global
B) Private
C) Static
D) Public
答案:C
(16) 执行x$=InputBox("请输入x的值") 时,在弹出的对话框中输入123,在列表框List1选中第1个列表项(数据为456) ,使其值为123456的语句是
A) y=x$+List1.List(0)
B) y=x$+List1.List(1)
C) y=Val(x$) +Val(List1.List(0) )
D) y=Val(x$) & Val(List1.List(1) )
答案:A
(17) 以下各项中,Visual Basic不能接收的图形文件是
A) .ico文件
B) .jpg文件
C) .psd文件
D) .bmp文件
答案:C
(18) 下面的属性中,用于自动调整图像框中图形内容的大小的是
A) Picture
B) CurentY
C) CurrentX
D) Stretch
答案:D
(19) 下面有关注释语句的格式,错误的是
A) Rem注释内容
B) ′注释内容
C) a=3:b=2 ′对a、b赋值
D) Private Sub Command1_MouseDown(button As Integer , shift As Integer , _
Rem 鼠标按下事件的命令调用过程 X As Single ,Y As Single)
答案:D
(20) 只有将组合框的Style属性设置为何值时,才能触发DblClick事件?
A) 0
B) 1
C) 2
D) 3
答案:B
(21) 以下属于Visual Basic合法的数组元素是
A) x8
B) x[8]
C) s(0)
D) v[8]
正确答案:C
(22) 编写如下两个事件过程:
Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
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<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