>>點(diǎn)擊進(jìn)入在線?贾行模2013年9月計(jì)算機(jī)等考二級(jí)VB上機(jī)臨考沖刺試卷(1)
一、選擇題(每小題1分,共40小題,共40分。)
1 假定有一個(gè)菜單項(xiàng),名為Menultem,為了在運(yùn)行時(shí)使該菜單項(xiàng)不可見,應(yīng)使用的語(yǔ)句為( )。
A. Menultem.Enabled=False
B. MenuItem.Enabled=True
C. MenuItem.Visible=True
D. Menultem.Visible=Flase
2 為丫從當(dāng)前文件夾中讀入文件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
程序調(diào)試時(shí),發(fā)現(xiàn)有錯(cuò)誤,下面的修改方案中正確的是( )。
A. 在Open語(yǔ)句中的文件名前添加路徑
B. 把程序中各處的“20”改為“1”
C. 把Print ch語(yǔ)句改為Print#20,ch
D. 把Open語(yǔ)句中的0utput改為Input
3設(shè)有以下函數(shù)過程
Private Function Fun(a( )As Integer,b As String)As Integer
…
End Function
若已有變量聲明:
Dim x(5)As Integer,n As Integer,ch As String
則下面正確的過程調(diào)用語(yǔ)句是( )。
A. x(O)=Fun(x."ch")
B. n=Fun(n.ch)
C. CallFun X,"ch"
D. n=Fun(x(5),ch)
4 窗體的左右兩端各有1直線,名稱分別為L(zhǎng)ine1、Line2;名稱為Shape1的圓靠在左邊的Linel直線上(見圖);另有1個(gè)名稱為Timer1的計(jì)時(shí)器控件,其Enabled屬性值是True。要求程序運(yùn)行后,圓每秒向右移動(dòng)100,當(dāng)圓遇到Line2時(shí)則停止移動(dòng)。為實(shí)現(xiàn)上述功能,某人把計(jì)時(shí)器的Interva1屬性設(shè)置為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
運(yùn)行程序時(shí)發(fā)現(xiàn)圓立即移動(dòng)到了右邊的直線處,與題目要求的移動(dòng)方式不符。為得到與題目要求相符的結(jié)果,下面修改方案中正確的是( )。
A. 把計(jì)時(shí)器的Interval屬性設(shè)置為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 以下關(guān)予菜單設(shè)計(jì)的敘述中錯(cuò)誤的是( )。
A. 各菜單項(xiàng)可以構(gòu)成控件數(shù)組
B. 每個(gè)菜單項(xiàng)可以看成是一個(gè)控件
C. 設(shè)計(jì)菜單時(shí),菜單項(xiàng)的“有效”選,即有效,表示該菜單項(xiàng)不顯示
D. 菜單項(xiàng)只響應(yīng)單擊事件
一、選擇題(每小題1分,共40小題,共40分。)……
二、基本操作題(共18分)……
三、簡(jiǎn)單應(yīng)用題(共24分)……
四、綜合應(yīng)用題(共18分)……
編輯推薦:
2013年計(jì)算機(jī)等級(jí)考試備考精華資料匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |