>>點擊進入在線模考中心：2013年9月計算機等考二級VB上機臨考沖刺試卷(1)

　　一、選擇題(每小題1分，共40小題，共40分。)

　　1 假定有一個菜單項，名為Menultem，為了在運行時使該菜單項不可見，應使用的語句為(　　)。

　　A. Menultem.Enabled=False

　　B. MenuItem.Enabled=True

　　C. MenuItem.Visible=True

　　D. Menultem.Visible=Flase

　　2 為丫從當前文件夾中讀入文件File1.txt，某人編寫了下面的程序：

　　Private Sub Command1_Click(　　)

　　Open"File1.txt"For Output As#20

　　Do While Not EOF(20)

　　Line Input#20，ch$

　　Print ch

　　Loop

　　Close#20

　　End Sub

　　程序調試時，發現有錯誤，下面的修改方案中正確的是(　　)。

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

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

　　C. 把Print ch語句改為Print#20，ch

　　D. 把Open語句中的0utput改為Input

　　3設有以下函數過程

　　Private Function Fun(a(　　)As Integer，b As String)As Integer

　　…

　　End Function

　　若已有變量聲明：

　　Dim x(5)As Integer，n As Integer，ch As String

　　則下面正確的過程調用語句是(　　)。

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

　　B. n=Fun(n.ch)

　　C. CallFun X，"ch"

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

　　4 窗體的左右兩端各有1直線，名稱分別為Line1、Line2;名稱為Shape1的圓靠在左邊的Linel直線上(見圖);另有1個名稱為Timer1的計時器控件，其Enabled屬性值是True。要求程序運行后，圓每秒向右移動100，當圓遇到Line2時則停止移動。為實現上述功能，某人把計時器的Interva1屬性設置為1000，并編寫了如下程序：

　　Private Sub Timer1 Timer(　　)

　　For k=Line1.X1 To Line2.X1 Step 100

　　If Shape1.Left+Shape1.width　　Shape1.Left=Shape1.Left+100

　　End If

　　Next k

　　End Sub

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

　　A. 把計時器的Interval屬性設置為1

　　B. 把For k=line1.X1 To Line2.X1 Step 100和Next k兩行刪除

　　C. 把For k=Line1.X1 To Line2.X1Step 100改為For k=Line2.X1 To Line1.X1 Step 100

　　D. 把If Shape1.Left+Shepe1.Width　　5 以下關予菜單設計的敘述中錯誤的是(　　)。

　　A. 各菜單項可以構成控件數組

　　B. 每個菜單項可以看成是一個控件

　　C. 設計菜單時，菜單項的“有效”選，即有效，表示該菜單項不顯示

　　D. 菜單項只響應單擊事件

　　一、選擇題(每小題1分，共40小題，共40分。)……

　　二、基本操作題(共18分)……

　　三、簡單應用題(共24分)……

　　四、綜合應用題(共18分)……

>>點擊查看更多在線模擬試題

編輯推薦：

2013年計算機等級考試備考精華資料匯總

全國計算機等級考試教材目錄（2013年版）

全國計算機等級考試考試大綱（2013年版）