计算机二级VB考试题及答案

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

　　A.BOF

　　B.LOC

　　C.LOF

　　D.EOF

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

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

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

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

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

　　A.Combo1.RemoveItem Text

　　B.Combo1.RemoveItem 2

　　C.Combo1.RemoveItem 3

　　D.Combo1.RemoveItem Combo1.Listcount

　　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(Text1.Text )

　　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

　　Text2.Text = 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)

　　Text1.Text = 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