2017年9月计算机二级考试VB备考题

2017年计算机二级考试马上就要开始了，你报考了哪个科目呢?下面是小编为大家带来的计算机二级考试VB备考题，欢迎阅读。

　　备考题一：

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

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

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

B.也可以将timer1控件的timer事件改写为change事件

表示相对路径

D.要使得timer控件起作用，必须使得它的Enabled属性设置为true，interval属性设置为介于0-64767之间的数值，但不能等于0

8 .在ProgressBar进度条控件中，它的Value属性决定该控件被填充多少。√

9 wn控件通常与伙伴控件"捆绑"在一起使用。√

10 ation控件可以用来显示有声音的AVI视频文件 ×。

11.对Animation控件所使用的方法描述不正确的是(B) (单)

方法用于打开文件

方法用于播放动画，格式为： AVI动画文件路径

方法用于停止播放

e方法用于关闭文件

12.下面的事件不属于鼠标器事件的是(D) (单)

eDown事件

eUp事件

eMove事件

事件

13.下面的事件不属于键盘事件的是(D) (单)

ress事件

own事件

p事件

ove事件

14.在窗体中有一个名称为command1的命令按钮，一个名称为text1的文本框，一个名称为commondialog1的通用对话框，编写如下程序：

Sub command1_Click( )

on = 3

Color = r

End Sub

当单击命令按钮时，对程序的运行说法正确的是(B) (单)

A.打开一个颜色对话框

B.打开一个字体对话框

C.把文本框的背景颜色设置为对话框选择的字体颜色

D.把文本框的背景颜色设置为对话框中选择的颜色

15.当单击命令按钮时，对以下程序说法不正确的是(D) (单)

Sub command1_Click( )

on = 5

For i = 1 To es

t

Next i

oc

End Sub

A.此文件的功能是打印文本框text1中的内容

B.语句oc表示结束文挡打印

C.打开的打印对话框

D.以上说法都不正确

16.当单击命令按钮时，对以下程序说法不正确的是(C) (单)

Sub command1_Click( )

Name = ""

ultExt = "Txt"

on = 2

End Sub

A.设置缺省文件名为

B.设置缺省扩展名为Txt

C.显示的是文件"打开"对话框

D.显示的是"另存为"对话框

17.在窗体中建立了三个名称分别为EditCut、EditCopy和EditPaste的命令按钮，一个名称为text1的文本框。

如下程序：

Private Sub EditCopy_Click( )

st = ext '将选中的内容存放到st变量中

End Sub

Private Sub EditCut_Click( )

st = ext '

ext = ""

End Sub

Private Sub EditPaste_Click( )

= Left(Text1, tart) + st + Mid(Text1, tart

+ 1)

End Sub

对以上程序说法不正确的是(D) (单)

A.语句st = ext的作用是：将text1文本框中选择的内容存放到st变量中

B.语句ext = "" 的作用是：将text1文本框中选择的内容清除

C.单击EditCut命令按钮实现了text1文本框中选择的内容清除

D.单击Editcopy命令按钮实现了text1文本框中所有内容的粘贴

18.对以下程序说法不正确的是(D) (单)

Private Sub FileOpen_Click( )

Dir = "C:"

er = "文本文件 | *"

Open

End Sub

A.显示"文件"打开对话框

B.打开的对话框的初始目录为C盘根目录

C.打开的对话框的文件类型为文本文件

D.以上说法都不正确

19.双精度型数据的类型符为(A) (单)

A.#

B.*

C.&

D.@

20.整型数据的类型符为(B) (单)

A.#

B.%

C.&

D.@

　　备考题二：

1.以下能判断指针是否指向文件尾的函数是(D)(单)

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参数判定当前按下的'是键盘上哪一个键

t参数只能用来确定是否按下Shift键

t参数只能用来确定是否按下Alt和Ctrl键

D.参数x,y用来设置鼠标当前位置的坐标

4.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是(B)(单)

veItem Text

veItem 2

veItem 3

veItem count

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( )

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

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

= 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