21.下列說(shuō)法中正確的是( )。

　　A.當(dāng)焦點(diǎn)在某個(gè)控件上時(shí)，按下一個(gè)字母鍵，就會(huì)執(zhí)行該控件的KeyPress事件過(guò)程

　　B.因?yàn)榇绑w不接受焦點(diǎn)，所以窗體不存在自己的KeyPress事件過(guò)程

　　C.若按下的鍵相同，KeyPress事件過(guò)程中的KeyAscii參數(shù)與KeyDown事件過(guò)程中的KeyCode參數(shù)的值也相同

　　D.在KeyPress事件過(guò)程中，KeyAscii參數(shù)可以省略

　　22.語(yǔ)句Dim a(-3 To 4，3 To 6)As Integer定義的數(shù)組元素個(gè)數(shù)是( )。

　　A.18

　　B.28

　　C.21

　　D.32

　　23.在窗體上畫(huà)一個(gè)命令按鈕，其名稱(chēng)為Command1，然后編寫(xiě)下列代碼：

　　Option Base l

　　Private Sub Command1 Click()

　　Dim a

　　a=Array(1，2，3，4)

　　j=1

　　For i=4 To 1 Step-1

　　s=s+a(i)*j

　　j=j*10

　　Next i

　　Print S

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果是( )。

　　A.4321

　　B.1234

　　C.34

　　D.12

　　24.假定通過(guò)復(fù)制、粘貼操作建立了一個(gè)命令按鈕數(shù)組Command1，下列說(shuō)法中錯(cuò)誤自是( )。

　　A.數(shù)組中每個(gè)命令按鈕的名稱(chēng)(Name屬性)均為Command1

　　B.若未做修改，數(shù)組中每個(gè)命令按鈕的大小都一樣

　　C.數(shù)組中各個(gè)命令按鈕使用同一個(gè)Click事件過(guò)程

　　D.數(shù)組中每個(gè)命令按鈕的Index屬性值都相同

　　25.在窗體上畫(huà)一個(gè)命令按鈕，名稱(chēng)為Command1，然后編寫(xiě)下列代碼：

　　Option Base 0

　　Private Sub Command1 Click()

　　Dim A1(4)As Integer，A2(4)As Integer

　　For k=0 To 2

　　A1(k+1)=InputBox(”請(qǐng)輸入一個(gè)整數(shù)”)

　　A2(3-k)=A1(k+1)

　　Next k

　　Print A2(k)

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中依次輸入2、4、6，則輸出結(jié)果為( )。

　　A.0

　　B.1

　　C.2

　　D.3

　　26.下列關(guān)于函數(shù)過(guò)程的敘述中，正確的是( )。

　　A.函數(shù)過(guò)程形參的類(lèi)型與函數(shù)返回值的類(lèi)型沒(méi)有關(guān)系

　　B.在函數(shù)過(guò)程中，過(guò)程的返回值可以有多個(gè)

　　C.當(dāng)數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞

　　D.如果不指明函數(shù)過(guò)程參數(shù)的類(lèi)型，則該參數(shù)沒(méi)有數(shù)據(jù)類(lèi)型

　　27.在窗體上畫(huà)兩個(gè)標(biāo)簽和一個(gè)命令按鈕，其名稱(chēng)分別為L(zhǎng)abel1、Label2和Command1，然后編寫(xiě)下列程序：

　　Private Sub rune(L AS Labe1)

　　L.Caption="1234"

　　End Sub

　　Private Sub Form Load()

　　Labe11.Caption="ABCDE"

　　Labe12.Caption=10

　　End Sub

　　Private Sub Command1Click()

　　a=Va1(Label2.Caption)

　　Call func(Label1)

　　Label2.Caption a

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，則在兩個(gè)標(biāo)簽中顯示的內(nèi)容分別為( )。

　　A.ABCD和10 B.1234和100

　　C.ABCD和100 D.1234和10

　　28.在窗體上畫(huà)一個(gè)命令按鈕(名稱(chēng)為Command1)，并編寫(xiě)下列代碼：

　　Function Fun1(ByVa1 a As Integer，b As Integer)As Integer

　　Dim t As Integer

　　t=a-b

　　b=t+a

　　Fun1=t+b

　　End Function

　　Private Sub Command1Click()

　　Dim X As Integer

　　x=10

　　Print Fun1(Vun1(X，(Fun1(x，x-1)))，x-1)

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是( )。

　　A.10

　　B.0

　　C.11

　　D.21

　　29.下列關(guān)于過(guò)程及過(guò)程參數(shù)的描述中，錯(cuò)誤的是( )。

　　A.過(guò)程的參數(shù)可以是控件名稱(chēng)

　　B.調(diào)用過(guò)程時(shí)使用的實(shí)參的個(gè)數(shù)應(yīng)與過(guò)程形參的個(gè)數(shù)相同

　　C.只有函數(shù)過(guò)程能夠?qū)⑦^(guò)程中處理的信息返回到調(diào)用程序中

　　D.窗體可以作為過(guò)程的參數(shù)

　　30.設(shè)有下列通用過(guò)程：

　　Public Function Fun(xStr As String)As String

　　Dim tStr As String，strL As Integer

　　tStr=""

　　strL=Len(xStr)

　　i=strL/2

　　DO While i<=StrL

　　tStr=tStr&Mid(xStr，i+1，1)

　　i=i+1

　　Loop

　　Fun=tStr&tStr

　　End Function

　　在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)extl的文本框和一個(gè)名稱(chēng)為Command1的命令按鈕。然后編寫(xiě)下列的事件過(guò)程：

　　Private Sub Commandl Click()

　　Dim S1 As String

　　S1="ABCDEF"

　　Text1.Text=LCase(Fun(S1))

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，文本框中顯示的是( )。

　　A.ABCDEF

　　B.abedef

　　C.defdef

　　D.defabc

　　相關(guān)推薦：

　　2014年計(jì)算機(jī)等級(jí)考試時(shí)間調(diào)整通知

　　2014年全國(guó)計(jì)算機(jī)二級(jí)VB上機(jī)考試試題匯總

　　2014計(jì)算機(jī)等級(jí)《二級(jí)VB》上機(jī)預(yù)測(cè)題及答案匯總

　　考試吧考后首發(fā)2014年3月計(jì)算機(jī)等考真題及答案通