- 相干保举
2017年9月计较机二级测验VB备考题
2017年计较机二级测验顿时就要起头了，你报考了哪个科目呢?上面是小编为大师带来的计较机二级测验VB备考题，接待浏览。
备考题一：
1.窗体中有一个称号为txtSpeed的文本框，一个称号为hsbSpeed的转动条。
以下法式：
Private Sub hsbSpeed_Change( )
txtSpee
D.Text = hsbSpee
D.Value
End Sub
当单击转动条hsbSpeed右真个箭头时，以下说法不准确的是(B) (单)
A.此时会触发change事务
B.此时不会触发change事务
C.在文本框中显现了转动条滑块地点地位的值
D.此时不会触发scroll事务
2.操纵窗体中的转动条HScroll1转变窗体的背景色，能够如许编写代码：
Private Sub HScroll1_Change( )
R= HScroll1.Value
form1.BackColor = RGB(R，int(Rnd*256)，int(Rnd*256))
End Sub
以下说法不准确的是(C) (单)
A.窗体的背景色是一个随机的色彩
B.RGB函数取获得的色彩有256*256*256种
C.抒发式int(Rnd*256)获得随机数的规模为0-256之间的整数
D.抒发式int(Rnd*256)获得随机数的规模为0-255之间的整数
3.窗体中有一个称号为Slider1的可挑选性刻度滑块控件，一个称号为text1的文本框，以下法式：
Private Sub Slider1_change( )
Text1.FontSize =【Slider1.value】
End Sub
当拖动滑块时，以上法式完成用Slider控件设置文本框中的字体巨细的功效。
4.窗体中有一个称号为Slider1的可挑选性刻度滑块控件，一个称号为text1的文本框，以下法式：
Private Sub Slider1_change( )
Text1.【Fontsize】 = slider1.value
End Sub
当拖动滑块时，以上法式完成用Slider控件设置文本框中的字体巨细的功效。
5.窗体中有一个称号为Slider1的可挑选性刻度滑块控件，要设置它的以下属性值，能够编写法式(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文件之间遏制切换
B.PickBmp变量是逻辑变量，感化是表现图形的状况
C.App.Path表现绝对途径
D.要使得timer控件起感化，必须使得它的Enabled属性设置为true，interval属性设置为介于0-64767之间的数值，但不能即是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文件之间遏制切换
B.也能够将timer1控件的timer事务改写为change事务
C.App.Path表现绝对途径
D.要使得timer控件起感化，必须使得它的Enabled属性设置为true，interval属性设置为介于0-64767之间的数值，但不能即是0
8 .在ProgressBar进度条控件中，它的Value属性决议该控件被添补几多。√
9 .UpDown控件凡是与火伴控件"绑缚"在一路利用。√
10 .Animation控件能够用来显现有声音的AVI视频文件 ×。
11.对Animation控件所利用的方式描写不准确的是(B) (单)
A.Open方式用于翻开文件
B.Play方式用于播放动画，格局为： Animation1.play AVI动画文件途径
C.Stop方式用于遏制播放
D.Close方式用于封闭文件
12.上面的事务不属于鼠标器事务的是(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
当单击号令按钮时，对法式的运转说法准确的是(B) (单)
A.翻开一个色彩对话框
B.翻开一个字体对话框
C.把文本框的背景色彩设置为对话框挑选的字体色彩
D.把文本框的背景色彩设置为对话框中挑选的色彩
15.当单击号令按钮时，对以下法式说法不准确的是(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中的内容
B.语句Printer.EndDoc表现竣事文挡打印
C.翻开的打印对话框
D.以上说法都不准确
16.当单击号令按钮时，对以下法式说法不准确的是(C) (单)
Sub command1_Click( )
CommonDialog1.FileName = "default.txt"
CommonDialog1.DefaultExt = "Txt"
CommonDialog1.Action = 2
End Sub
A.设置缺省文件名为default.txt
B.设置缺省扩大名为Txt
C.显现的是文件"翻开"对话框
D.显现的是"另存为"对话框
17.在窗体中建立了三个称号别离为EditCut、EditCopy和EditPaste的号令按钮，一个称号为text1的文本框。
以下法式：
Private Sub EditCopy_Click( )
st = Text1.SelText '将选中的内容寄存到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文本框中挑选的内容寄存到st变量中
B.语句Text1.SelText = "" 的感化是：将text1文本框中挑选的内容断根
C.单击EditCut号令按钮完成了text1文本框中挑选的内容断根
D.单击Editcopy号令按钮完成了text1文本框中一切内容的粘贴
18.对以下法式说法不准确的是(D) (单)
Private Sub FileOpen_Click( )
CommonDialog1.InitDir = "C:"
CommonDialog1.Filter = "文本文件 | *.Txt"
CommonDialog1.ShowOpen
End Sub
A.显现"文件"翻开对话框
B.翻开的对话框的初始目次为C盘根目次
C.翻开的对话框的文件范例为文本文件
D.以上说法都不准确
19.双精度型数据的范例符为(A) (单)
A.#
B.*
C.&
D.@
20.整型数据的范例符为(B) (单)
A.#
B.%
C.&
D.@
备考题二：
1.以下能鉴定指针是不是指向文件尾的函数是(D)(单)
A.BOF
B.LOC
C.LOF
D.EOF
2.若是一个工程含有多个窗体及规范模块，则以下论述中毛病的是(B)(单)
A.若是工程中含有Sub Main进程，则法式必然起首履行该进程
B.不能把规范模块设置为启动模块
C.用Hide方式只是埋没一个窗体,不能从内存中断根该窗体
D.任何时辰最多只要一个窗体是勾当窗体
3.窗体的进程Form_MouseDown (Button As Integer, Shift As Integer, X As Single, YAs Single) ，有4个参数，对于这些参数，准确的描写是(D)(单)
A.经由进程Button参数鉴定以后按下的是键盘上哪个键
B.Shift参数只能用来肯定是不是按下Shift键
C.Shift参数只能用来肯定是不是按下Alt和Ctrl键
D.参数x,y用来设置鼠标以后地位的坐标
4.设组合框Combo1中有3个名目，则以下能删除最初一项的语句是(B)(单)
A.Combo1.RemoveItem Text
B.Combo1.RemoveItem 2
C.Combo1.RemoveItem 3
D.Combo1.RemoveItem Combo1.Listcount
5.以下对于核心的论述中，毛病的是(A)(单)
A.若是文本框的Enabled属性为False，能领受从键盘上输入的数据
B.当文本框落空核心时，触发LostFocus事务
C.当文本框的Enabled属性为False时，其Tab挨次不起感化
D.能够用TabIndex属性转变Tab挨次
6.若是要在菜单中增加一个分开线，则应将其Caption属性设置为(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
法式运转后，若是在文本框Text1中输入10，而后单击号令按钮，则在Text2中显现的内容是(A)(单)
A.10
B.20
C.30
D.40
8.设有以下轮回布局
Do
轮回体
Loop While <前提>
则以下论述中毛病的是(A)(单)
A.若"前提"是一个为0的常数，则一次也不履行轮回体
B."前提"能够是干系抒发式、逻辑抒发式或常数
C.轮回体中能够利用Exit Do语句
D.若是"前提"老是为True，则不停地履行轮回体
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
法式运转后，单击号令按钮，则窗体上显现的内容是(B)(单)
A.1 3.4 5.8
B.1 3 5
C.1 4 7
D.有数据输入
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
法式运转后，单击号令按钮，则窗体上显现的内容是(C)(单)
A.7 9
B.34 0
C.9 7
D.死轮回
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
法式运转后，若是单击号令按钮，则在窗体上显现的内容是(C)(单)
A.10 5
B.20 5
C.20 40
D.10 40
12.设有以下通用进程：
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
法式运转后，单击号令按钮，则在文本框中显现的内容是(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月计较机二级测验VB备考题】相干文章：
9月计较机二级测验VB真题10-11
2017年9月计较机二级测验VB根本题05-22
2017年9月计较机二级测验VB测试题08-16
2016年9月计较机二级《VB》上机试题07-07