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

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

　　备考题一：

1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：

Private Sub Command1_Click( )

n = Val()

If n2 = n/2 Then

f = f1(n)

Else

f = f2(n)

End If

Print f; n

End Sub

Public Function f1(ByRef x)

x=x*x

f1=x+x

End Function

Public Function f2(ByVal x)

x=x*x

f2=x+x+x

End Function

程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)

A.72 36

B.108 36

C.72 6

D.27 3

2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click( )

c = "1234"

For i = 1 To 4

c1 = Trim(Str( ))

Print　c1

Next i

End Sub

程序运行后，单击命令按钮，要求在窗体上显示如下内容

1

12

123

1234

则在下划线处应填入的内容为(B)(单)

t(c1,i)

(c1,i)

(c1,i,1)

(c1,i,i)

3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：

Private Sub Command1_Click( )

n = Val()

For i = 2 To n

For j = 2 To sqr(i)

If i Mod j = 0 Then Exit For

Next j

If j >Sqr(i) Then Print i

Next i

End Sub

该事件过程的功能是(C)(单)

A.输出n以内的奇数

B.输出n以内的偶数

C.输出n以内的素数

D.输出n以内能被j整除的数

4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：

Private Function f(m As Integer)

If m Mod 2 = 0 Then

f = m

Else

f = 1

End If

End Function

Private Sub Command1_Click( )

Dim i As Integer

s = 0

For i = 1 To 5

s = s + f(i)

Next

Print s

End Sub

程序运行后，单击命令按钮，在窗体上显示的是(C)(单)

A.11

B.10

C.9

D.8

5.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click( )

Dim array1(10, 10) As Integer

Dim i As Integer, j As Integer

For i = 1 To 3

For j = 2 To 4

array1(i, j) = i + j

Next j

Next i

= array1(2, 3) + array1(3, 4)

End Sub

程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)

A.15

B.14

C.13

D.12

al Basic应用程序中标准模块文件的扩展名是【BAS或】(注意不要写点)。

7.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。

Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button=2 Then

popupmenu mnuEdit

End If

End Sub

8.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。

Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button=2 Then

【popupmenu】 mnuEdit

End If

9.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【Interval】属性设置为500。

10.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的Interval属性设置为【500】。

　　备考题二：

1.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为"宋体"，

第二个名称为option2用来设置文本框的字体为"黑体"，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。

程序如下：(程序运行刚开始时，四个单选按钮都没有选中)

Private Sub Command1_Click( )

Name = Iif(e, "宋体", "黑体")

Size = Iif(e, 8, 12)

End Sub

当程序运行时，先单击单选按钮option2，然后单击命令按钮command1，则文本框text1的变化效果是(B) (单)

A.字体设置为宋体

B.字体设置为黑体

C.字体大小设置为8号

D.字体大小设置为12号

2.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为"宋体"，

第二个名称为option2用来设置文本框的字体为"黑体"，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。

程序如下：(程序运行刚开始时，四个单选按钮都没有选中)

Private Sub Command1_Click( )

Name = Iif(e, "宋体", "黑体")

Size = Iif(e, 8, 12)

End Sub

当程序运行时，先单击单选按钮option3，然后单击命令按钮command1，则文本框text1的变化效果是(C) (单)

A.字体设置为宋体

B.字体设置为黑体

C.字体大小设置为8号

D.字体大小设置为12号

3.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为"宋体"，

第二个名称为option2用来设置文本框的字体为"黑体"，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。

程序如下：(程序运行刚开始时，四个单选按钮都没有选中)

Private Sub Command1_Click( )

Name = Iif(e, "宋体", "黑体")

Size = Iif(e, 8, 12)

End Sub

当程序运行时，先单击单选按钮option1，然后单击命令按钮command1，则文本框text1的变化效果是(A) (单)

A.字体设置为宋体

B.字体设置为黑体

C.字体大小设置为8号

D.字体大小设置为12号

4.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为"宋体"，

第二个名称为option2用来设置文本框的字体为"黑体"，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。

程序如下：(程序运行刚开始时，四个单选按钮都没有选中)

Private Sub Command1_Click( )

Name = Iif(e, "宋体", "黑体")

Size = Iif(e, 8, 12)

End Sub

当程序运行时，先单击单选按钮option4，然后单击命令按钮command1，则文本框text1的变化效果是(D) (单)

A.字体设置为宋体

B.字体设置为黑体

C.字体大小设置为8号

D.字体大小设置为12号

5.在窗体中建立了一个名称为lstBooks的列表框，一个名称为txtItem的文本框，四个名称分别为cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按钮。

如下程序：

Sub Form_Load( )

tem "计算机文化基础"

tem "VB程序设计教程"

tem "操作系统"

End Sub

Sub cmdAdd_Click( )

tem txtItem

txtItem = ""

End Sub

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

A.窗体启动时，在列表框中有三个列表项目，依次为：计算机文化基础、VB程序设计教程、操作系统

B.单击cmdAdd命令按钮后，把文本框中的信息添加到列表框中

C.在列表框中添加列表项目的方法为additem方法

D.以上说法都不正确

6.在窗体中建立了一个名称为LSTBOOKS的列表框，一个名称为txtItem的文本框，四个名称分别为cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按钮。如下程序的功能是将修改后的项目送回列表框，替换原项目，实现修改：

Sub cmdModify_Ok_Click( )

【ndex】 = txtItem

txtItem = ""

End Sub

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

Private Sub Combo1_LostFocus( )

flag = False

For i = 0 To Count - 1

If (i) = Then

flag = True

Exit For

End If

Next i

If Not flag Then

tem

End If

End Sub

A.当焦点离开组合框时组合框的LostFocus事件被触发

B.添加到组合框的新项目不能永久保存，下次运行该程序中看不到上次保存的项目，利用该事件过程能够将输入的新内容添加到组合框中，下次运行该程序中能够看到上次保存的项目

C.逻辑变量flag=true时，表示组合框的.项目中有该输入新项目

D.逻辑变量flag=false时，表示组合框的项目中有该输入新项目

8.窗体中有两个检查框名称分别为check1和check2，一个命令按钮名称为command1，一个列表框名称为list1，两个单选按钮名称分别为option1和option2。如下程序：

Private Sub Command1_Click( )

If e = 1 Then

tem "品牌：松下"

tem "数量：3台"

End If

If e = 1 Then

If e = True Then

tem "操作系统：Windows 2000"

Else

tem "操作系统：Windows 98"

End If

End If

End Sub

当窗体启动后，先选中检查框check1，然后单击命令按钮command1，运行效果为(A) (单)

A.列表框List1中的列表项目分别为：品牌：松下数量：3台

B.列表框List1中的列表项目分别为：操作系统：Windows 2000 操作系统：Windows 98

C.没有任何显示

D.以上都不正确

*9.窗体中有两个检查框名称分别为check1和check2，一个命令按钮名称为command1，一个列表框名称为list1，两个单选按钮名称分别为option1和option2。如下程序：

Private Sub Command1_Click( )

If e = 1 Then

tem "品牌：松下"

tem "数量：3台"

End If

If e = 1 Then

If e = True Then

tem "操作系统：Windows 2000"

Else

tem "操作系统：Windows 98"

End If

End If

End Sub

当窗体启动后，先选中检查框check2(其中单选按钮option1被选中)，然后单击命令按钮command1，运行效果为(B)(单)

A.列表框List1中的列表项目分别为：品牌：松下数量：3台

B.列表框List1中的列表项目分别为：操作系统：Windows 2000 操作系统：Windows 98

C.列表框List1中的列表项目为：操作系统：Windows 2000

D.以上都不正确

53430.窗体中有两个检查框名称分别为check1和check2，一个命令按钮名称为command1，一个列表框名称为list1，两个单选按钮名称分别为option1和option2。如下程序：

Private Sub Command1_Click( )

If e = 1 Then

tem "品牌：松下"

tem "数量：3台"

End If

If e = 1 Then

If e = True Then

tem "操作系统：Windows 2000"

Else

tem "操作系统：Windows 98"

End If

End If

End Sub

当窗体启动后，先选中检查框check2(其中单选按钮option2被选中)，然后单击命令按钮command1，运行效果为(B)(单)

A.列表框List1中的列表项目分别为：品牌：松下数量：3台

B.列表框List1中的列表项目为：操作系统：Windows 98

C.列表框List1中的列表项目为：操作系统：Windows 2000

11 .传值：形参得到的是实参的值，形参值的改变不会影响实参的值。在定义形参前加关键字Byval。√

12.以下利用SUB关键字定义的子过程Rate，其调用格式不正确的是(B) (单)

Rate(12,56)

(12,56)

12,56

D.以上A和C正确

13.如下程序运行后显示结果为(B) (单)

Public Temp As integer

Sub Form_Load( )

Dim Temp As Integer

Temp=10

=20

Print ;"和";Temp

End Sub

A.10和20

B.20和10

C.10和10

D.20和20

14.以下对静态变量说法不正确的是(D) (单)

A.定义格式为：Static 变量名 [AS 类型]

B.在子过程名/函数名前加Static，表示该过程/函数体内局部变量全部都是静态变量

C.静态变量必须在过程体内定义

D.静态变量可以在窗体的"通用声明部"定义

15 .过程在自身定义的内部调用自己本身的结构称为递归。√

16.如下程序功能是求n的阶层：

Function fac(n As Integer) As Integer

If n = 1 Then

fac = 1

Else

fac = n * fac(n - 1)

End If

End Function

Sub Command1_Click( )

n=val(inputbox("请输入数值"))

Print "fac(n)=";fac(n)

End Sub

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

A.若fac函数中If n = 1 Then fac = 1没有，仅有语句：fac = n * fac(n - 1) ，程序运行将会出错

B.若输入的n<=0 ，程序运行将会出错

C.若n=4，则输出结果为：fac(n)=24

D.以上说法都不正确

17.利用递归求最大公约数的程序为：

Public Function gcd(m As Integer, n As Integer) As Integer

If (m Mod n) = 0 Then

gcd =【n】

Else

gcd = gcd(n, m Mod n)

End If

End Function

Private Sub Form_Click( )

Print gcd(10, 4)

End Sub

18 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√

Private Sub Check1_Click( )

Bold = Not Bold

End Sub

*19 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√

Private Sub Check1_Click( )

Italic = Not Italic

End Sub

*20 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√

Private Sub Check1_Click( )

Underline = Not Underline

End Sub