2017年計(jì)算機(jī)二級(jí)VB考試訓(xùn)練題及答案
為了幫助大家提高計(jì)算機(jī)考試成績(jī)，今天百分網(wǎng)小編特地為大家收集了以下2017年計(jì)算機(jī)二級(jí)VB考試訓(xùn)練題及答案，歡迎學(xué)習(xí)!
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的語(yǔ)句是【】
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)簽中顯示出來(lái)。
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)簽中顯示出來(lái)。
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的命令按鈕，然后編寫如下事件過(guò)程：
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
該事件過(guò)程的功能是計(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
上述程序的功能是，通過(guò)調(diào)用過(guò)程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……，a(5)與a(6)的值互換。
9.在窗體上畫一個(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
上述程序的功能是，通過(guò)調(diào)用過(guò)程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……，a(5)與a(6)的值互換。
10.在窗體上畫一個(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
【計(jì)算機(jī)二級(jí)VB考試訓(xùn)練題及答案】相關(guān)文章：
計(jì)算機(jī)二級(jí)考試《VB》鞏固訓(xùn)練題及答案08-11
2017計(jì)算機(jī)二級(jí)考試《VB》鞏固訓(xùn)練題及答案02-25
2017計(jì)算機(jī)二級(jí)《VB》考試基礎(chǔ)訓(xùn)練題及答案12-23
2017計(jì)算機(jī)二級(jí)《VB》考試提分訓(xùn)練題及答案07-07
計(jì)算機(jī)二級(jí)考試《VB》鞏固訓(xùn)練題07-17
計(jì)算機(jī)二級(jí)VB強(qiáng)化訓(xùn)練題及答案05-21
2017年計(jì)算機(jī)二級(jí)考試VB專項(xiàng)訓(xùn)練題及答案02-18