2017计算机二级Visual Basic考试题及答案

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

1.窗体中有一个名称为txtSpeed的文本框，一个名称为hsbSpeed的滚动条。

以下程序：

Private Sub hsbSpeed_Change( )

txtSpee

= hsbSpee

e

End Sub

当单击滚动条hsbSpeed右端的箭头时，以下说法不正确的是(B) (单)

A.此时会触发change事件

B.此时不会触发change事件

C.在文本框中显示了滚动条滑块所在位置的值

D.此时不会触发scroll事件

2.利用窗体中的滚动条HScroll1改变窗体的背景色，可以这样编写代码：

Private Sub HScroll1_Change( )

R= e

Color = RGB(R，int(Rnd*256)，int(Rnd*256))

End Sub

以下说法不正确的是(C) (单)

A.窗体的背景色是一个随机的颜色

函数取得到的颜色有256*256*256种

C.表达式int(Rnd*256)取得随机数的范围为0-256之间的整数

D.表达式int(Rnd*256)取得随机数的范围为0-255之间的整数

3.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：

Private Sub Slider1_change( )

Size =【e】

End Sub

当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。

4.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：

Private Sub Slider1_change( )

Text1.【Fontsize】 = e

End Sub

当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。

5.窗体中有一个名称为Slider1的可选择性刻度滑块控件，要设置它的如下属性值，可以编写程序(A) (单)

(1)Slider控件的滑块处于最小位置时值为8

(2)Slider控件的滑块处于最大位置时值为72

(3)单击Slider控件两端箭头时，滑块的增量值为2

(4)单击Slider控件的空白处时，滑块的增量值为8

= 8：

= 72：

lChange =2：

eChange = 8

= 2：

= 8：

lChange = 72：

eChange = 8

= 8：

= 72：

lChange = 8：

eChange = 2

= 72：

= 8：

lChange = 2：

eChange = 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

+ 20, - 5

If PickBmp = False Then

ure = Image2.Picture

PickBmp = True

Else

ure = Image3.Picture

PickBmp = False

End If

End Sub

以下说法不正确的是(C) (单)

A.此程序的功能是把image1图像框显示图形在butterfly.bmp和butterfly2.bmp文件之间进行切换

B.PickBmp变量是逻辑变量，作用是表示图形的状态

表示绝对路径

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

+ 20, - 5

If PickBmp = False Then

ure = Image2.Picture

PickBmp = True

Else

ure = Image3.Picture

PickBmp = False

End If

End Sub