2017计算机二级Visual Basic考试题及答案
考生们在备考计算机考试科目时，除了复习教材以外，还要结合试题加深对知识点的理解和巩固，以下是百分网小编搜索整理的一份2017计算机二级Visual Basic考试题及答案，供参考练习，预祝考生们考出自己理想的成绩!想了解更多相关信息请持续关注我们应届毕业生考试网!
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