全国计算机二级VB上机临考冲刺试卷分享

导语：全国计算机二级考试即将开始，下面就由小编为大家带来全国计算机二级VB上机临考冲刺试卷分享，希望对大家有所帮助！

一、选择题（每小题1分，共40小题，共40分。）

1假定有一个菜单项，名为Menultem，为了在运行时使该菜单项不可见，应使用的语句为（ ）。

ltem．Enabled=False

Item．Enabled=True

Item．Visible=True

ltem．Visible=Flase

2为丫从当前文件夹中读入文件File1．txt，某人编写了下面的程序：

PrivateSubCommand1_Click（ ）

Open"File1．txt"ForOutputAs#20

DoWhileNotEOF(20)

LineInput#20，ch$

Printch

Loop

Close#20

EndSub

程序调试时，发现有错误，下面的修改方案中正确的是（ ）。

A.在Open语句中的文件名前添加路径

B.把程序中各处的.“20”改为“1”

C.把Printch语句改为Print#20，ch

D.把Open语句中的0utput改为Input

3设有以下函数过程

PrivateFunctionFun(a（ ）AsInteger，bAsString)AsInteger

…

EndFunction

若已有变量声明：

Dimx(5)AsInteger，nAsInteger，chAsString

则下面正确的过程调用语句是（ ）。

A.x(O)=Fun(x．"ch")

B.n=Fun(n．ch)

FunX，"ch"

D.n=Fun(x(5)，ch)

4窗体的左右两端各有1直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Linel直线上(见图)；另有1个名称为Timer1的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interva1属性设置为1000，并编写了如下程序：

PrivateSubTimer1Timer（ ）

Fork=Line1．X1ToLine2．X1Step100

IfShape1．Left+Shape1．width<LINE2．X1&NBSP;THEN

Shape1．Left=Shape1．Left+100

EndIf

Nextk

EndSub

运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面修改方案中正确的是（ ）。

A.把计时器的Interval属性设置为1

B.把Fork=line1．X1ToLine2．X1Step100和Nextk两行删除

C.把Fork=Line1．X1ToLine2．X1Step100改为Fork=Line2．X1ToLine1．X1Step100

D.把IfShape1．Left+Shepe1．Width<LINE2．X1&NBSP;THEN改为IF&NBSP;SHAPE1．LEFT<LINE2．X1&NBSP;THEN

5以下关予菜单设计的叙述中错误的是（ ）。

A.各菜单项可以构成控件数组

B.每个菜单项可以看成是一个控件

C.设计菜单时，菜单项的“有效”选，即有效，表示该菜单项不显示

D.菜单项只响应单击事件