- 相關(guān)推薦
計(jì)算機(jī)二級VB考試練習(xí)及答案
不論從事何種工作，如果要想做出高效、實(shí)效，務(wù)必先從自身的工作計(jì)劃開始。有了計(jì)劃，才不致于使自己思想迷茫、頭腦空洞，不知從哪里著手開展工作。下面是小編搜索整理的計(jì)算機(jī)二級VB考試練習(xí)及答案，供大家參考學(xué)習(xí)！
計(jì)算機(jī)二級VB考試練習(xí)及答案
1、在窗體上建立一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為Text1的文本框，以及四個(gè)單選按鈕：第一個(gè)名稱為option1用來設(shè)置文本框的字體為"宋體"，
第二個(gè)名稱為option2用來設(shè)置文本框的字體為"黑體"，第三個(gè)名稱為option3用來設(shè)置文本框的字體大小為8號，第四個(gè)名稱為option4用來設(shè)置文本框的字體大小為12號。
程序如下：(程序運(yùn)行剛開始時(shí)，四個(gè)單選按鈕都沒有選中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, "宋體", "黑體")
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
當(dāng)程序運(yùn)行時(shí)，先單擊單選按鈕option2，然后單擊命令按鈕command1，則文本框text1的變化效果是(B) (單)
A.字體設(shè)置為宋體
B.字體設(shè)置為黑體
C.字體大小設(shè)置為8號
D.字體大小設(shè)置為12號
2.在窗體上建立一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為Text1的文本框，以及四個(gè)單選按鈕：第一個(gè)名稱為option1用來設(shè)置文本框的字體為"宋體"，
第二個(gè)名稱為option2用來設(shè)置文本框的字體為"黑體"，第三個(gè)名稱為option3用來設(shè)置文本框的字體大小為8號，第四個(gè)名稱為option4用來設(shè)置文本框的字體大小為12號。
程序如下：(程序運(yùn)行剛開始時(shí)，四個(gè)單選按鈕都沒有選中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, "宋體", "黑體")
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
當(dāng)程序運(yùn)行時(shí)，先單擊單選按鈕option3，然后單擊命令按鈕command1，則文本框text1的變化效果是(C) (單)
A.字體設(shè)置為宋體
B.字體設(shè)置為黑體
C.字體大小設(shè)置為8號
D.字體大小設(shè)置為12號
3.在窗體上建立一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為Text1的文本框，以及四個(gè)單選按鈕：第一個(gè)名稱為option1用來設(shè)置文本框的字體為"宋體"，
第二個(gè)名稱為option2用來設(shè)置文本框的字體為"黑體"，第三個(gè)名稱為option3用來設(shè)置文本框的字體大小為8號，第四個(gè)名稱為option4用來設(shè)置文本框的字體大小為12號。
程序如下：(程序運(yùn)行剛開始時(shí)，四個(gè)單選按鈕都沒有選中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, "宋體", "黑體")
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
當(dāng)程序運(yùn)行時(shí)，先單擊單選按鈕option1，然后單擊命令按鈕command1，則文本框text1的變化效果是(A) (單)
A.字體設(shè)置為宋體
B.字體設(shè)置為黑體
C.字體大小設(shè)置為8號
D.字體大小設(shè)置為12號
4.在窗體上建立一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為Text1的文本框，以及四個(gè)單選按鈕：第一個(gè)名稱為option1用來設(shè)置文本框的字體為"宋體"，
第二個(gè)名稱為option2用來設(shè)置文本框的字體為"黑體"，第三個(gè)名稱為option3用來設(shè)置文本框的字體大小為8號，第四個(gè)名稱為option4用來設(shè)置文本框的字體大小為12號。
程序如下：(程序運(yùn)行剛開始時(shí)，四個(gè)單選按鈕都沒有選中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, "宋體", "黑體")
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
當(dāng)程序運(yùn)行時(shí)，先單擊單選按鈕option4，然后單擊命令按鈕command1，則文本框text1的變化效果是(D) (單)
A.字體設(shè)置為宋體
B.字體設(shè)置為黑體
C.字體大小設(shè)置為8號
D.字體大小設(shè)置為12號
5.在窗體中建立了一個(gè)名稱為lstBooks的列表框，一個(gè)名稱為txtItem的文本框，四個(gè)名稱分別為cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按鈕。
如下程序：
Sub Form_Load( )
lstBooks.AddItem "計(jì)算機(jī)文化基礎(chǔ)"
lstBooks.AddItem "VB程序設(shè)計(jì)教程"
lstBooks.AddItem "操作系統(tǒng)"
End Sub
Sub cmdAdd_Click( )
lstBooks.AddItem txtItem
txtItem = ""
End Sub
對該程序說法不正確的是(D) (單)
A.窗體啟動(dòng)時(shí)，在列表框中有三個(gè)列表項(xiàng)目，依次為：計(jì)算機(jī)文化基礎(chǔ)、VB程序設(shè)計(jì)教程、操作系統(tǒng)
B.單擊cmdAdd命令按鈕后，把文本框中的信息添加到列表框中
C.在列表框中添加列表項(xiàng)目的方法為additem方法
D.以上說法都不正確
6.在窗體中建立了一個(gè)名稱為LSTBOOKS的列表框，一個(gè)名稱為txtItem的文本框，四個(gè)名稱分別為cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按鈕。如下程序的功能是將修改后的項(xiàng)目送回列表框，替換原項(xiàng)目，實(shí)現(xiàn)修改：
Sub cmdModify_Ok_Click( )
LSTBOOKS.List【Lstbooks.lstindex】 = txtItem
txtItem = ""
End Sub
7.對以下程序說法不正確的是(C) (單)
Private Sub Combo1_LostFocus( )
flag = False
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = Combo1.Text Then
flag = True
Exit For
End If
Next i
If Not flag Then
Combo1.AddItem Combo1.Text
End If
End Sub
A.當(dāng)焦點(diǎn)離開組合框時(shí)組合框的LostFocus事件被觸發(fā)
B.添加到組合框的新項(xiàng)目不能永久保存，下次運(yùn)行該程序中看不到上次保存的`項(xiàng)目，利用該事件過程能夠?qū)⑤斎氲男聝?nèi)容添加到組合框中，下次運(yùn)行該程序中能夠看到上次保存的項(xiàng)目
C.邏輯變量flag=true時(shí)，表示組合框的項(xiàng)目中有該輸入新項(xiàng)目
D.邏輯變量flag=false時(shí)，表示組合框的項(xiàng)目中有該輸入新項(xiàng)目
8.窗體中有兩個(gè)檢查框名稱分別為check1和check2，一個(gè)命令按鈕名稱為command1，一個(gè)列表框名稱為list1，兩個(gè)單選按鈕名稱分別為option1和option2。如下程序：
Private Sub Command1_Click( )
If Check1.Value = 1 Then
List1.AddItem "品牌：松下"
List1.AddItem "數(shù)量：3臺(tái)"
End If
If Check2.Value = 1 Then
If Option1.Value = True Then
List1.AddItem "操作系統(tǒng)：Windows 2000"
Else
List1.AddItem "操作系統(tǒng)：Windows 98"
End If
End If
End Sub
當(dāng)窗體啟動(dòng)后，先選中檢查框check1，然后單擊命令按鈕command1，運(yùn)行效果為(A) (單)
A.列表框List1中的列表項(xiàng)目分別為：品牌：松下數(shù)量：3臺(tái)
B.列表框List1中的列表項(xiàng)目分別為：操作系統(tǒng)：Windows 2000 操作系統(tǒng)：Windows 98
C.沒有任何顯示
D.以上都不正確
*9.窗體中有兩個(gè)檢查框名稱分別為check1和check2，一個(gè)命令按鈕名稱為command1，一個(gè)列表框名稱為list1，兩個(gè)單選按鈕名稱分別為option1和option2。如下程序：
Private Sub Command1_Click( )
If Check1.Value = 1 Then
List1.AddItem "品牌：松下"
List1.AddItem "數(shù)量：3臺(tái)"
End If
If Check2.Value = 1 Then
If Option1.Value = True Then
List1.AddItem "操作系統(tǒng)：Windows 2000"
Else
List1.AddItem "操作系統(tǒng)：Windows 98"
End If
End If
End Sub
當(dāng)窗體啟動(dòng)后，先選中檢查框check2(其中單選按鈕option1被選中)，然后單擊命令按鈕command1，運(yùn)行效果為(B)(單)
A.列表框List1中的列表項(xiàng)目分別為：品牌：松下數(shù)量：3臺(tái)
B.列表框List1中的列表項(xiàng)目分別為：操作系統(tǒng)：Windows 2000 操作系統(tǒng)：Windows 98
C.列表框List1中的列表項(xiàng)目為：操作系統(tǒng)：Windows 2000
D.以上都不正確
53430.窗體中有兩個(gè)檢查框名稱分別為check1和check2，一個(gè)命令按鈕名稱為command1，一個(gè)列表框名稱為list1，兩個(gè)單選按鈕名稱分別為option1和option2。如下程序：
Private Sub Command1_Click( )
If Check1.Value = 1 Then
List1.AddItem "品牌：松下"
List1.AddItem "數(shù)量：3臺(tái)"
End If
If Check2.Value = 1 Then
If Option1.Value = True Then
List1.AddItem "操作系統(tǒng)：Windows 2000"
Else
List1.AddItem "操作系統(tǒng)：Windows 98"
End If
End If
End Sub
當(dāng)窗體啟動(dòng)后，先選中檢查框check2(其中單選按鈕option2被選中)，然后單擊命令按鈕command1，運(yùn)行效果為(B)(單)
A.列表框List1中的列表項(xiàng)目分別為：品牌：松下數(shù)量：3臺(tái)
B.列表框List1中的列表項(xiàng)目為：操作系統(tǒng)：Windows 98
C.列表框List1中的列表項(xiàng)目為：操作系統(tǒng)：Windows 2000
11 .傳值：形參得到的是實(shí)參的值，形參值的改變不會(huì)影響實(shí)參的值。在定義形參前加關(guān)鍵字Byval�！�
12.以下利用SUB關(guān)鍵字定義的子過程Rate，其調(diào)用格式不正確的是(B) (單)
A.call Rate(12,56)
B.Rate(12,56)
C.Rate 12,56
D.以上A和C正確
13.如下程序運(yùn)行后顯示結(jié)果為(B) (單)
Public Temp As integer
Sub Form_Load( )
Dim Temp As Integer
Temp=10
Form1.Temp=20
Print Form1.Temp;"和";Temp
End Sub
A.10和20
B.20和10
C.10和10
D.20和20
14.以下對靜態(tài)變量說法不正確的是(D) (單)
A.定義格式為：Static 變量名 [AS 類型]
B.在子過程名/函數(shù)名前加Static，表示該過程/函數(shù)體內(nèi)局部變量全部都是靜態(tài)變量
C.靜態(tài)變量必須在過程體內(nèi)定義
D.靜態(tài)變量可以在窗體的"通用聲明部"定義
15 .過程在自身定義的內(nèi)部調(diào)用自己本身的結(jié)構(gòu)稱為遞歸�！�
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("請輸入數(shù)值"))
Print "fac(n)=";fac(n)
End Sub
以下說法不正確的是(D) (單)
A.若fac函數(shù)中If n = 1 Then fac = 1沒有，僅有語句：fac = n * fac(n - 1) ，程序運(yùn)行將會(huì)出錯(cuò)
B.若輸入的n<=0 ，程序運(yùn)行將會(huì)出錯(cuò)
C.若n=4，則輸出結(jié)果為：fac(n)=24
D.以上說法都不正確
17.利用遞歸求最大公約數(shù)的程序?yàn)椋?/p>
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檢查框?qū)⑹沟肨ext1文本框的字體在"加粗"和"常規(guī)"之間進(jìn)行切換�！�
Private Sub Check1_Click( )
Text1.FontBold = Not Text1.FontBold
End Sub
*19 .以下程序的作用是單擊Check1檢查框?qū)⑹沟肨ext1文本框的字體在"加粗"和"常規(guī)"之間進(jìn)行切換�！�
Private Sub Check1_Click( )
Text1.FontItalic = Not Text1.FontItalic
End Sub
*20 .以下程序的作用是單擊Check1檢查框?qū)⑹沟肨ext1文本框的字體在"加粗"和"常規(guī)"之間進(jìn)行切換�！�
Private Sub Check1_Click( )
Text1.FontUnderline = Not Text1.FontUnderline
End Sub
【計(jì)算機(jī)二級VB考試練習(xí)及答案】相關(guān)文章：
2016計(jì)算機(jī)二級考試練習(xí)試題及答案08-06
2016計(jì)算機(jī)二級考試模擬練習(xí)題及答案08-07
計(jì)算機(jī)二級VB考試重點(diǎn)知識08-15
計(jì)算機(jī)等級考試二級VB考點(diǎn)：程序調(diào)試11-08
2016年計(jì)算機(jī)二級考試試題VB沖刺題08-06
2016計(jì)算機(jī)一級考試練習(xí)題及答案08-06
2016計(jì)算機(jī)一級考試《WPS》練習(xí)題及答案08-06