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

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

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

　　A.程序運(yùn)行時(shí)，若使?jié)L動(dòng)塊向左移動(dòng)，滾動(dòng)條的Value屬性值就增加

　　B.程序運(yùn)行時(shí)，若使?jié)L動(dòng)塊向左移動(dòng)，滾動(dòng)條的Value屬性值就減少

　　C.由于滾動(dòng)條的Max屬性值小于Min屬性值，程序會(huì)出錯(cuò)

　　D.由于滾動(dòng)條的Max屬性值小于Min屬性值，程序運(yùn)行時(shí)滾動(dòng)條的長(zhǎng)度會(huì)縮為一點(diǎn)，滾動(dòng)塊無(wú)法移動(dòng)

　　22.有如下過(guò)程代碼：

　　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過(guò)程，第3次調(diào)用時(shí)的輸出是( )。

　　A.2 1

　　B.2 3

　　C.6 1

　　D.6 3

　　23.在窗體上畫(huà)1個(gè)命令按鈕，并編寫(xiě)如下事件過(guò)程：

　　private Sub Command1_Click()

　　For i=5 To 1 Step-0.8

　　Print Int(i);

　　Next i

　　End Sub

　　運(yùn)行程序，單擊命令按鈕，窗體上顯示的內(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.在窗體上畫(huà)1個(gè)命令按鈕，并編寫(xiě)如下事件過(guò)程：

　　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

　　運(yùn)行程序，單擊命令按鈕，窗體上顯示的內(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ù)過(guò)程：

　　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ù)都是自然數(shù)，則函數(shù)返回的是( )。

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

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

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

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

　　26.窗體上有1個(gè)名稱(chēng)為T(mén)ext1的文本框;1個(gè)名稱(chēng)為T(mén)imer1的計(jì)時(shí)器控件，其Interval 屬性值為5000，Enabled屬性值是True。Timer1的事件過(guò)程如下：

　　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í)行此事件過(guò)程時(shí)，flag的初始值均為0

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

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

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

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

　　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í)行此事件過(guò)程后發(fā)現(xiàn)結(jié)果是錯(cuò)誤的，為能夠得到正確結(jié)果，應(yīng)做的修改是( )。

　　A.把s=1改為s=0

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

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

　　D.同時(shí)進(jìn)行B、C兩種修改

　　28.標(biāo)準(zhǔn)模塊中有如下程序代碼：

　　Public x As Integer，y As Integer

　　Sub var pub()

　　x=10：y=20

　　End Sub

　　在窗體上有1個(gè)命令按鈕，并有如事件過(guò)程：

　　Private Sub Command1 Click()

　　Dim x As Integer

　　Call var pub

　　x=x+100

　　y=y+100

　　Print x;y

　　End Sub

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

　　A.100 100

　　B.100 120

　　C.110 100

　　D.110 120

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

　　Eunction fun(a As Integer，b As Integer)

　　While a>b

　　a=a—b

　　Wend

　　fun=a

　　End Function

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

　　A.把a(bǔ)=a-b改為a=b-a

　　B.把a(bǔ)=a-b改為a=a\b

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

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

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

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

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

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

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

　　相關(guān)推薦：

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

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

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