- 相關(guān)推薦
2017年9月計(jì)算機(jī)二級考試VB備考題
2017年計(jì)算機(jī)二級考試馬上就要開始了，你報(bào)考了哪個科目呢?下面是小編為大家?guī)淼挠?jì)算機(jī)二級考試VB備考題，歡迎閱讀。
備考題一：
1.窗體中有一個名稱為txtSpeed的文本框，一個名稱為hsbSpeed的滾動條。
以下程序：
Private Sub hsbSpeed_Change( )
txtSpee
D.Text = hsbSpee
D.Value
End Sub
當(dāng)單擊滾動條hsbSpeed右端的箭頭時，以下說法不正確的是(B) (單)
A.此時會觸發(fā)change事件
B.此時不會觸發(fā)change事件
C.在文本框中顯示了滾動條滑塊所在位置的值
D.此時不會觸發(fā)scroll事件
2.利用窗體中的滾動條HScroll1改變窗體的背景色，可以這樣編寫代碼：
Private Sub HScroll1_Change( )
R= HScroll1.Value
form1.BackColor = RGB(R，int(Rnd*256)，int(Rnd*256))
End Sub
以下說法不正確的是(C) (單)
A.窗體的背景色是一個隨機(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.窗體中有一個名稱為Slider1的可選擇性刻度滑塊控件，一個名稱為text1的文本框，如下程序：
Private Sub Slider1_change( )
Text1.FontSize =【Slider1.value】
End Sub
當(dāng)拖動滑塊時，以上程序?qū)崿F(xiàn)用Slider控件設(shè)置文本框中的字體大小的功能。
4.窗體中有一個名稱為Slider1的可選擇性刻度滑塊控件，一個名稱為text1的文本框，如下程序：
Private Sub Slider1_change( )
Text1.【Fontsize】 = slider1.value
End Sub
當(dāng)拖動滑塊時，以上程序?qū)崿F(xiàn)用Slider控件設(shè)置文本框中的字體大小的功能。
5.窗體中有一個名稱為Slider1的可選擇性刻度滑塊控件，要設(shè)置它的如下屬性值，可以編寫程序(A) (單)
(1)Slider控件的滑塊處于最小位置時值為8
(2)Slider控件的滑塊處于最大位置時值為72
(3)單擊Slider控件兩端箭頭時，滑塊的增量值為2
(4)單擊Slider控件的空白處時，滑塊的增量值為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.在窗體中有一個名稱為timer1的時鐘控件，三個名稱分別為image1、image2 和 image3的圖像框，編寫如下程序：
Sub Form_Load( )
Image1.Picture=LoadPicture(App.Path+"utterfly.bmp")
Image2.Picture=LoadPicture(App.Path+"utterfly2.bmp")
Image3.Picture=LoadPicture(App.Path+"utterfly.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
以下說法不正確的是(C) (單)
A.此程序的功能是把image1圖像框顯示圖形在butterfly.bmp和butterfly2.bmp文件之間進(jìn)行切換
B.PickBmp變量是邏輯變量，作用是表示圖形的狀態(tài)
C.App.Path表示絕對路徑
D.要使得timer控件起作用，必須使得它的Enabled屬性設(shè)置為true，interval屬性設(shè)置為介于0-64767之間的數(shù)值，但不能等于0
7.在窗體中有一個名稱為timer1的時鐘控件，三個名稱分別為image1、image2 和 image3的圖像框，編寫如下程序：
Sub Form_Load( )
Image1.Picture=LoadPicture(App.Path+"utterfly.bmp")
Image2.Picture=LoadPicture(App.Path+"utterfly2.bmp")
Image3.Picture=LoadPicture(App.Path+"utterfly.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
以下說法不正確的是(B) (單)
A.此程序的功能是把image1圖像框顯示圖形在butterfly.bmp和butterfly2.bmp文件之間進(jìn)行切換
B.也可以將timer1控件的timer事件改寫為change事件
C.App.Path表示相對路徑
D.要使得timer控件起作用，必須使得它的Enabled屬性設(shè)置為true，interval屬性設(shè)置為介于0-64767之間的數(shù)值，但不能等于0
8 .在ProgressBar進(jìn)度條控件中，它的Value屬性決定該控件被填充多少�！�
9 .UpDown控件通常與伙伴控件"捆綁"在一起使用。√
10 .Animation控件可以用來顯示有聲音的AVI視頻文件 ×。
11.對Animation控件所使用的方法描述不正確的是(B) (單)
A.Open方法用于打開文件
B.Play方法用于播放動畫，格式為： Animation1.play AVI動畫文件路徑
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.在窗體中有一個名稱為command1的命令按鈕，一個名稱為text1的文本框，一個名稱為commondialog1的通用對話框，編寫如下程序：
Sub command1_Click( )
CommonDialog1.Action = 3
text1.ForeColor = CommonDialog1.Color
End Sub
當(dāng)單擊命令按鈕時，對程序的運(yùn)行說法正確的是(B) (單)
A.打開一個顏色對話框
B.打開一個字體對話框
C.把文本框的背景顏色設(shè)置為對話框選擇的字體顏色
D.把文本框的背景顏色設(shè)置為對話框中選擇的顏色
15.當(dāng)單擊命令按鈕時，對以下程序說法不正確的是(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.語句Printer.EndDoc表示結(jié)束文擋打印
C.打開的打印對話框
D.以上說法都不正確
16.當(dāng)單擊命令按鈕時，對以下程序說法不正確的是(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.顯示的是文件"打開"對話框
D.顯示的是"另存為"對話框
17.在窗體中建立了三個名稱分別為EditCut、EditCopy和EditPaste的命令按鈕，一個名稱為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
對以上程序說法不正確的是(D) (單)
A.語句st = Text1.SelText的作用是：將text1文本框中選擇的內(nèi)容存放到st變量中
B.語句Text1.SelText = "" 的作用是：將text1文本框中選擇的內(nèi)容清除
C.單擊EditCut命令按鈕實(shí)現(xiàn)了text1文本框中選擇的內(nèi)容清除
D.單擊Editcopy命令按鈕實(shí)現(xiàn)了text1文本框中所有內(nèi)容的粘貼
18.對以下程序說法不正確的是(D) (單)
Private Sub FileOpen_Click( )
CommonDialog1.InitDir = "C:"
CommonDialog1.Filter = "文本文件 | *.Txt"
CommonDialog1.ShowOpen
End Sub
A.顯示"文件"打開對話框
B.打開的對話框的初始目錄為C盤根目錄
C.打開的對話框的文件類型為文本文件
D.以上說法都不正確
19.雙精度型數(shù)據(jù)的類型符為(A) (單)
A.#
B.*
C.&
D.@
20.整型數(shù)據(jù)的類型符為(B) (單)
A.#
B.%
C.&
D.@
備考題二：
1.以下能判斷指針是否指向文件尾的函數(shù)是(D)(單)
A.BOF
B.LOC
C.LOF
D.EOF
2.如果一個工程含有多個窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯誤的是(B)(單)
A.如果工程中含有Sub Main過程，則程序一定首先執(zhí)行該過程
B.不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動模塊
C.用Hide方法只是隱藏一個窗體,不能從內(nèi)存中清除該窗體
D.任何時刻最多只有一個窗體是活動窗體
3.窗體的過程Form_MouseDown (Button As Integer, Shift As Integer, X As Single, YAs Single) ，有4個參數(shù)，關(guān)于這些參數(shù)，正確的描述是(D)(單)
A.通過Button參數(shù)判定當(dāng)前按下的是鍵盤上哪一個鍵
B.Shift參數(shù)只能用來確定是否按下Shift鍵
C.Shift參數(shù)只能用來確定是否按下Alt和Ctrl鍵
D.參數(shù)x,y用來設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo)
4.設(shè)組合框Combo1中有3個項(xiàng)目，則以下能刪除最后一項(xiàng)的語句是(B)(單)
A.Combo1.RemoveItem Text
B.Combo1.RemoveItem 2
C.Combo1.RemoveItem 3
D.Combo1.RemoveItem Combo1.Listcount
5.以下關(guān)于焦點(diǎn)的敘述中，錯誤的是(A)(單)
A.如果文本框的Enabled屬性為False，能接收從鍵盤上輸入的數(shù)據(jù)
B.當(dāng)文本框失去焦點(diǎn)時，觸發(fā)LostFocus事件
C.當(dāng)文本框的Enabled屬性為False時，其Tab順序不起作用
D.可以用TabIndex屬性改變Tab順序
6.如果要在菜單中添加一個分隔線，則應(yīng)將其Caption屬性設(shè)置為(D)(單)
A.=
B.*
C.&
D.-
7.在窗體上畫一個名稱為Command1的命令按鈕和兩個名稱分別為Text1、Text2的文本框，然后編寫如下事件過程：
Private Sub Command1_Click( )
n = val(Text1.Text )
Select Case n
Case 1 To 20
x = 10
Case 2, 4, 6
x = 20
Case Is < 10
x = 30
Case 10
x = 40
End Select
Text2.Text = x
End Sub
程序運(yùn)行后，如果在文本框Text1中輸入10，然后單擊命令按鈕，則在Text2中顯示的內(nèi)容是(A)(單)
A.10
B.20
C.30
D.40
8.設(shè)有以下循環(huán)結(jié)構(gòu)
Do
循環(huán)體
Loop While <條件>
則以下敘述中錯誤的是(A)(單)
A.若"條件"是一個為0的常數(shù)，則一次也不執(zhí)行循環(huán)體
B."條件"可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)
C.循環(huán)體中可以使用Exit Do語句
D.如果"條件"總是為True，則不停地執(zhí)行循環(huán)體
9.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click( )
Dim num As Integer
num = 1
Do Until num > 6
Print num;
num = num + 2.4
Loop
End Sub
程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是(B)(單)
A.1 3.4 5.8
B.1 3 5
C.1 4 7
D.無數(shù)據(jù)輸出
10.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click( )
Dim a As Integer, s As Integer
a = 8
s = 1
Do
s = s + a
a = a-1
Loop While a <= 0
Print s; a
End Sub
程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是(C)(單)
A.7 9
B.34 0
C.9 7
D.死循環(huán)
11.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
有如下通用過程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
Private Sub Command1_Click( )
Static x As Integer
x = 10
y=5
y = f(x)
Print x; y
End Sub
程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是(C)(單)
A.10 5
B.20 5
C.20 40
D.10 40
12.設(shè)有如下通用過程：
Public Sub Fun(a( ), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next I
End Sub
在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下的事件過程：
Private Sub Command1_Click( )
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next I
n = 10
Call Fun(arr( ), n)
Text1.Text = n
End Sub
程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是(A)(單)
A.10
B.15
C.25
D.24
13.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下代碼：
Option Base 1
Private Sub Command1_Click( )
d = 0
c = 10
x = Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x(i) > c Then
d = d + x(i)
c = x(i)
Else
d = d-c
End If
【9月計(jì)算機(jī)二級考試VB備考題】相關(guān)文章：
2023年9月計(jì)算機(jī)二級《VB》考題與答案09-05
2017年9月計(jì)算機(jī)二級考試VB基礎(chǔ)題05-22
2017年9月計(jì)算機(jī)二級考試VB測試題08-16
2017年9月計(jì)算機(jī)二級VB考試模擬測試練習(xí)05-22
2016年9月計(jì)算機(jī)二級《VB》上機(jī)試題07-07
2017年3月計(jì)算機(jī)二級考試《VB》考試題及答案08-22
2017年9月計(jì)算機(jī)二級考試《VB》自測試題07-22