為了使廣大考生在備戰計算機等級考試時,更快的掌握相應知識點,下面是小編搜尋整理的計算機二級VB考試練習題及答案,供參考練習,預祝考生們考出自己理想的成績!
計算機二級VB考試練習題及答案
1、在窗體上建立一個名稱為Command1的命令按鈕,一個名稱為Text1的文字框,以及四個單選按鈕:第一個名稱為option1用來設定文字框的字型為"宋體",
第二個名稱為option2用來設定文字框的字型為"黑體",第三個名稱為option3用來設定文字框的字型大小為8號,第四個名稱為option4用來設定文字框的字型大小為12號。
程式如下:(程式執行剛開始時,四個單選按鈕都沒有選中)
Private Sub Command1_Click( )
Name = Iif(e, "宋體", "黑體")
Size = Iif(e, 8, 12)
End Sub
當程式執行時,先單擊單選按鈕option2,然後單擊命令按鈕command1,則文字框text1的變化效果是(B) (單)
A.字型設定為宋體
B.字型設定為黑體
C.字型大小設定為8號
D.字型大小設定為12號
2.在窗體上建立一個名稱為Command1的命令按鈕,一個名稱為Text1的文字框,以及四個單選按鈕:第一個名稱為option1用來設定文字框的字型為"宋體",
第二個名稱為option2用來設定文字框的字型為"黑體",第三個名稱為option3用來設定文字框的字型大小為8號,第四個名稱為option4用來設定文字框的字型大小為12號。
程式如下:(程式執行剛開始時,四個單選按鈕都沒有選中)
Private Sub Command1_Click( )
Name = Iif(e, "宋體", "黑體")
Size = Iif(e, 8, 12)
End Sub
當程式執行時,先單擊單選按鈕option3,然後單擊命令按鈕command1,則文字框text1的變化效果是(C) (單)
A.字型設定為宋體
B.字型設定為黑體
C.字型大小設定為8號
D.字型大小設定為12號
3.在窗體上建立一個名稱為Command1的命令按鈕,一個名稱為Text1的文字框,以及四個單選按鈕:第一個名稱為option1用來設定文字框的字型為"宋體",
第二個名稱為option2用來設定文字框的字型為"黑體",第三個名稱為option3用來設定文字框的字型大小為8號,第四個名稱為option4用來設定文字框的字型大小為12號。
程式如下:(程式執行剛開始時,四個單選按鈕都沒有選中)
Private Sub Command1_Click( )
Name = Iif(e, "宋體", "黑體")
Size = Iif(e, 8, 12)
End Sub
當程式執行時,先單擊單選按鈕option1,然後單擊命令按鈕command1,則文字框text1的變化效果是(A) (單)
A.字型設定為宋體
B.字型設定為黑體
C.字型大小設定為8號
D.字型大小設定為12號
4.在窗體上建立一個名稱為Command1的命令按鈕,一個名稱為Text1的文字框,以及四個單選按鈕:第一個名稱為option1用來設定文字框的字型為"宋體",
第二個名稱為option2用來設定文字框的字型為"黑體",第三個名稱為option3用來設定文字框的字型大小為8號,第四個名稱為option4用來設定文字框的字型大小為12號。
程式如下:(程式執行剛開始時,四個單選按鈕都沒有選中)
Private Sub Command1_Click( )
Name = Iif(e, "宋體", "黑體")
Size = Iif(e, 8, 12)
End Sub
當程式執行時,先單擊單選按鈕option4,然後單擊命令按鈕command1,則文字框text1的變化效果是(D) (單)
A.字型設定為宋體
B.字型設定為黑體
C.字型大小設定為8號
D.字型大小設定為12號
5.在窗體中建立了一個名稱為lstBooks的列表框,一個名稱為txtItem的文字框,四個名稱分別為cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按鈕。
如下程式:
Sub Form_Load( )
tem "計算機文化基礎"
tem "VB程式設計教程"
tem "作業系統"
End Sub
Sub cmdAdd_Click( )
tem txtItem
txtItem = ""
End Sub
對該程式說法不正確的是(D) (單)
A.窗體啟動時,在列表框中有三個列表專案,依次為:計算機文化基礎、VB程式設計教程、作業系統
B.單擊cmdAdd命令按鈕後,把文字框中的資訊新增到列表框中
C.在列表框中新增列表專案的方法為additem方法
D.以上說法都不正確
6.在窗體中建立了一個名稱為LSTBOOKS的列表框,一個名稱為txtItem的文字框,四個名稱分別為cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按鈕。如下程式的功能是將修改後的專案送回列表框,替換原專案,實現修改:
Sub cmdModify_Ok_Click( )
【ndex】 = txtItem
txtItem = ""
End Sub
7.對以下程式說法不正確的是(C) (單)
Private Sub Combo1_LostFocus( )
flag = False
For i = 0 To Count - 1
If (i) = Then
flag = True
Exit For
End If
Next i
If Not flag Then
tem
End If
End Sub
A.當焦點離開組合框時組合框的LostFocus事件被觸發
B.新增到組合框的新專案不能永久儲存,下次執行該程式中看不到上次儲存的專案,利用該事件過程能夠將輸入的新內容新增到組合框中,下次執行該程式中能夠看到上次儲存的專案
C.邏輯變數flag=true時,表示組合框的專案中有該輸入新專案
D.邏輯變數flag=false時,表示組合框的專案中有該輸入新專案
8.窗體中有兩個檢查框名稱分別為check1和check2,一個命令按鈕名稱為command1,一個列表框名稱為list1,兩個單選按鈕名稱分別為option1和option2。如下程式:
Private Sub Command1_Click( )
If e = 1 Then
tem "品牌:松下"
tem "數量:3臺"
End If
If e = 1 Then
If e = True Then
tem "作業系統:Windows 2000"
Else
tem "作業系統:Windows 98"
End If
End If
End Sub
當窗體啟動後,先選中檢查框check1,然後單擊命令按鈕command1,執行效果為(A) (單)
A.列表框List1中的列表專案分別為:品牌:松下數量:3臺
B.列表框List1中的列表專案分別為:作業系統:Windows 2000 作業系統:Windows 98
C.沒有任何顯示
D.以上都不正確
*9.窗體中有兩個檢查框名稱分別為check1和check2,一個命令按鈕名稱為command1,一個列表框名稱為list1,兩個單選按鈕名稱分別為option1和option2。如下程式:
Private Sub Command1_Click( )
If e = 1 Then
tem "品牌:松下"
tem "數量:3臺"
End If
If e = 1 Then
If e = True Then
tem "作業系統:Windows 2000"
Else
tem "作業系統:Windows 98"
End If
End If
End Sub
當窗體啟動後,先選中檢查框check2(其中單選按鈕option1被選中),然後單擊命令按鈕command1,執行效果為(B)(單)
A.列表框List1中的列表專案分別為:品牌:松下數量:3臺
B.列表框List1中的列表專案分別為:作業系統:Windows 2000 作業系統:Windows 98
C.列表框List1中的列表專案為:作業系統:Windows 2000
D.以上都不正確
53430.窗體中有兩個檢查框名稱分別為check1和check2,一個命令按鈕名稱為command1,一個列表框名稱為list1,兩個單選按鈕名稱分別為option1和option2。如下程式:
Private Sub Command1_Click( )
If e = 1 Then
tem "品牌:松下"
tem "數量:3臺"
End If
If e = 1 Then
If e = True Then
tem "作業系統:Windows 2000"
Else
tem "作業系統:Windows 98"
End If
End If
End Sub
當窗體啟動後,先選中檢查框check2(其中單選按鈕option2被選中),然後單擊命令按鈕command1,執行效果為(B)(單)
A.列表框List1中的列表專案分別為:品牌:松下數量:3臺
B.列表框List1中的列表專案為:作業系統:Windows 98
C.列表框List1中的'列表專案為:作業系統:Windows 2000
11 .傳值:形參得到的是實參的值,形參值的改變不會影響實參的值。在定義形參前加關鍵字Byval。√
12.以下利用SUB關鍵字定義的子過程Rate,其呼叫格式不正確的是(B) (單)
Rate(12,56)
(12,56)
12,56
D.以上A和C正確
13.如下程式執行後顯示結果為(B) (單)
Public Temp As integer
Sub Form_Load( )
Dim Temp As Integer
Temp=10
=20
Print ;"和";Temp
End Sub
A.10和20
B.20和10
C.10和10
D.20和20
14.以下對靜態變數說法不正確的是(D) (單)
A.定義格式為:Static 變數名 [AS 型別]
B.在子過程名/函式名前加Static,表示該過程/函式體內區域性變數全部都是靜態變數
C.靜態變數必須在過程體內定義
D.靜態變數可以在窗體的"通用宣告部"定義
15 .過程在自身定義的內部呼叫自己本身的結構稱為遞迴。√
16.如下程式功能是求n的階層:
Function fac(n As Integer) As Integer
If n = 1 Then
fac = 1
Else
fac = n * fac(n - 1)
End If
End Function
Sub Command1_Click( )
n=val(inputbox("請輸入數值"))
Print "fac(n)=";fac(n)
End Sub
以下說法不正確的是(D) (單)
A.若fac函式中If n = 1 Then fac = 1沒有,僅有語句:fac = n * fac(n - 1) ,程式執行將會出錯
B.若輸入的n<=0 ,程式執行將會出錯
C.若n=4,則輸出結果為:fac(n)=24
D.以上說法都不正確
17.利用遞迴求最大公約數的程式為:
Public Function gcd(m As Integer, n As Integer) As Integer
If (m Mod n) = 0 Then
gcd =【n】
Else
gcd = gcd(n, m Mod n)
End If
End Function
Private Sub Form_Click( )
Print gcd(10, 4)
End Sub
18 .以下程式的作用是單擊Check1檢查框將使得Text1文字框的字型在"加粗"和"常規"之間進行切換。√
Private Sub Check1_Click( )
Bold = Not Bold
End Sub
*19 .以下程式的作用是單擊Check1檢查框將使得Text1文字框的字型在"加粗"和"常規"之間進行切換。√
Private Sub Check1_Click( )
Italic = Not Italic
End Sub
*20 .以下程式的作用是單擊Check1檢查框將使得Text1文字框的字型在"加粗"和"常規"之間進行切換。√
Private Sub Check1_Click( )
Underline = Not Underline
End Sub