全國計算機二級VB上機臨考衝刺試卷分享

來源：文萃谷 2.81W

導語：全國計算機二級考試即將開始，下面就由小編為大家帶來全國計算機二級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