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

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

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

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

　　A.Menultem．Enabled=False

　　B.MenuItem．Enabled=True

　　C.MenuItem．Visible=True

　　D.Menultem．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)

　　C.CallFunX，"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