考试中心安徽省计算机二级笔试权威模拟试题及答案.doc

考试中心安徽省计算机二级笔试权威模拟试题及答案.doc

《考试中心安徽省计算机二级笔试权威模拟试题及答案.doc》由会员分享，可在线阅读，更多相关《考试中心安徽省计算机二级笔试权威模拟试题及答案.doc（8页珍藏版）》请在冰点文库上搜索。

Timewillpiercethesurfaceoryouth,willbeonthebeautyoftheditchdugashallowgroove;Janewilleatrare!

Abornbeauty,anythingtoescapehissicklesweep

.--Shakespeare

全国高等学校（安徽考区）

计算机水平考试试卷B

（二级VisualBasic语言）

一、单项选择题（每题1分，共40分）

1．计算机硬件系统中最核心的部件是C。

A）内存储器 B）输入/输出设备 C）CPU D）硬盘

2．计算机最早的应用领域是A。

A）科学计算 B）图形处理 C）过程控制 D）人工智能

3．下列属于文字处理软件的是B。

A）Windows B）Word C）PowerPoint D）Excel

4．在计算机系统内部，所有数据都是采用D表示。

A）十六进制 B）十进制 C）八进制 D）二进制

5．在Windows系统中，下面文件命名合法的是B。

A）A*.DOC B）AB.DOC C）A?

.DOC D）A>.DOC

6．计算机可以播放DVD等音像制品,主要运用的是A技术。

A）多媒体 B）人工智能 C）数据库 D）数据挖掘

7．将文件从FTP服务器传输到本地计算机的过程称为D。

A）上传 B）浏览 C）查找 D）下载

8．下列IP地址中，错误的是C。

A）219.231.10.155 B）192.168.5.1

C）219.260.20.12 D）192.10.6.7

9．下列关于计算机病毒的叙述中，正确的是C。

A）加密文件不会感染计算机病毒

B）系统软件不会感染计算机病毒

C）有防火墙的计算机系统也会感染病毒

D）压缩的文件不会感染计算机病毒

10．计算机能直接运行的是B。

A）目标程序 B）机器语言程序 C）汇编语言程序 D）高级语言程序

11．下列选项中是VisualBasic的合法变量名的是C。

A）1_abc B）abc-1 C）abc_1 D）abc.1

12．对正整数X、Y，有下列表达式，不能判断X能被Y整除的是C。

A）X/Y=Int（X/Y） B）XModY=0

C）X\Y=Fix（X/Y） D）X\Y=X/Y

13．下面可以正确定义2个整形变量和一个字符型变量的语句是B。

A）Dimx,yAsInteger,nAsString B）Dimx%,yAsInteger,nAsString

C）Dimx%,y$,nAsString D）DimxAsInteger,y,nAsString

14．下面表达式中，A的运算结果与其他三个不同。

A）Exp（-3.5） B）Int（-3.5）+0.5 C）-Abs（-3.5） D）Sgn（-3.5）-2.5

15．将任意一个正的两位整数N的个位数与十位数对换的表达式为A。

A）（N-Int（N/10）*10）*10+Int（N/10） B）N-Int（N）/10*10+Int（N）/10

C）Int（N/10）+（N-Int（N/10）） D）（N-Int（N/10））*10+Int（N/10）

16．执行语句s=Mid（"VisualBasic",1,6）后，s的值是A。

A）Visual B）Basic C）6 D）11

17．表达式5Mod3+3\5*2的值是B。

A）0 B）2 C）4 D）6

18．选拔性别S是女，身高T超过1.6米且体重W小于62.5公斤的人，表示该条件的表达式为C。

A）S="女"AndT>=1.6AndW<=62.5 B）S="女"OrT>1.7OrW<62.5

C）S="女"AndT>1.6AndW<62.5 D）S="女"OrT<=1.7OrW>=62.5

19．可以强行中断程序运行的操作是D。

A）按Ctrl+C键 B）按Ctrl+Z键

C）按Ctrl+V键 D）按Ctrl+Break键

20．在默认条件下有数组声明语句：

DimA（2,-2to2,3），则数组A包含D个元素。

A）200 B）120 C）75 D）60

21．已设置数组元素下标从1开始，下列程序段运行时会提示出错，出错的原因是C。

a=Array（1,2,3,4）

Fori=4To1Step-1

Printa（i）

Nexti

Printa（i）

A）第三行，数组元素a（i）下标越界 B）第一行，数组没定义，不能直接赋值

C）第五行，数组元素a（i）下标越界 D）第二行，循环语句格式不对

22．下列语句不合法的是D。

A）x=1:

y=2 B）Printx;y; C）Printx,y, D）x=1;y=2

23．当0

A）If0

C）If0

24．以下叙述中正确的是A。

A）窗体的Name属性指定窗体的名称，用来标识一个窗体

B）窗体的Name属性值是显示在窗体标题栏中的文本

C）可以在运行期间改变对象的Name属性值

D）对象的Name属性值可以为空

25．当启动程序时，系统自动执行启动窗体的A事件过程。

A）Load B）Unload C）Click D）DblClick

26．将数据项"China"添加到列表框List1中成为第3项，应使用B语句。

A）List1.AddItem"China"，3 B）List1.AddItem"China"，2

C）List1.AddItem3，"China" D）List1.AddItem2，"China"

27．若要使标签框的大小自动与所显示的文本相适应，则可通过设置其A属性值为True来实现。

A）AutoSize B）Alignment C）Appearance D）Visible

28．复选框或单选按钮的当前状态通过A属性来设置或访问。

A）Value B）Checked C）Selected D）Caption

29．要将列表框List1中当前选中的一项删除，应执行的语句是D。

A）List1.Clear

B）list1.ClearList1.ListIndex

C）List1.DeleteList1.ListIndex

D）List1.RemoveItemList1.ListIndex

30．下列控件可以用作其他控件容器的有D。

A）窗体，标签，图片框 B）窗体，框架，文本框

C）窗体，图像，列表框 D）窗体，框架，图片框

31．因修改文本框的内容而触发的事件是A。

A）Change B）GotFocus C）LostFocus D）SetFocus

32．如果每秒触发10次计时器的Timer事件，那么计时器的Interval属性应设为C。

A）1 B）10 C）100 D）1000

33．下列对象中不能获得焦点的是B。

A）命令按钮控件 B）标签控件 C）文本框控件 D）单选按钮控件

34．设x=4，y=8，z=7，表达式xz）Orz

A）1 B）-1 C）True D）False

35．在设计阶段，双击窗体Form1的空白处，则在代码窗口打开B事件过程代码。

A）Form_ClickB）Form_LoadC）Form_DblClickD）Form_Unload

36．如下有一段不完整的程序段，若要求该程序执行3次循环，则在程序中的空白处填入

A。

X=1

Do

x=x+3:

Printx

LoopUntil

A）x>=8 B）x<=8 C）x>=7 D）x<=7

37．执行语句Open"D:

\RandFile.dat"ForOutputAs#1后，对文件“D:

\RandFile.dat”能够进行的操作是B。

A）只能读不能写 B）只能写不能读

C）既可以写，也可以读 D）既不能读，也不能写

38．要在运行时暂时关闭计时器，可通过赋值语句使计时器的C属性值为False。

A）Index B）Tag C）Enable D）Interval

39．VisualBasic中数据库的访问技术不包括D。

A）ADO B）DAO C）RDO D）DBMS

40．下列关于菜单的论述中，错误的是D。

A）菜单项是控件，也具有属性

B）菜单项只有Click事件

C）不能在顶层菜单加快捷键

D）在程序运行过程中，不能通过赋值语句设置菜单项的属性

二、填空题（每空2分，共20分）

1.数学表达式的VisualBasic表达式是：

（x+y）^3*（t+u）^2/t/（x-y）。

2.关系式-7.5≤x≤7.5所对应的逻辑表达式是：

x<=7.5andx>=-7.5。

3.以下程序用于判断输入的年份是否闰年，如果年份能被4整除但不能被100整除,或者年份能被400整除，则该年是闰年，否则不是闰年，请填空完善程序。

PrivateSubCommand1_Click（）

y=Val（InputBox（"请输入一个年份"））

Ifymod4=0andymod100<>0OryMod400=0Then

PrintStr（y）&"年是闰年！

"

Else

PrintStr（y）&"年不是闰年！

"

EndIf

EndSub

4.利用随机函数产生20个[10,90]之间的随机整数，每行输出4个整数。

填空完成以下程序。

PrivateSubForm_Click（）

DimsumAsInteger,xAsInteger

Randomize

Fori=1To20

x=Int（81*rnd）+10 '用随机函数产生[10~90]之间的整数

Printx;

Ifimod4=0ThenPrint '满足换行条件时换行

Nexti

EndSub

5.下列程序的功能是在数组中找出数值最大的元素，请填空完善程序。

PrivateSubCommand1_Click（）

Dimarr1asVariant,MaxAsInteger

arr1=Array（12,34,10,78,4,89,45）

Max=arr1（0）

Fori=1To6

Ifarr1（i）>MaxThen

Max=arr1（i）

Endif

Nexti

Print"最大值是：

";Max

EndSub

6.下列程序的功能是计算（N是偶数），试填空完成以下程序。

PrivateSubCommand2_Click（）

DimSAsDouble

DimIAsInteger,NAsInteger

DimCAsInteger

S=0:

I=1:

C=1

N=Val（InputBox（"请输入大于零的偶数N：

"））

Do

S=S+C*I*I

C=-1*C '正负号切换

I=I+1 '循环变量增加

LoopWhileI<=N '循环结束条件

EndSub

三、阅读理解题（每小题4分，共20分）

1．执行下列程序后，输出的结果是：

1010

PrivateSubForm_Click（）

DimxAsInteger

x=10

SelectCasex

CaseIs>=10

Printx&x

Case7,8,9

Printx+x

Case0To6

Printx

EndSelect

EndSub

2．执行下列程序后，输出的结果是：

cals

PrivateSubForm_Click（）

DimiAsInteger

DimtAsString

st=""

Fori=1To12 '字符串逐字符处理

IfiMod3=0Then

st=Mid（"VisualBasic",i,1）+st

EndIf

Nexti

Printst

EndSub

3．执行下列程序后，输出的结果是：

55

PrivateSubForm_Click（）

DimsAsInteger,nAsInteger

s=0

n=1

Do

s=s+n*n

Ifs>50Then

ExitDo '强制跳出循环

EndIf

n=n+1 '循环变量自增

LoopUntiln>6

Prints

EndSub

4．执行下列程序后，输出的结果是：

102

OptionBase1

PrivateSubForm_Click（）

Dima（4,4）AsInteger

DimiAsInteger,jAsInteger

DimcountAsInteger,sAsInteger

count=1

Fori=1To4 '给二维数组赋值并累加特殊位置的元素值

Forj=1To4

a（i,j）=count

count=count+1

Ifi=1Ori=4Orj=1Orj=4Then

s=s+a（i,j）

EndIf

Nextj

Nexti

Prints

EndSub

5．执行下列程序后，E盘下tdata.txt文件中的内容是：

30

PrivateSubForm_Click（）

Fori=1To5

s=s+fun（i）

Nexti

Open"e:

\tdata.txt"ForOutputAs#1 '打开顺序文件

Print#1,s

Close#1

EndSub

PrivateFunctionfun（ByValiAsInteger）AsInteger

Statica

a=a+1

fun=a*i

EndFunction

四、编程题（共20分）

1．编写一个Function函数fun，求解如下分段函数的值（x为实型变量的函数形参）（6分）

Y=

-xx<0

x20≤x≤10

100x>10

答：

PrivateFunctionFUN（ByValxAsSingle）AsSingle

DimyAsSingle

Ifx<0Then

y=-x

ElseIfx<=10Then

y=x*x

Else

y=100

EndIf

FUN=y

EndFunction

2．编写程序，利用随机函数产生10个[10，100]之间的整数，并存入数组中，求出该数组中最大数与最小数之差并在窗体上输出结果。

（7分）

答：

Dima（9）AsInteger

DimiAsInteger,maxAsInteger,minAsInteger

Fori=0To9

a（i）=Int（Rnd*91）+10

Nexti

max=-1：

min=999

Fori=0To9

Ifmax

Ifmin>a（i）Thenmin=a（i）

Nexti

Print"最大及最小数之差为";max-min

参考程序2：

（排序计算）

Dima（9）AsInteger

DimiAsInteger,maxAsInteger,minAsInteger

Fori=0To9

a（i）=Int（Rnd*91）+10

Nexti

Fori=0To8

Forj=i+1To9

Ifa（i）

tem=a（i）：

a（i）=a（j）：

a（j）=tem

EndIf

Nextj

Nexti

Print"最大及最小数之差为";a（0）-a（9）

3．假定在E盘下有一文件data.dat，其内容为三个点的坐标，内容样式如下

4,8

2,6

3,8

每一行的前1个数据表示点的横坐标x，后一个数据表示点的纵坐标y。

编写程序读取文件中的数据，并判断该三点能否构成三角形。

（7分）

提示：

利用任意两边之和大于第三边来判定三角形。

边长L=，其中（x1,y1）及（x2,y2）为两点坐标。

参考程序1：

Dims（2,1）AsInteger

Diml1AsSingle,l2AsSingle,l3AsSingle

Open"e:

\a.txt"ForInputAs#1

Fori=0To2

Input#1,s（i,0）,s（i,1）

Nexti

Close#1

l1=Sqr（（s（0,0）-s（1,0））^2+（s（0,1）-s（1,1））^2）

l2=Sqr（（s（0,0）-s（2,0））^2+（s（0,1）-s（2,1））^2）

l3=Sqr（（s（1,0）-s（2,0））^2+（s（1,1）-s（2,1））^2）

Ifl1+l2>l3Andl2+l3>l1Andl1+l3>l2Then

MsgBox（"文件中三点能构成三角形"）

Else

MsgBox（"文件中三点不能构成三角形"）

EndIf