點(diǎn)擊查看：2018年9月計(jì)算機(jī)二級(jí)VB考試鞏固練習(xí)及答案匯總

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

　　Private Sub Command1_Click( )

　　Move 500，500

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，執(zhí)行的操作為(A)(單)

　　A.命令按鈕移動(dòng)到距窗體左邊界、上邊界各500的位置

　　B.窗體移動(dòng)到距屏幕左邊界、上邊界各500的位置

　　C.命令按鈕向左、上方向各移動(dòng)500

　　D.窗體向左、上方向各移動(dòng)500

　　2.在窗體上有若干控件，其中有一個(gè)名稱為Text1的文本框。影響Text1的Tab順序的屬性是(D)(單)

　　A.TabStop

　　B.Enabled

　　C.Visible

　　D.TabIndex

　　3.在窗體上畫一個(gè)名稱為L(zhǎng)ist1的列表框，為了對(duì)列表框中的每個(gè)項(xiàng)目都能進(jìn)行處理，應(yīng)使用的循環(huán)語句為(A)(單)

　　A.For i=0 To List1.ListCount-1 ......　 Next i

　　B.For i=0 To ListCount-1 ...... Next i

　　C.For i=1 To List1.listCount 　...... Next i

　　D.For i=1 To ListCount ...... Next i

　　4.以下Case語句中錯(cuò)誤的是(C)(單)

　　A.Case 0 To 10

　　B.Case Is>10

　　C.Case Is>10 And Is<50

　　D.Case 3,5,Is>10

　　5.以下關(guān)于圖片框控件的說法中，錯(cuò)誤的是(D)(單)

　　A.可以通過Print方法在圖片框中輸出文本

　　B.清空?qǐng)D片框控件中圖形的方法之一是加載一個(gè)空?qǐng)D形

　　C.圖片框控件可以作為容器使用

　　D.用圖片框控件的Stretch屬性可以自動(dòng)調(diào)整圖片框中圖形的大小

　　6.執(zhí)行語句s=Len(Mid("VisualBasic",1,6))后，s的值是(A)(單)

　　A.Visual

　　B.Basic

　　C.6

　　D.11

　　7.以下敘述中錯(cuò)誤的是(D)(單)

　　A.下拉式菜單能用菜單編輯器建立

　　B.在多窗體程序中，每個(gè)窗體都可以建立自己的菜單系統(tǒng)

　　C.能夠?qū)Σ藛雾?xiàng)的Click事件編程

　　D.如果把一個(gè)菜單項(xiàng)的Enabled屬性設(shè)置為False，則該菜單項(xiàng)不可見

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

　　Private Sub Command1_Click( )

　　a = "12345"

　　Print Format$(a, "000.00")

　　End Sub

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

　　A.123.45

　　B.12345.00

　　C.12345

　　D.00123.45

　　9.以下關(guān)于函數(shù)過程的敘述中，正確的是(A)(單)

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

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

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

　　D.如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)不能有數(shù)據(jù)類型的參數(shù)

　　10.以下關(guān)于變量作用域的敘述中，正確的是(C)(單)

　　A.用dim定義變量是靜態(tài)變量

　　B.靜態(tài)變量必須在標(biāo)準(zhǔn)模塊中聲明

　　C.用public定義變量是全局變量

　　D.Static類型變量的作用域范圍是它所在的窗體或模塊文件

　　1.與數(shù)學(xué)表達(dá)式ln(a+b)/(3x)+5 對(duì)應(yīng)的Visual Basic表達(dá)式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】

　　2.將C盤根目錄下的圖形文件moon.jpg裝入圖片框Picture1的語句是【】

　　3.在窗體上畫一個(gè)名稱為Text1的文本框，然后畫三個(gè)單選按鈕，并用這三個(gè)單選按鈕建立一個(gè)控件數(shù)組，名稱為Option1，程序運(yùn)行后，如果單擊某個(gè)單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換。

　　Private Sub Option1_Click(Index As Integer)

　　Select Case 【Index】

　　Case 0

　　a = "宋體"

　　Case 1

　　a = "黑體"

　　Case 2

　　a = "楷體_GB2312"

　　End Select

　　text1.fontname=a

　　End Sub

　　4.在窗體上畫一個(gè)名稱為Text1的文本框，然后畫三個(gè)單選按鈕，并用這三個(gè)單選按鈕建立一個(gè)控件數(shù)組，名稱為Option1，程序運(yùn)行后，如果單擊某個(gè)單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換。

　　Private Sub Option1_Click(Index As Integer)

　　Select Case index

　　Case 0

　　a = "宋體"

　　Case 1

　　a = "黑體"

　　Case 2

　　a = "楷體_GB2312"

　　End Select

　　text1.【fontname】=a

　　End Sub

　　5.在窗體上畫兩個(gè)組合框，其名稱分別為Combo1、Combo2，然后畫兩個(gè)標(biāo)簽，名稱分別為L(zhǎng)abel1、Label2。程序運(yùn)行后，如果在某個(gè)組合框中選擇一個(gè)項(xiàng)目，則把所選中的項(xiàng)目在其下面的標(biāo)簽中顯示出來。

　　Private Sub Combo1_Click( )

　　Call ShowItem(Combo1, Label1)

　　End Sub

　　Private Sub Combo2_Click( )

　　Call ShowItem(Combo2, Label2)

　　End Sub

　　Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)

　　【tmplabel】.Caption =tmpCombo.Text

　　End Sub

　　6.在窗體上畫兩個(gè)組合框，其名稱分別為Combo1、Combo2，然后畫兩個(gè)標(biāo)簽，名稱分別為L(zhǎng)abel1、Label2，程序運(yùn)行后，如果在某個(gè)組合框中選擇一個(gè)項(xiàng)目，則把所選中的項(xiàng)目在其下面的標(biāo)簽中顯示出來。

　　Private Sub Combo1_Click( )

　　Call ShowItem(Combo1, Label1)

　　End Sub

　　Private Sub Combo2_Click( )

　　Call ShowItem(Combo2, Label2)

　　End Sub

　　Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)

　　tmpLabel.Caption =【tmpcombo】.Text

　　End Sub

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

　　Private Sub Command1_Click( )

　　n = 5

　　f = 1

　　s = 0

　　For c = 1 To n

　　f = f*【7】

　　s = s + f

　　Next c

　　Print s

　　End Sub

　　該事件過程的功能是計(jì)算1!+2!+3!+…+n!的值。

　　8.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：

　　Option Base 1

　　Private Sub Command1_Click( )

　　Dim a(10) As Integer

　　For I = 1 To 10

　　a(I) = I

　　Next I

　　Call【swap】a( )

　　For I = 1 To 10

　　Print a(I);

　　Next

　　End Sub

　　Sub swap(b( ) As Integer)

　　n = ubound(b)

　　For I = 1 To n / 2

　　t = b(I)

　　b(I) = b(n)

　　b(n) = t

　　n=n-1

　　Next I

　　End Sub

　　上述程序的功能是，通過調(diào)用過程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……，a(5)與a(6)的值互換。

　　19.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：

　　Option Base 1

　　Private Sub Command1_Click( )

　　Dim a(10) As Integer

　　For I = 1 To 10

　　a(I) = I

　　Next I

　　Call swap(a( ))

　　For I = 1 To 10

　　Print a(I);

　　Next

　　End Sub

　　Sub swap(b( ) As Integer)

　　n =【ubound(b)】

　　For I = 1 To n / 2

　　t = b(I)

　　b(I) = b(n)

　　b(n) = t

　　n=n-1

　　Next I

　　End Sub

　　上述程序的功能是，通過調(diào)用過程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……，a(5)與a(6)的值互換。

　　20.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：

　　Option Base 1

　　Private Sub Command1_Click( )

　　Dim a(10) As Integer

　　For I = 1 To 10

　　a(I) = I

　　Next I

　　Call swap(a( ))

　　For I = 1 To 10

　　Print a(I);

　　Next I

　　End Sub

　　Sub swap(b( ) As Integer)

　　n = ubound(b)

　　For I = 1 To n / 2

　　t = b(I)

　　b(I) = b(n)

　　b(n) = t

　　n=【n-1】

　　Next I

　　End Sub

掃描/長(zhǎng)按二維碼幫助考試通關(guān)

2018年等考報(bào)考資訊

2018等考各科通關(guān)技巧

2018各科最新預(yù)測(cè)試卷

2018等考各科備考資料

微信搜索"考試吧"了解更多考試資訊、下載備考資料

　　相關(guān)推薦：

　　2018年全國(guó)計(jì)算機(jī)等級(jí)考試必做試題匯總(各科目)

　　2018年全國(guó)計(jì)算機(jī)等級(jí)考試復(fù)習(xí)知識(shí)點(diǎn)匯總(各科目)

　　2018全國(guó)計(jì)算機(jī)等級(jí)考試備考經(jīng)驗(yàn)及應(yīng)試技巧匯總

　　歷年真題匯總|考試吧策劃：2018年計(jì)算機(jī)等級(jí)考試報(bào)考指南