爲了幫助大家提高計算機考試成績,今天本站小編特地爲大家收集了以下2017年計算機二級VB考試訓練題及答案,歡迎學習!
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
name=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】ion =
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)
ion =【tmpcombo】
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)的值互換。
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
上述程序的功能是,通過調用過程swap,調換數組中數值的存放位置,即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