點擊查看：2018年9月計算機二級VB語言程序設(shè)計試題及答案匯總

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

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

　　3.在窗體上畫一個名稱為Text1的文本框，然后畫三個單選按鈕，并用這三個單選按鈕建立一個控件數(shù)組，名稱為Option1，程序運行后，如果單擊某個單選按鈕，則文本框中的字體將根據(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.在窗體上畫一個名稱為Text1的文本框，然后畫三個單選按鈕，并用這三個單選按鈕建立一個控件數(shù)組，名稱為Option1，程序運行后，如果單擊某個單選按鈕，則文本框中的字體將根據(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.在窗體上畫兩個組合框，其名稱分別為Combo1、Combo2，然后畫兩個標(biāo)簽，名稱分別為Label1、Label2。程序運行后，如果在某個組合框中選擇一個項目，則把所選中的項目在其下面的標(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.在窗體上畫兩個組合框，其名稱分別為Combo1、Combo2，然后畫兩個標(biāo)簽，名稱分別為Label1、Label2，程序運行后，如果在某個組合框中選擇一個項目，則把所選中的項目在其下面的標(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.在窗體上畫一個名稱為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

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

　　9.在窗體上畫一個名稱為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)的值互換。

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

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

2018年等考報考資訊

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

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

2018等考各科備考資料

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

　　相關(guān)推薦：

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

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

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

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