21.以下說(shuō)法中錯(cuò)誤的是( )。

　　A.如果把一個(gè)命令按鈕的Default屬性設(shè)置為True，則按回車健與單擊該命令按鈕的

　　作用相同

　　B.可以用多個(gè)命令按鈕組成命令按鈕數(shù)組

　　C.命令按鈕只能識(shí)別單擊(Click)事件

　　D.通過(guò)設(shè)置命令按鈕的Enabled屬性，可以使該命令按鈕有效或禁用

　　22.以下關(guān)于局部變量的敘述中錯(cuò)誤的是( )。

　　A.在過(guò)程中用Dim語(yǔ)句或Static語(yǔ)句聲明的變量是局部變量

　　B.局部變量的作用域是它所在的過(guò)程

　　C.在過(guò)程中用Stalic語(yǔ)句聲明的變量是靜態(tài)局部變量

　　D.過(guò)程執(zhí)行完畢，該過(guò)程中用Dim或Static語(yǔ)句聲明的變量即被釋放

　　23.以下程序段的輸出結(jié)果是( )。

　　x=1

　　y=4

　　Do Until y>4

　　x= x * y

　　y=y+1

　　Loop

　　Print X

　　A.1

　　B.4

　　C.8

　　D.20

　　24.如果執(zhí)行一個(gè)語(yǔ)句后彈出如圖所示的窗口，則這個(gè)語(yǔ)句是( )。

　　A.InputBox("輸人框"，"請(qǐng)輸入VB數(shù)據(jù)")

　　B.x=InputBox("輸入框"，"請(qǐng)輸入VB數(shù)據(jù)")

　　C.InputBox("請(qǐng)輸入VB數(shù)據(jù)"，"輸入框")

　　D.x=InputBox("清輸入VB數(shù)據(jù)"，"輸入框") 25.有如下事件過(guò)程：

　　Private Sub Form Click()

　　Dim n As Integcr

　　x=0

　　n=InputBox("請(qǐng)輸入一個(gè)整數(shù)")

　　For i=1 To i

　　For i=1 To i

　　x=x+1

　　Next j

　　Next i

　　Print x

　　End sub

　　程序運(yùn)行后，單擊窗體，如果在輸入對(duì)話框中輸入5，則在窗體上顯示的內(nèi)容是( )。

　　A.13

　　B.14

　　C.15

　　D.16

　　26.請(qǐng)閱讀程序：

　　Sub subP(b()As Integer)

　　For i=1 To4

　　b(i)=2*i

　　Next i

　　End Sub

　　Private Sub Commandl Click()

　　Dim a(1 To 4)As Integer

　　a(1)=5:a(2)=6:a(3)=7:a(4)=8

　　subP a()

　　For i=1 To 4

　　Print a(i)

　　Next i

　　End Sub

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

　　A. 2

　　4

　　6

　　8

　　B. 5

　　6

　　7

　　8

　　C. 10

　　12

　　14

　　16

　　D.出錯(cuò)

　　27.Fibonacci數(shù)列的規(guī)律是：前2個(gè)數(shù)為1，從第3個(gè)數(shù)開(kāi)始，每個(gè)數(shù)是它前2個(gè)數(shù)之和，即1，1，2，3，5，8，13，21，34，55，89，…某人編寫了下面的函數(shù)，判斷大于1的整數(shù)X是否是Fibonacci數(shù)列中的某個(gè)數(shù)，若是，則返回True，否則返回False。

　　Function Isfab(x As Integer)As Boolean

　　Dim ii As Integer，b As Integer，C As Integer，flag As Boolean

　　flag=False

　　a=1：b=1

　　Do While x　　c=a+b

　　a=b

　　b=c

　　If x=b Then flag=True

　　Loop

　　Isfab=flag

　　End Function

　　測(cè)試時(shí)發(fā)現(xiàn)對(duì)于所有正整數(shù)X，函數(shù)都返回False，程序需要修改。下面的修改方案中正確的是( )。

　　A.把a(bǔ)=b與b=C的位置互換

　　B.把c=a+b移到b=C之后

　　C.把Do While xb

　　D.把If x=b Then flag=True改為If x=a Then flag True

　　28.在窗體上畫一個(gè)命令按鈕，其名稱為Command1，然后編寫如下事件過(guò)程：

　　Private Sub Coinmand1 Click()

　　Dim a$，b$，c$，k%

　　a="ABCD"

　　b="123456"

　　c=""

　　k=1

　　Do While k<=Len(a)Or k<=Len(b)

　　If k<=Len(a)Then

　　c=c&Mid(a，k，1)

　　End If

　　If k<=Len(b)Then

　　c=c&Mid(a，k，1)

　　End If

　　k=k+1

　　Loop

　　Print c

　　End Sub

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

　　A.123456ABCD

　　B.ABCD123456

　　C.D6C584A321

　　D.A1B2C3D456

　　29.請(qǐng)閱讀程序：

　　Private Sub Form Click()

　　m=1

　　For i=4To 1 Step-1

　　Print Str(m);

　　m=m+1

　　For j=1 To i

　　Print"*"：

　　Next j

　　Print

　　Next i

　　End Sub

　　程序運(yùn)行后，單擊窗體，則輸出結(jié)果是( )。

　　A.1****

　　2***

　　3**

　　4*

　　B.4****

　　3***

　　2**

　　1*

　　C.****

　　***

　　**

　　*

　　D.*

　　**

　　***

　　****

　　30.在窗體上畫一個(gè)命令按鈕(其名稱為Command1)，然后編寫如下代碼：Private Sub Command1 Click()

　　Dim a

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

　　i=3：j=1

　　Do While>=0

　　s=s+a i)*j

　　i=i-1

　　j=j*1c

　　Loop

　　Print S

　　End Sub

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

　　A.4321

　　B.123

　　C.234

　　D.1234

　　相關(guān)推薦：

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

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

　　考試吧推薦：2014年3月計(jì)算機(jī)二級(jí)考前沖刺備考專題