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

发布时间:2017-07-29 编辑:肖兰 手机版

  考生们在备考计算机考试科目时,除了复习教材以外,还要结合试题加深对知识点的理解和巩固,以下是YJBYS小编搜索整理的一份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

本文已影响
2017计算机二级Visual Basic考试题及答案相关推荐