对于计算机等级开始想拿高分就要多做练习题，下面是小编分享的计算机二级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.计算机二级vb练习题

2.计算机二级考试试题VB练习题

3.计算机二级vb练习题及答案

4.计算机二级VB专项练习题

5.2017全国计算机二级《VB》练习题及答案

6.计算机二级VB考试模拟练习题

7.2017年9月计算机二级考试《VB》强化练习题及答案

8.2017年9月计算机二级考试《VB》强化练习题与答案

9.计算机二级VB强化试题及答案

10.计算机二级《VB》的常用算法