网站首页
分类导航
试题中心
下载中心
英语学习
缤纷校园
考试论坛
网站留言
客服中心
 计算机等级考试二级VB全真模拟试题(一)
【字体:
计算机等级考试二级VB全真模拟试题(一)
http://www.exam8.com 来源:chinaitlab 点击: 更新:2005-6-27

答案: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<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
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

上一页  [1] [2] 

文章录入:ak47    责任编辑:Exam8.com  
 版权声明
   如果本网站所转载内容不慎侵犯了您的权益,请与我们联系,我们将会及时处理。如转载本网内容,请注明出处。
 发表评论
关于本站 网站声明 广告服务  联系方式  付款方式  站内导航  客服中心  友情链接   
Copyright © 2004-2006 考试吧 (Exam8.com) All Rights Reserved 
中国科学院研究生院中关村园区(北京市海淀区)