點擊查看：2018年9月計算機二級VB考試鞏固練習及答案匯總

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

　　Private Sub Command1_Click( )

　　Move 500，500

　　End Sub

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

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

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

　　C.命令按鈕向左、上方向各移動500

　　D.窗體向左、上方向各移動500

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

　　A.TabStop

　　B.Enabled

　　C.Visible

　　D.TabIndex

　　3.在窗體上畫一個名稱為List1的列表框，為了對列表框中的每個項目都能進行處理，應使用的循環語句為(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語句中錯誤的是(C)(單)

　　A.Case 0 To 10

　　B.Case Is>10

　　C.Case Is>10 And Is<50

　　D.Case 3,5,Is>10

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

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

　　B.清空圖片框控件中圖形的方法之一是加載一個空圖形

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

　　D.用圖片框控件的Stretch屬性可以自動調整圖片框中圖形的大小

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

　　A.Visual

　　B.Basic

　　C.6

　　D.11

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

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

　　B.在多窗體程序中，每個窗體都可以建立自己的菜單系統

　　C.能夠對菜單項的Click事件編程

　　D.如果把一個菜單項的Enabled屬性設置為False，則該菜單項不可見

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

　　Private Sub Command1_Click( )

　　a = "12345"

　　Print Format$(a, "000.00")

　　End Sub

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

　　A.123.45

　　B.12345.00

　　C.12345

　　D.00123.45

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

　　A.函數過程形參的類型與函數返回值的類型沒有關系

　　B.在函數過程中，過程的返回值可以有多個

　　C.當數組作為函數過程的參數時，既能以傳值方式傳遞，也能以傳址方式傳遞

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

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

　　A.用dim定義變量是靜態變量

　　B.靜態變量必須在標準模塊中聲明

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

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

　　1.與數學表達式ln(a+b)/(3x)+5 對應的Visual Basic表達式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】

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

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

　　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.在窗體上畫一個名稱為Text1的文本框，然后畫三個單選按鈕，并用這三個單選按鈕建立一個控件數組，名稱為Option1，程序運行后，如果單擊某個單選按鈕，則文本框中的字體將根據所選擇的單選按鈕切換。

　　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.在窗體上畫兩個組合框，其名稱分別為Combo1、Combo2，然后畫兩個標簽，名稱分別為Label1、Label2。程序運行后，如果在某個組合框中選擇一個項目，則把所選中的項目在其下面的標簽中顯示出來。

　　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.在窗體上畫兩個組合框，其名稱分別為Combo1、Combo2，然后畫兩個標簽，名稱分別為Label1、Label2，程序運行后，如果在某個組合框中選擇一個項目，則把所選中的項目在其下面的標簽中顯示出來。

　　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.在窗體上畫一個名稱為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

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

　　8.在窗體上畫一個名稱為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

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

　　19.在窗體上畫一個名稱為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

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

　　20.在窗體上畫一個名稱為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

掃描/長按二維碼幫助考試通關

2018年等考報考資訊

2018等考各科通關技巧

2018各科最新預測試卷

2018等考各科備考資料

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

　　相關推薦：

　　2018年全國計算機等級考試必做試題匯總(各科目)

　　2018年全國計算機等級考試復習知識點匯總(各科目)

　　2018全國計算機等級考試備考經驗及應試技巧匯總

　　歷年真題匯總|考試吧策劃：2018年計算機等級考試報考指南