亚洲午夜网,а√天堂中文最新版8

相關(guān)推薦

全國(guó)計(jì)算機(jī)二級(jí)VB上機(jī)臨考沖刺試卷分享

　　導(dǎo)語(yǔ)：全國(guó)計(jì)算機(jī)二級(jí)考試即將開(kāi)始，下面就由小編為大家?guī)?lái)全國(guó)計(jì)算機(jī)二級(jí)VB上機(jī)臨考沖刺試卷分享，希望對(duì)大家有所幫助！

全國(guó)計(jì)算機(jī)二級(jí)VB上機(jī)臨考沖刺試卷分享

　　一、選擇題（每小題1分，共40小題，共40分。）

　　1假定有一個(gè)菜單項(xiàng)，名為Menultem，為了在運(yùn)行時(shí)使該菜單項(xiàng)不可見(jiàn)，應(yīng)使用的語(yǔ)句為（）。

　　A.Menultem．Enabled=False

　　B.MenuItem．Enabled=True

　　C.MenuItem．Visible=True

　　D.Menultem．Visible=Flase

　　2為丫從當(dāng)前文件夾中讀入文件File1．txt，某人編寫(xiě)了下面的程序：

　　PrivateSubCommand1_Click（）

　　Open"File1．txt"ForOutputAs#20

　　DoWhileNotEOF(20)

　　LineInput#20，ch$

　　Printch

　　Loop

　　Close#20

　　EndSub

　　程序調(diào)試時(shí)，發(fā)現(xiàn)有錯(cuò)誤，下面的修改方案中正確的是（）。

　　A.在Open語(yǔ)句中的文件名前添加路徑

　　B.把程序中各處的“20”改為“1”

　　C.把Printch語(yǔ)句改為Print#20，ch

　　D.把Open語(yǔ)句中的0utput改為Input

　　3設(shè)有以下函數(shù)過(guò)程

　　PrivateFunctionFun(a（）AsInteger，bAsString)AsInteger

　　…

　　EndFunction

　　若已有變量聲明：

　　Dimx(5)AsInteger，nAsInteger，chAsString

　　則下面正確的過(guò)程調(diào)用語(yǔ)句是（）。

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

　　B.n=Fun(n．ch)

　　C.CallFunX，"ch"

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

　　4窗體的左右兩端各有1直線(xiàn)，名稱(chēng)分別為L(zhǎng)ine1、Line2；名稱(chēng)為Shape1的圓靠在左邊的Linel直線(xiàn)上(見(jiàn)圖)；另有1個(gè)名稱(chēng)為T(mén)imer1的計(jì)時(shí)器控件，其Enabled屬性值是True。要求程序運(yùn)行后，圓每秒向右移動(dòng)100，當(dāng)圓遇到Line2時(shí)則停止移動(dòng)。為實(shí)現(xiàn)上述功能，某人把計(jì)時(shí)器的Interva1屬性設(shè)置為1000，并編寫(xiě)了如下程序：

　　PrivateSubTimer1Timer（）

　　Fork=Line1．X1ToLine2．X1Step100

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

　　Shape1．Left=Shape1．Left+100

　　EndIf

　　Nextk

　　EndSub

　　運(yùn)行程序時(shí)發(fā)現(xiàn)圓立即移動(dòng)到了右邊的直線(xiàn)處，與題目要求的移動(dòng)方式不符。為得到與題目要求相符的結(jié)果，下面修改方案中正確的是（）。

　　A.把計(jì)時(shí)器的Interval屬性設(shè)置為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