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

相關推薦

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

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

　　運行程序時發現圓立即移動到了右邊的直線處，與題目要求的移動方式不符。為得到與題目要求相符的結果，下面修改方案中正確的是（）。

　　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