VB测验2题目及参考答案

一、单选题

1、用下面语句定义的数组的元素个数是______。

dim A(-3 to 5) as integer

A：6

B：7

C：8

D：9

答案：D

评析：

空

2、用下面的语句所定义的数组的元素个数是：______。

Dim arr(3 To 5,-2 to 2)

A：20

B：12

C：15

D：24

答案：C

评析：

空

3、用Dim(1,3 to 7,10)声明的是一个______维数组。

A：1

B：2

C：3

D：4

答案：C

评析：

空

4、以下说法错误的是______。

A：函数过程没有返回值

B：子过程没有返回值

C：函数过程可以带参数

D：子过程可以带参数

答案：A

评析：

函数和过程相比主要的特点在于必须返回一个函数值。过程侧重的是执行一系列的操作。

5、下列______语句可以为动态数组分配实际元素个数。

A：Dim语句

B：static语句

C：public语句

D：ReDim语句

答案：D

评析：

ReDim语句在过程级别中使用，用于为动态数组变量重新分配存储空间。

6、在VB中传递参数的方法有______方式。

A：一种

B：两种

C：三种

D：四种

答案：B

评析：

在VB中传递参数的方式有按值传递ByVal和按地址传递ByRef两种。

7、在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程：

Private Sub Command1_Click()

Dim b As Integer

b = b + 1

End Sub

运行程序，三次单击命令按钮后，变量b的值是：______。

A：0

B：1

C：2

D：3

答案：B

评析：

变量定义后，若没有人工定义初值，程序启动后，系统将自动把变量初值设为0。

8、为了清除列表框中的所有内容，应使用的方法是：______。

A：Cls

B：Clear

C：Remove

D：RemoveItem

答案：B

评析：

使用Clear方法清除列表框中所有内容。

9、在窗体上画一个命令按钮，然后编写如下程序：

Sub S1(ByVal x As Integer, ByVal y As Integer)

Dim t As Integer

t = x

x = y

y = t

End Sub

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 10

b = 30

S1 a, b

Print "a="; a; "b="; b

End Sub

程序运行后，单击命令按钮，输出结果是：______。

A：a= 30 b= 10

B：a= 30 b= 30

C：a= 10 b= 30

D：a= 10 b= 10

答案：C

评析：

空

10、下列程序段的执行结果为______。

Dim A(1 to 5)

For I = 1 To 5

A(I) = I * I

Next I

Print A(I - 1)

A： 5

B： 25

C： 0

D： 16

答案：B

评析：

数组、For--Next循环

解题思路：观察程序段，先定义一个有五个变量的数组，通过For循环体将数据下标的平方值赋给数组元素。即：A(I)=I*I

当For循环结束时，I的值为6（此处特别注意），所以A(I-1)即A(6-1)=A(5)=5*5=25。

11、设执行以下程序段时依次输入1、3、5，执行结果为______。

Dim a(1 to 4) As Integer, b(1 to 4) As Integer

For K = 0 To 2

a(K + 1) = Val(InputBox("请输入数据"))

b(3 - K) = a(K + 1)

Next K

Print b(K)

A： 1

B： 3

C： 5

D： 0

答案：A

评析：

数组、For--Next循环

跟踪程序段：

以K为循环变量的循环共执行3次

第一次：K=0,a(1)=Val("1")=1,b(3)=a(1)=1

第二次：K=1,a(2)=Val("3")=3,b(2)=a(2)=3

第三次：K=2,a(3)=Val("5")=5,b(1)=a(3)=5

循环结束，由于For--Next循环每次执行完循环体，循环变量都会等于本身的值加上步长值，所以此时K=3,打印b(3)的值，程序段最终输出的结果为：1。

12、设有如下程序：

Option Base 0

Private Sub Form_Click()

Dim a

Dim i As Integer

a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)

For i = 0 To 3

Print a(5 - i);

Next

End Sub

程序运行后，单击窗体，则在窗体上显示的是______。

A： 4 3 2 1

B： 5 4 3 2

C： 6 5 4 3

D： 7 6 5 4

答案：C

评析：

Option Base语句和数组的使用：

Option Base语句，在模块级别中使用，用来声明数组下标的缺省下界。缺省值为0。

用Array函数在给数组赋值，默认的数组下标从0开始，如果想使下标从1开始，则应执行：Option Base 1。 该题中，数组的下标从0开始，故A(5)=6，依次输出6 5 4 3。

13、在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：

Function Func(ByVal x As Integer, y As Integer)

y = x * y

If y > 0 Then

Func = x

Else

Func = y

End If

End Function

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 3

b = 4

c = Func(a, b)

Print "a="; a

Print "b="; b

Print "c="; c

End Sub

程序运行后，单 …… 此处隐藏：8409字，全部文档内容请下载后查看。喜欢就下载吧 ……