A）4
B）9
C）13
D）49
答案：
B
（27）下列语句正确的是
A）IfA≠BThenPrint"A不等于B"
B）IfA<>BThenPrintf"A不等于B"
C）IfA<>BThenPrint"A不等于B"
D）IfA≠BPrint"A不等于B"
答案：
C
（28）下面语句正确的是
A）Ifx<3yAndx>yTheny=x^3
B）Ifx<3yAndx>yTheny=3x
C）Ifx<3y:
x>yTheny=x^3
D）Ifx<3yAndx>yTheny=x**3
答案：
A
（29）计算z的值，当x大于y时，z=x；否则z=y。
下列语句错误的是
A）Ifx>=yThenz=x:
z=y
B）Ifx>=yThenz=xElsez=y
C）z=y:
Ifx>=yThenz=x
D）Ifx<=yThenz=yElsez=x
答案：
A
（30）下列程序段执行结果为
x=5
y=-6
IfNotx>0Thenx=y-3Elsey=x+3
Printx-y;y-x
A）-33
B）5-9
C）3-3
D）-65
答案：
A
（31）不能脱离控件（包括客体）而独立存在的过程是
A）事件过程
B）通用过程
C）Sub过程
D）函数过程
答案：
A
（32）Sub过程与Function过程最根本的区别是
A）Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以
B）Function过程可以有形参，Sub过程不可以
C）Sub过程不能返回值，而Function过程能返回值
D）两种过程参数的传递方式不同
答案：
C
（33）单击命令按钮时，下列程序的执行结果为
PrivateSubCommand1_Click（）
DimxAsInteger,yAsInteger
x=12:
y=32
CallProc（x,y）
Printx;y
EndSub
PublicSubProc（nAsInteger,ByValmAsInteger）
n=nMod10
m=mMod10
EndSub
A）1232
B）232
C）23
D）123
答案：
B
（34）单击命令按钮时，下列程序的执行结果是
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger,cAsInteger
a=3
b=4
c=5
PrintSecProc（c,b,a）
EndSub
FunctionFirProc（xAsInteger,yAsInteger,zAsInteger）
FirProc=2x+y+3z
EndFunction
FunctionSecProc（xAsInteger,yAsInteger,zAsInteger）
SecProc=FirProc（z,x,y）+x
EndFunction
A）20
B）22
C）28
D）30
答案：
C
（35）下列程序的执行结果为
PrivateSubCommand1_Click（）
DimFirStrAsString
FirSt="abcdef"
PrintPat（FirStr）
EndSub
PrivateFunctionPat（xStrAsString）AsString
DimtempStrAsString,strLenAsInteger
tempStr=""
strLen=Len（xStr）
i=1
DoWhilei<=Len（xStr）-3
tempStr=tempStr+Mid（xStr,i,1）+Mid（xStr,strLen-i+1,1）
i=i+1
Loop
Pat=tempStr
EndFunction
A）abcdef
B）afbecd
C）fedcba
D）defabc
正确答案：
B
二、填空题（无答题记录！
）
（1）算法的基本特征是可行性、确定性、【1】和拥有足够的情报。
正确答案：
有穷性
（2）在长度为n的有序线性表中进行二分查找。
最坏的情况下，需要的比较次数为【2】。
正确答案：
log2n
（3）在面向对象的程序设计中，类描述的是具有相似性质的一组【3】。
正确答案：
对象
（4）通常，将软件产品从提出、实现、使用维护到停止使用退役的过程称为【4】。
正确答案：
软件生命周期
（5）数据库管理系统常见的数据模型有层次模型、网状模型和【5】3种。
正确答案：
关系模型
（6）VisualBasic对象可以分为两类，分别为【6】和【7】。
正确答案：
预定义对象
正确答案：
用户定义对象
（7）完成下面的程序，使显示结果如下图所示。
PrivateSubForm_Click（）
FontSize=18
Sample＄="【8】"
x=（ScaleWidth-TextWidth（Sample＄））/2
y=（ScaleHeight-TextHeight（Sample＄））/2
CurrentX=x
CurrentY=y
【9】Sample＄
EndSub
正确答案：
WelcometoBeijing!
正确答案：
Print
（8）下列程序的功能是：
当x<50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x>100时，没有意义。
请填空。
PrivateSubCommand1_Click（）
DimxAsSingle
x=InputBox（"请输入x的值！
"）
【10】
CaseIs<50
y=0.8*x
Case50To100
y=0.7*x
【11】
Print"输入的数据出界！
"
EndSelect
Printx,y
EndSub
正确答案：
SelectCasex
正确答案：
CaseElse
（9）改变驱动器列表框的Drive属性值将引发【12】事件。
正确答案：
Change
（10）下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。
补充完整下面的程序。
首先在窗体层定义如下变量：
DimPaintStartAsBoolean
编写如下事件过程：
PrivateSubForm_Load（）
DrawWidth=2
ForeColor=vbGreen
EndSub
PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle）
【13】
EndSub
PrivateSubForm_MouseMove（ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle）
IfPaintStartThen
PSet（X,Y）
EndIf
EndSub
PrivateSubForm_MouseUp（ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle）
【14】
EndSub
PrivateSubForm_DblClick（）
【15】
EndSub
计算机等级考试二级VB全真模拟卷
（二）
一、选择题：
35题，2分/题，共70分
下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
1.保存一个工程至少应保存两个文件，这两个文件分别是（B）
A）文本文件和工程文件
B）窗体文件和工程文件
C）窗体文件和标准模块文件
D）类模块文件和工程文件
2.当对命令按钮的Picture属性装入.bmp图形文件后，命令按钮上并没有显示所需的图形，原因是没有对某个属性设置为1，该属性是（B）
A）MousePicture
B）Style
C）DownPicture
D）DisabledPicture
3.下面叙述正确的是（B）
A）Spc函数既能用于Print方法中，也能用于表达式
B）Space函数既能用于Print方法中，也能用于表达式
C）Spc函数与Space函数均生成空格，没有区别
D）以上说法均不对
4.假设变量bool_x是一个布尔型（逻辑型）的变量，则下面正确的赋值语句是（D）
A）bool_x="False"
B）bool_x=.False.
C）bool_x=#False#
D）bool_x=False
5.要存放如下方阵的数据，在不浪费存储空间的基础上，能实现声明的语句是（D）
123
246
369
A）DimA（9）AsInteger
B）DimA（3,3）AsInteger
C）DimA（-1to1,-3to-1）AsSingle
D）DimA（-3to-1,1to3）AsInteger
6.下面子过程语句说明合法的是（D）
A）Subf1（ByValn（）AsInteger）
B）Subf1（n（）AsInteger）AsInteger
C）Functionf1（f1AsInteger）AsInteger
D）Finctionf1（ByValnAsInteger）
7.已知X>Y，A>B，正确表示它们之间关系的式子是（B）
A）Sgn（Y-X）-sgn（A-B）<0
B）Sgn（Y-X）-Sgn（A-B）=-2
C）Sgn（Y-X）-Sgn（A-B）=0
D）Sgn（Y-X）-Sgn（A-B）=-1
8.设a=2,b=4,c=6，下列表达式的值为真的是（D）
A）a>bAndcB）a>bOrcC）a>bXorcD）a>bEqvc9.设S=“中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（B）
A）“中华民国”
B）“中国人民”
C）“中共人民”
D）“人民共和”
10.下列表达式的值为2123的是（B）
A）Val（"123asd"）&2000
B）Val（"123asd"）+2000
C）Str（123）&"2000"
D）Str（123）+"2000"
11.下列叙述不正确的是（C）
A）InputBox函数返回值为字符型
B）MsgBox函数返回值为所单击按钮的整数值
C）MsgBox语句返回值为所单击按钮的键值
D）Shell函数返回值为所执行文件的工作代码
12.下列叙述不正确的是（A）
A）命令按钮的默认属性为Caption
B）标签的默认主属性为Caption
C）复选框的默认属性为value
D）滚动条的默认属性为value
13.下列各程序段中，正确的是（C）
A）If10<10Thena=a+10
B）Ifa>10Thena=a+1Elsea=a+5EndIf
C）Ifa<=10Then
a=a+1
Else
EndIf
D）Ifa<=10Then
a=a+1
ElseIfa<=20Then
a=a+10
EndIf
14.在窗体上画一个命令按钮，名称为Command1。
然后编写如下程序：
PrivateSubCommand1_Click（）
ForI=1to2
ForJ=1toI
PrintString（I,"Hello"）;
NextJ
Print
NextI
EndSub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（B）
A）H
HH
HHH
B）H
HHHH
C）HHHHH
D）H
HH
HHHH
15.为了使图像框与图片框的大小适应图片的大小，下边属性组设置正确的是（B）
A）Autosize=TureStretch=True
B）Autosize=TureStretch=False
C）Autosize=FalseStretch=True
D）Autosize=FalseStretch=False
16.假设x的值为5，则在执行以下语句时，其输出结果为“OK”的Selectcase语句是（C）
A）SelectCaseX
Case10to1
Print"OK"
EndSelect
B）SelectCaseX
CaseIs>5,Is<5
Print"OK"
EndSelect
C）SelectCaseX
CaseIs>5,1,3to10
Print"OK"
EndSelect
D）SelectCaseX
Case1,3Is>5
Print"OK"
EndSelect
17.有如下程序：
PrivateSubForm_Click（）
DimcheckAsBoolean,nAsInteger
check=False
n=0
Do
DoWhilen<10
n=n+1
Ifn=5Then
check=True
ExitDo
EndIf
Printn；
Loop
LoopUntilcheck=True
EndSub
程序运行后，输出的结果是（B）
A）123
B）1234
C）12345
D）123456
18.在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是（A）
A）PrivateSubText1_GotFocus（）
Text1.SelStart=0
Text1.SelLength=Len（Text1.text）
EndSub
B）PrivateSubText1_LostFocus（）
Text1.SelStart=0
Text1.SelLength=Len（Text1.text）
EndSub
C）PrivateSubText1_Change（）
Text1.SelStart=0
Text1.SelLength=Len（Text1.text）
EndSub
D）PrivateSubText1_SetFocus（）
Text1.SelStart=0
Text1.SelLength=Len（Text1.text）
EndSub
19.有如下程序（D）
PrivateSubFrom_Activate（）
Dima
a=Array（1,2,3,4,5）
Fori=LBound（a）ToUBound（a）
a（i）=i*a（i）
Nexti
Printi,LBound（a）,UBound（a）,a（i）
EndSub
A）40425
B）50425
C）不确定
D）程序出错
20.在窗体上画一个水平滚动条，名称为HScroll1;再画一个文本框，名称为Text1。
要想使用滚动条滑块的变化量来调用文本框中文字的大小，则可满足的语句是（C）
A）Text1.FontName=HScroll1.Max
B）Text1.FontSize=HScroll1.Min
C）Text1.FontSize=HScroll1.value
D）Text1.FontBold=HScroll1.value
21.在下列程序中，无论使用鼠标左键还是右键都能弹出菜单，且弹出菜单中的菜单项都响应鼠标单的是（D）
A）SubForm_MouseDown（
升级会员 