21設(shè)窗體上有1個水平滾動條，已經(jīng)通過屬性窗V1把它的Max屬性設(shè)置為1，Min屬

　　性設(shè)置為100。下面敘述中正確的是( )。

　　A.程序運行時，若使?jié)L動塊向左移動，滾動條的Value屬性值就增加

　　B.程序運行時，若使?jié)L動塊向左移動，滾動條的Value屬性值就減少

　　C.由于滾動條的Max屬性值小于Min屬性值，程序會出錯

　　D.由于滾動條的Max屬性值小于Min屬性值，程序運行時滾動條的長度會縮為一點，滾動塊無法移動

　　22.有如下過程代碼：

　　Sub var_dim()

　　static numa As Integer

　　Dim numb As Integer

　　numa=numa+2.

　　numb=numb+1

　　print numa;mub

　　End Sub

　　連續(xù)3次調(diào)劇var_dim過程，第3次調(diào)用時的輸出是( )。

　　A.2 1

　　B.2 3

　　C.6 1

　　D.6 3

　　23.在窗體上畫1個命令按鈕，并編寫如下事件過程：

　　private Sub Command1_Click()

　　For i=5 To 1 Step-0.8

　　Print Int(i);

　　Next i

　　End Sub

　　運行程序，單擊命令按鈕，窗體上顯示的內(nèi)容為( )。

　　A.5 4 3 2 1 1

　　B.5 4 3 2 1

　　C.4 3 2 1 1

　　D.4 4 3 2 1 1

　　24.在窗體上畫1個命令按鈕，并編寫如下事件過程：

　　Private Sub Command1 Click()

　　Dim a(3，3)

　　For m=1 To 3

　　For n=1 To 3

　　If n=m or n=4—m Then

　　a(m.n)=m+n

　　Else

　　a(m，n)=0

　　End If

　　Print a(m，n);

　　Next n

　　Print

　　Next m

　　End Sub

　　運行程序，單擊命令按鈕，窗體上顯示的內(nèi)容為( )。

　　A.2 0 0

　　0 4 0

　　0 0 6

　　B.2 0 4

　　0 4 0

　　4 0 6

　　C.2 3 0

　　3 4 0

　　0 0 6

　　D.2 0 0

　　0 4 5

　　0 5 6

　　25.設(shè)有以下函數(shù)過程：

　　Function fun(a As Integer，b As Integer)

　　Dim c As Integer

　　If a　　 c=a：a=b：b=C

　　End IF

　　c=0

　　Do

　　c=c+a

　　Loop Until c Mod b=0

　　fun=c

　　End Function

　　若調(diào)用函數(shù)fun時的實際參數(shù)都是自然數(shù)，則函數(shù)返回的是( )。

　　A.a、b的最大公約數(shù)

　　B.a、b的最小公倍數(shù)

　　C.a除以b的余數(shù)

　　D.a除以b的商的整數(shù)部分

　　26.窗體上有1個名稱為Text1的文本框;1個名稱為Timer1的計時器控件，其Interval 屬性值為5000，Enabled屬性值是True。Timer1的事件過程如下：

　　Private Sub Timer1 Timer()

　　Static flag As Integer

　　If Flag=0 Then Flag=1

　　Flag=-flag

　　If flag=1 Then

　　Text1.ForeColor=&HFF& &HFF&為紅色

　　Else

　　Text1.ForeColor=&HCOO& &HCOO&為綠色

　　End If

　　End Sub

　　以下敘述中正確的是( )。

　　A.每次執(zhí)行此事件過程時，flag的初始值均為0

　　B.flag的值只可能取0或1

　　C.程序執(zhí)行后，文本框中的文字每5秒改變一次顏色

　　D.程序有邏輯錯誤，Else分支總也不能被執(zhí)行

　　27.為計算1+2+22+23+24+…+210的值，并把結(jié)果顯示在文本框Text1中，若編寫如下事件過程：

　　Private Sub Command1 Click()

　　Dim a%，s%，k%

　　s=1

　　a=2

　　For k=2 To 10

　　a=a*2

　　s2 s+a

　　Next k

　　Text1.Text=s

　　End Sub

　　執(zhí)行此事件過程后發(fā)現(xiàn)結(jié)果是錯誤的，為能夠得到正確結(jié)果，應(yīng)做的修改是( )。

　　A.把s=1改為s=0

　　B.把For k=2 T0 10改為For k=1 T0 10

　　C.交換語句s=s+a和a=a*2的順序

　　D.同時進行B、C兩種修改

　　28.標準模塊中有如下程序代碼：

　　Public x As Integer，y As Integer

　　Sub var pub()

　　x=10：y=20

　　End Sub

　　在窗體上有1個命令按鈕，并有如事件過程：

　　Private Sub Command1 Click()

　　Dim x As Integer

　　Call var pub

　　x=x+100

　　y=y+100

　　Print x;y

　　End Sub

　　運行程序后單擊命令按鈕，窗體上顯示的是( )。

　　A.100 100

　　B.100 120

　　C.110 100

　　D.110 120

　　29.設(shè)a、b都是自然數(shù)，為求a除以b的余數(shù)，某人編寫了以下函數(shù)：

　　Eunction fun(a As Integer，b As Integer)

　　While a>b

　　a=a—b

　　Wend

　　fun=a

　　End Function

　　在調(diào)試時發(fā)現(xiàn)函數(shù)是錯誤的。為使函數(shù)能產(chǎn)生正確的返回值，應(yīng)做的修改是( )。

　　A.把a=a-b改為a=b-a

　　B.把a=a-b改為a=a\b

　　C.把While a>b改為While a%b

　　D.把While a>b改為While a>=b

　　30.下列關(guān)于通甩對話框CommonDialogl的敘述中，錯誤的是( )。

　　A.只要在“打開”對話框中選擇了文件，并單擊“打開”按鈕，就可以將選中的文件打開

　　B.使用(’ommoDialog1.ShowColor方法，可以顯示“顏色”對話框

　　C.CancelError屬性用于控制用戶單擊“取消”按鈕關(guān)閉對話框時，是否顯示出錯警告

　　D.在顯示“字體”對話框前，必須先設(shè)置CommonDialog1的Flags屬性，否則會出錯

　　相關(guān)推薦：

　　2014年全國計算機二級VB上機考試試題匯總

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

　　考試吧推薦：2014年3月計算機二級考前沖刺備考專題