計(jì)算機(jī)二級(jí)VB考試題
Visual Basic(簡(jiǎn)稱VB)是Microsoft公司開發(fā)的一種通用的基于對(duì)象的程序設(shè)計(jì)語(yǔ)言，接下來(lái)CN人才網(wǎng)小編為大家?guī)?lái)的是計(jì)算機(jī)二級(jí)VB考試題，歡迎大家閱讀借鑒。
【計(jì)算機(jī)二級(jí)VB考試題一】
1.在窗體上建立一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為Text1的文本框，以及四個(gè)單選按鈕：第一個(gè)名稱為option1用來(lái)設(shè)置文本框的字體為"宋體"，
第二個(gè)名稱為option2用來(lái)設(shè)置文本框的字體為"黑體"，第三個(gè)名稱為option3用來(lái)設(shè)置文本框的字體大小為8號(hào)，第四個(gè)名稱為option4用來(lái)設(shè)置文本框的字體大小為12號(hào)。
程序如下：(程序運(yùn)行剛開始時(shí)，四個(gè)單選按鈕都沒(méi)有選中)
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號(hào)
D.字體大小設(shè)置為12號(hào)
2.在窗體上建立一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為Text1的文本框，以及四個(gè)單選按鈕：第一個(gè)名稱為option1用來(lái)設(shè)置文本框的字體為"宋體"，
第二個(gè)名稱為option2用來(lái)設(shè)置文本框的字體為"黑體"，第三個(gè)名稱為option3用來(lái)設(shè)置文本框的字體大小為8號(hào)，第四個(gè)名稱為option4用來(lái)設(shè)置文本框的字體大小為12號(hào)。
程序如下：(程序運(yùn)行剛開始時(shí)，四個(gè)單選按鈕都沒(méi)有選中)
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號(hào)
D.字體大小設(shè)置為12號(hào)
3.在窗體上建立一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為Text1的文本框，以及四個(gè)單選按鈕：第一個(gè)名稱為option1用來(lái)設(shè)置文本框的字體為"宋體"，
第二個(gè)名稱為option2用來(lái)設(shè)置文本框的字體為"黑體"，第三個(gè)名稱為option3用來(lái)設(shè)置文本框的字體大小為8號(hào)，第四個(gè)名稱為option4用來(lái)設(shè)置文本框的字體大小為12號(hào)。
程序如下：(程序運(yùn)行剛開始時(shí)，四個(gè)單選按鈕都沒(méi)有選中)
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號(hào)
D.字體大小設(shè)置為12號(hào)
4.在窗體上建立一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為Text1的文本框，以及四個(gè)單選按鈕：第一個(gè)名稱為option1用來(lái)設(shè)置文本框的字體為"宋體"，
第二個(gè)名稱為option2用來(lái)設(shè)置文本框的字體為"黑體"，第三個(gè)名稱為option3用來(lái)設(shè)置文本框的字體大小為8號(hào)，第四個(gè)名稱為option4用來(lái)設(shè)置文本框的字體大小為12號(hào)。
程序如下：(程序運(yùn)行剛開始時(shí)，四個(gè)單選按鈕都沒(méi)有選中)
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號(hào)
D.字體大小設(shè)置為12號(hào)
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
對(duì)該程序說(shuō)法不正確的是(D) (單)
A.窗體啟動(dòng)時(shí)，在列表框中有三個(gè)列表項(xiàng)目，依次為：計(jì)算機(jī)文化基礎(chǔ)、VB程序設(shè)計(jì)教程、操作系統(tǒng)
B.單擊cmdAdd命令按鈕后，把文本框中的信息添加到列表框中
C.在列表框中添加列表項(xiàng)目的方法為additem方法
D.以上說(shuō)法都不正確
6.在窗體中建立了一個(gè)名稱為L(zhǎng)STBOOKS的列表框，一個(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.對(duì)以下程序說(shuō)法不正確的是(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)目，利用該事件過(guò)程能夠?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.沒(méi)有任何顯示
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)鍵字定義的子過(guò)程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.以下對(duì)靜態(tài)變量說(shuō)法不正確的是(D) (單)
A.定義格式為：Static 變量名 [AS 類型]
B.在子過(guò)程名/函數(shù)名前加Static，表示該過(guò)程/函數(shù)體內(nèi)局部變量全部都是靜態(tài)變量
C.靜態(tài)變量必須在過(guò)程體內(nèi)定義
D.靜態(tài)變量可以在窗體的"通用聲明部"定義
15 .過(guò)程在自身定義的內(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("請(qǐng)輸入數(shù)值"))
Print "fac(n)=";fac(n)
End Sub
以下說(shuō)法不正確的是(D) (單)
A.若fac函數(shù)中If n = 1 Then fac = 1沒(méi)有，僅有語(yǔ)句：fac = n * fac(n - 1) ，程序運(yùn)行將會(huì)出錯(cuò)
B.若輸入的n<=0 ，程序運(yùn)行將會(huì)出錯(cuò)
C.若n=4，則輸出結(jié)果為：fac(n)=24
D.以上說(shuō)法都不正確
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ī)二級(jí)VB考試題二】
1.在窗體上畫一個(gè)名稱為Text1的文本框，一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程和通用過(guò)程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
If n\2 = n/2 Then
f = f1(n)
Else
f = f2(n)
End If
Print f; n
End Sub
Public Function f1(ByRef x)
x=x*x
f1=x+x
End Function
Public Function f2(ByVal x)
x=x*x
f2=x+x+x
End Function
程序運(yùn)行后，在文本框中輸入3，然后單擊命令按鈕，窗體上顯示的是(D)(單)
A.72 36
B.108 36
C.72 6
D.27 3
2.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：
Private Sub Command1_Click( )
c = "1234"
For i = 1 To 4
c1 = Trim(Str( ))
Print c1
Next i
End Sub
程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容
1
12
123
1234
則在下劃線處應(yīng)填入的內(nèi)容為(B)(單)
A.Right(c1,i)
B.Left(c1,i)
C.Mid(c1,i,1)
D.Mid(c1,i,i)
3.在窗體上畫一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為Text1的文本框，然后編寫如下事件過(guò)程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
For i = 2 To n
For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j >Sqr(i) Then Print i
Next i
End Sub
該事件過(guò)程的功能是(C)(單)
A.輸出n以內(nèi)的奇數(shù)
B.輸出n以內(nèi)的偶數(shù)
C.輸出n以內(nèi)的素?cái)?shù)
D.輸出n以內(nèi)能被j整除的數(shù)
4.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下通用過(guò)程和命令按鈕的事件過(guò)程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click( )
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next
Print s
End Sub
程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的'是(C)(單)
A.11
B.10
C.9
D.8
5.在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：
Private Sub Command1_Click( )
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i, j) = i + j
Next j
Next i
Text1.Text = array1(2, 3) + array1(3, 4)
End Sub
程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是(D)(單)
A.15
B.14
C.13
D.12
6.Visual Basic應(yīng)用程序中標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是【BAS或.BAS】(注意不要寫點(diǎn))。
7.在菜單編輯器中建立一個(gè)菜單，其主菜單項(xiàng)的名稱為mnuEdit，Visible屬性為False，程序運(yùn)行后，如果用鼠標(biāo)右鍵單擊窗體，則彈出與mnuEdit相應(yīng)的菜單。
Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
popupmenu mnuEdit
End If
End Sub
8.在菜單編輯器中建立一個(gè)菜單，其主菜單項(xiàng)的名稱為mnuEdit，Visible屬性為False，程序運(yùn)行后，如果用鼠標(biāo)右鍵單擊窗體，則彈出與mnuEdit相應(yīng)的菜單。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁铡?/p>
Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
【popupmenu】 mnuEdit
End If
9.為了使計(jì)時(shí)器控件Timer1每隔0.5秒觸發(fā)一次Timer事件，應(yīng)將Timer1控件的【Interval】屬性設(shè)置為500。
10.為了使計(jì)時(shí)器控件Timer1每隔0.5秒觸發(fā)一次Timer事件，應(yīng)將Timer1控件的Interval屬性設(shè)置為【500】。
【計(jì)算機(jī)二級(jí)VB考試題三】
1.窗體中有一個(gè)名稱為txtSpeed的文本框，一個(gè)名稱為hsbSpeed的滾動(dòng)條。
以下程序：
Private Sub hsbSpeed_Change( )
txtSpee
D.Text = hsbSpee
D.Value
End Sub
當(dāng)單擊滾動(dòng)條hsbSpeed右端的箭頭時(shí)，以下說(shuō)法不正確的是(B) (單)
A.此時(shí)會(huì)觸發(fā)change事件
B.此時(shí)不會(huì)觸發(fā)change事件
C.在文本框中顯示了滾動(dòng)條滑塊所在位置的值
D.此時(shí)不會(huì)觸發(fā)scroll事件
2.利用窗體中的滾動(dòng)條HScroll1改變窗體的背景色，可以這樣編寫代碼：
Private Sub HScroll1_Change( )
R= HScroll1.Value
form1.BackColor = RGB(R，int(Rnd*256)，int(Rnd*256))
End Sub
以下說(shuō)法不正確的是(C) (單)
A.窗體的背景色是一個(gè)隨機(jī)的顏色
B.RGB函數(shù)取得到的顏色有256*256*256種
C.表達(dá)式int(Rnd*256)取得隨機(jī)數(shù)的范圍為0-256之間的整數(shù)
D.表達(dá)式int(Rnd*256)取得隨機(jī)數(shù)的范圍為0-255之間的整數(shù)
3.窗體中有一個(gè)名稱為Slider1的可選擇性刻度滑塊控件，一個(gè)名稱為text1的文本框，如下程序：
Private Sub Slider1_change( )
Text1.FontSize =【Slider1.value】
End Sub
當(dāng)拖動(dòng)滑塊時(shí)，以上程序?qū)崿F(xiàn)用Slider控件設(shè)置文本框中的字體大小的功能。
4.窗體中有一個(gè)名稱為Slider1的可選擇性刻度滑塊控件，一個(gè)名稱為text1的文本框，如下程序：
Private Sub Slider1_change( )
Text1.【Fontsize】 = slider1.value
End Sub
當(dāng)拖動(dòng)滑塊時(shí)，以上程序?qū)崿F(xiàn)用Slider控件設(shè)置文本框中的字體大小的功能。
5.窗體中有一個(gè)名稱為Slider1的可選擇性刻度滑塊控件，要設(shè)置它的如下屬性值，可以編寫程序(A) (單)
(1)Slider控件的滑塊處于最小位置時(shí)值為8
(2)Slider控件的滑塊處于最大位置時(shí)值為72
(3)單擊Slider控件兩端箭頭時(shí)，滑塊的增量值為2
(4)單擊Slider控件的空白處時(shí)，滑塊的增量值為8
A.Slider1.Min = 8：
Slider1.Max = 72：
Slider1.SmallChange =2：
Slider1.LargeChange = 8
B.Slider1.Min = 2：
Slider1.Max = 8：
Slider1.SmallChange = 72：
Slider1.LargeChange = 8
C.Slider1.Min = 8：
Slider1.Max = 72：
Slider1.SmallChange = 8：
Slider1.LargeChange = 2
D.Slider1.Min = 72：
Slider1.Max = 8：
Slider1.SmallChange = 2：
Slider1.LargeChange = 8
6.在窗體中有一個(gè)名稱為timer1的時(shí)鐘控件，三個(gè)名稱分別為image1、image2 和 image3的圖像框，編寫如下程序：
Sub Form_Load( )
Image1.Picture=LoadPicture(App.Path+"\butterfly.bmp")
Image2.Picture=LoadPicture(App.Path+"\butterfly2.bmp")
Image3.Picture=LoadPicture(App.Path+"\butterfly.bmp")
End Sub
Sub timer1_Timer( )
Static PickBmp As Boolean
Image1.Move Image1.Left + 20, Image1.Top - 5
If PickBmp = False Then
Image1.Picture = Image2.Picture
PickBmp = True
Else
Image1.Picture = Image3.Picture
PickBmp = False
End If
End Sub
以下說(shuō)法不正確的是(C) (單)
A.此程序的功能是把image1圖像框顯示圖形在butterfly.bmp和butterfly2.bmp文件之間進(jìn)行切換
B.PickBmp變量是邏輯變量，作用是表示圖形的狀態(tài)
C.App.Path表示絕對(duì)路徑
D.要使得timer控件起作用，必須使得它的Enabled屬性設(shè)置為true，interval屬性設(shè)置為介于0-64767之間的數(shù)值，但不能等于0
7.在窗體中有一個(gè)名稱為timer1的時(shí)鐘控件，三個(gè)名稱分別為image1、image2 和 image3的圖像框，編寫如下程序：
Sub Form_Load( )
Image1.Picture=LoadPicture(App.Path+"\butterfly.bmp")
Image2.Picture=LoadPicture(App.Path+"\butterfly2.bmp")
Image3.Picture=LoadPicture(App.Path+"\butterfly.bmp")
End Sub
Sub timer1_Timer( )
Static PickBmp As Boolean
Image1.Move Image1.Left + 20, Image1.Top - 5
If PickBmp = False Then
Image1.Picture = Image2.Picture
PickBmp = True
Else
Image1.Picture = Image3.Picture
PickBmp = False
End If
End Sub
以下說(shuō)法不正確的是(B) (單)
A.此程序的功能是把image1圖像框顯示圖形在butterfly.bmp和butterfly2.bmp文件之間進(jìn)行切換
B.也可以將timer1控件的timer事件改寫為change事件
C.App.Path表示相對(duì)路徑
D.要使得timer控件起作用，必須使得它的Enabled屬性設(shè)置為true，interval屬性設(shè)置為介于0-64767之間的`數(shù)值，但不能等于0
8 .在ProgressBar進(jìn)度條控件中，它的Value屬性決定該控件被填充多少。√
9 .UpDown控件通常與伙伴控件"捆綁"在一起使用。√
10 .Animation控件可以用來(lái)顯示有聲音的AVI視頻文件 ×。
11.對(duì)Animation控件所使用的方法描述不正確的是(B) (單)
A.Open方法用于打開文件
B.Play方法用于播放動(dòng)畫，格式為： Animation1.play AVI動(dòng)畫文件路徑
C.Stop方法用于停止播放
D.Close方法用于關(guān)閉文件
12.下面的事件不屬于鼠標(biāo)器事件的是(D) (單)
A.MouseDown事件
B.MouseUp事件
C.MouseMove事件
D.Move事件
13.下面的事件不屬于鍵盤事件的是(D) (單)
A.KeyPress事件
B.KeyDown事件
C.KeyUp事件
D.KeyMove事件
14.在窗體中有一個(gè)名稱為command1的命令按鈕，一個(gè)名稱為text1的文本框，一個(gè)名稱為commondialog1的通用對(duì)話框，編寫如下程序：
Sub command1_Click( )
CommonDialog1.Action = 3
text1.ForeColor = CommonDialog1.Color
End Sub
當(dāng)單擊命令按鈕時(shí)，對(duì)程序的運(yùn)行說(shuō)法正確的是(B) (單)
A.打開一個(gè)顏色對(duì)話框
B.打開一個(gè)字體對(duì)話框
C.把文本框的背景顏色設(shè)置為對(duì)話框選擇的字體顏色
D.把文本框的背景顏色設(shè)置為對(duì)話框中選擇的顏色
15.當(dāng)單擊命令按鈕時(shí)，對(duì)以下程序說(shuō)法不正確的是(D) (單)
Sub command1_Click( )
CommonDialog1.Action = 5
For i = 1 To CommonDialog1.Copies
Printer.Print text1.Text
Next i
Printer.EndDoc
End Sub
A.此文件的功能是打印文本框text1中的內(nèi)容
B.語(yǔ)句Printer.EndDoc表示結(jié)束文擋打印
C.打開的打印對(duì)話框
D.以上說(shuō)法都不正確
16.當(dāng)單擊命令按鈕時(shí)，對(duì)以下程序說(shuō)法不正確的是(C) (單)
Sub command1_Click( )
CommonDialog1.FileName = "default.txt"
CommonDialog1.DefaultExt = "Txt"
CommonDialog1.Action = 2
End Sub
A.設(shè)置缺省文件名為default.txt
B.設(shè)置缺省擴(kuò)展名為Txt
C.顯示的是文件"打開"對(duì)話框
D.顯示的是"另存為"對(duì)話框
17.在窗體中建立了三個(gè)名稱分別為EditCut、EditCopy和EditPaste的命令按鈕，一個(gè)名稱為text1的文本框。
如下程序：
Private Sub EditCopy_Click( )
st = Text1.SelText '將選中的內(nèi)容存放到st變量中
End Sub
Private Sub EditCut_Click( )
st = Text1.SelText '
Text1.SelText = ""
End Sub
Private Sub EditPaste_Click( )
Text1.Text = Left(Text1, Text1.SelStart) + st + Mid(Text1, Text1.SelStart
+ 1)
End Sub
對(duì)以上程序說(shuō)法不正確的是(D) (單)
A.語(yǔ)句st = Text1.SelText的作用是：將text1文本框中選擇的內(nèi)容存放到st變量中
B.語(yǔ)句Text1.SelText = "" 的作用是：將text1文本框中選擇的內(nèi)容清除
C.單擊EditCut命令按鈕實(shí)現(xiàn)了text1文本框中選擇的內(nèi)容清除
D.單擊Editcopy命令按鈕實(shí)現(xiàn)了text1文本框中所有內(nèi)容的粘貼
18.對(duì)以下程序說(shuō)法不正確的是(D) (單)
Private Sub FileOpen_Click( )
CommonDialog1.InitDir = "C:\"
CommonDialog1.Filter = "文本文件 | *.Txt"
CommonDialog1.ShowOpen
End Sub
A.顯示"文件"打開對(duì)話框
B.打開的對(duì)話框的初始目錄為C盤根目錄
C.打開的對(duì)話框的文件類型為文本文件
D.以上說(shuō)法都不正確
19.雙精度型數(shù)據(jù)的類型符為(A) (單)
A.#
B.*
C.&
D.@
20.整型數(shù)據(jù)的類型符為(B) (單)
A.#
B.%
C.&
D.@
【計(jì)算機(jī)二級(jí)VB考試題】相關(guān)文章：
計(jì)算機(jī)二級(jí)VB考試題精選及答案07-21
計(jì)算機(jī)二級(jí)VB考試題及答案07-20
計(jì)算機(jī)等級(jí)考試二級(jí)VB考試題及答案07-21
計(jì)算機(jī)二級(jí)VB語(yǔ)言程序設(shè)計(jì)考試題及答案07-21
二級(jí)VB語(yǔ)言程序設(shè)計(jì)考試題及答案07-21
計(jì)算機(jī)二級(jí)VB強(qiáng)化試題及答案07-20
計(jì)算機(jī)二級(jí)VB考點(diǎn)：報(bào)表制作07-20
計(jì)算機(jī)二級(jí)VB考試重點(diǎn)知識(shí)08-15