VB考试题库,二级习题(含答案)

VB考试一

1、能够获得一个文本框中被选取文本的内容的属性是______。

A：SelStart B：SelLength C：SelText D：Text

参考答案：C

2、在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应当使用的

语句为：______。

A： = False B：

C： D： = False

参考答案：D

3、对于语句 If x=1 Then y=1, 下列说法正确的是____。

A： x=1和y=1 均为赋值语句

B： x=1和y=1 均为关系表达式

C： x=1为赋值语句，y=1为关系表达式

D： x=1为关系表达式，y=1 为赋值语句

参考答案：D

4、以下变量名中，______是不符合Visual Basic的命名规范的。

A：_mnu_Open_234 B：Abc901 C：price_ D：K

参考答案：A

5、MsgBox 函数返回值的类型是__________。

A：数值或字符串 B：字符串 C：变体 D：整型数值

参考答案：D

6、VB一共有设计、运行和中断三种模式，要使用调试工具应该______。

A：进入中断模式 B：进入运行模式

C：进入设计模式 D：不用进入任何模式

参考答案：A

7、设a=6，则执行

x=IIF(a>5,-1,0) 后，x的值为______。

A：-1 B：6 C：0 D：5

参考答案：A

8、可以同时删除字符前导和尾部空白的函数是______。

A：Mid B：Rtrim C：Trim D：Ltrim

参考答案：C

9、以下语句的输出结果是______。

Print Format$("","000,")

A：32, B： C：032, D：32,

参考答案：C

10、设有如下声明：

Dim X As Integer

如果Sgn(X)的值为-1，则X的值是______。

A：等于0的整数 B：大于0的整数 C：整数 D：小于0的整数

参考答案：D

11、在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

For i = 1 To 4

x = 4

For j = 1 To 3

x = 3

For k = 1 To 2

x = x + 6

Next k

Next j

Next i

Print x

End Sub

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

参考答案： 15# 15 #15 #15

12、执行下面的程序段后，S的值为______。

s=5

For i= To Step

s=s+1

Next i

参考答案：9

13、下列表达式有错误,正确的写法应该是______。

[(a+b)+c]/80-5÷(d+e)

参考答案：(a+b+c)/80-5/(d+e)#（a+b+c）/80-5/（d+e）

14、表示x 是5的倍数或是9的倍数的逻辑表达式为__________

参考答案：x Mod 5 = 0 Or x Mod 9 = 0#x Mod 9 = 0 Or x Mod 5 = 0

15、以下程序的功能是:从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数

字的平均值，输出结果。请填空。

Private Sub Form_click()

Dim x, y As Single

Dim z As Integer

x = InputBox("Enter a score")

Do while x>=0

y = y + x

z = z + 1

x = InputBox("Enter a score")

Loop

If z = 0 Then

z = 1

End If

y = ______

Print y

End Sub

参考答案：y/z

VB考试二

1、列表框中的列表项的数目可以通过以下哪个属性的值获得______。

A：ListIndex B：ListCount C：Count D：Index

参考答案：B

2、在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干

城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确

实现上述功能的程序是______。

A：Private Sub List1_Click()

=

End Sub

B：Private Sub List1_Click()

=

End Sub

C：Private Sub List1_Click()

=

End Sub

D：Private Sub List1_Click()

=

End Sub

参考答案：A

3、在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。

A：Listindex B：Index C：List D：Tabindex

参考答案：A

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

A：Clear B：Remove C：RemoveItem D：Cls

参考答案：A

5、在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使

用的循环语句为______。

A：For i=1 To

……

NEXT

B：For i=0 To

……

NEXT

C：For i=0 To

……

NEXT

D：For i=1 To

……

NEXT

参考答案：C

6、设有如下程序：

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： 6 5 4 3 B： 5 4 3 2 C： 4 3 2 1 D： 7 6 5 4

参考答案：A

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

Dim a(4) As Integer, b(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： 0 B： 3 C： 5 D： 1

参考答案：D

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

Private Sub Command1_Click()

Dim i As Integer,j As Integer

Dim a(10,10) As Integer

For i=1 To 3

For j=1 To 3

a(i,j)=(i-1)*3+j

Print a(i,j);

Next j

Print

Next i

End Sub

程序运行后，单击命令按钮，窗体上显示的是______。

A： 1 2 3

4 5 6

7 8 9

B： 2 3 4

3 4 5

4 5 6

C： 1 4 7

2 5 8

3 6 9

D： 1 2 3

2 4 6

3 6 9

参考答案：A

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

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

A：24 B：12 C：15 D：20

参考答案：C

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

A：static语句 B：Dim语句 C：public语句 D：ReDim语句

参考答案：D

11、假定程序中有以下语句：

answer = MsgBox("String1",,"String2","String3",2)

执行该语句后，将显示一个信息框，此时如果单击"确定"按钮，则answer的值为：______。

A：String3 B：String2 C：String1 D：1

参考答案：D

12、设有语句

x=InputBox("输入数值","0","示例")

程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是______。

A：0是默认值

B：变量X的值是字符串"10"

C：在InputBox对话框标题栏中显示的是"示例"

D：变量X的值是数值10

参考答案：B

13、以下程序段运行的结果是：______。

Dim a(-1 To 5) As Boolean

Dim flag As Boolean

flag = False

Dim i As Integer

Dim j As Integer

Do Until flag = True

For i = -1 To 5

j = j + 1

If a(i) = False Then

a(i) = True

Exit For

End If

If i = 5 Then

flag = True

End If

Next

Loop

Print j

A：20 B：7 C：8 D：35

参考答案：D

14、设a=5，b=6，c=7，d=8，则执行下列语句后，x的值为：______。

x= IIF((a>b) And (c

A：300 B：20 C：30 D：10

参考答案：B

15、要将一个组合框设置为简单组合框（Simple Combo），则应将其Style属性设置为______。

A：0 B：1 C：3 D：2

参考答案：B

VB考试三

1、设组合框Combo1中有3个项目，则以下能删除最后一项的语句是______。

A：

B： 2

C： 3

D： Text

参考答案：B 题分：6

2、在窗体上画一个命令按钮，其名称为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

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

A：a= 3

b= 4

c= 12

B：a= 13

b= 12

c= 12

C：a= 3

b= 4

c= 3

D：a= 3

b= 12

c= 3

参考答案：D 题分：6

3、单击命令按钮时，下列程序代码的执行结果为______。

Public Sub Procl(n As Integer, ByVal m As Integer)

n = n Mod 10

m = m / 10

End Sub

Private Sub Command1_Click()

Dim x As Integer, y As Integer

x = 12: y = 34

Call Procl(x, y)

Print x; y

End Sub

A： 12 3 B： 2 3 C： 12 34 D： 2 34

参考答案：D 题分：6

4、以下关于函数过程的叙述中，正确的是______。

A：在函数过程中，过程的返回值可以有多个

B：函数过程形参的类型与函数返回值的类型没有关系

C：当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递

D：如果不指明函数过程参数的类型，则该参数没有数据类型

参考答案：B 题分：6

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

A：函数过程可以带参数 B：子过程没有返回值

C：函数过程没有返回值 D：子过程可以带参数

参考答案：C 题分：6

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

Private Sub Command1_Click()

Dim b As Integer

b = b + 1

End Sub

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

A：2 B：1 C：0 D：3

参考答案：B 题分：6

7、假定有以下函数过程：

Function Fun(S As String) As String

Dim s1 As String

For i = 1 To Len(S)

s1=UCase(Mid(S,i,1))+s1

Next i

Fun = s1

End Function

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim Str1 As String,Str2 As String

Str1 = InputBox("请输入一个字符串")

Str2= Fun(Str1)

Print Str2

End Sub

程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"则单击"确定"按钮后

在窗体上的输出结果为______。

A：GFEDCBA

B：ABCEDFG

C：gfedcba

D：abcdefg

参考答案：A 题分：6

8、Sub过程与Function过程最根本的区别是______。

A：两种过程参数的传递方式不同

B：Function过程可以有参数，Sub过程不可以

C：Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以

D：Sub过程的过程名不能返回值，而Function过程能通过过程名返回值

参考答案：D 题分：6

9、在代码中定义了一个子过程：

Sub P(a,b)

...

End Sub

下面______调用该过程的格式是正确的。

A：Call P

B：Call P 10,20

C：P(10,20)

D：Call P(10,20)

参考答案：D 题分：6

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

Private Sub Command1_Click()

Static X As Integer

Static Y As Integer

Cls

Y = 1

Y = Y + 5

X = 5 + X

Print X, Y

End Sub

程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为______。

A： 15 15

B： 15 6

C： 15 16

D： 5 6

参考答案：B 题分：6

11、设有以下循环结构

Do

循环体

Loop While<条件>

则以下叙述中错误的是______。

A：循环体中可以使用Exit Do语句

B："条件"可以是关系表达式、逻辑表达式或常数

C：若"条件"是一个为0的常数，则一次也不执行循环体

D：如果"条件"总是为True，则不停地执行循环体

参考答案：C 题分：6

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

事件过程：

Private Function fun(ByVal m As Integer)

If m Mod 2 = 0 Then

fun = 2

Else

fun = 1

End If

End Function

Private Sub Command1_Click()

Dim i As Integer, s As Integer

s = 0

For i = 1 To 5

s = s + fun(i)

Next

Print s

End Sub

程序运行后，单击命令按钮，在窗体上显示是______。

A：7 B：6 C：8 D：9

参考答案：A 题分：6

VB考试四

1、某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：

Private Sub Command1_Click()

Dim a(10) As Integer,max As Integer

For k=1 To 10

a(k)=InputBox("输入一个整数")

Next k

max=0

For k=1 To 10

If a(k)>max Then

max=a(k)

End If

Next k

Print max

End Sub

运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误

的，程序需要修改。下面的修改中可以得到正确运行结果的是______。

A：把max=a(k)改为a(k)=max

B：把If a(k)>max Then改为If a(k)

C：把第2个循环语句For k=1 To 10改为For k=2 To 10

D：把max=0改为max=a(10)

参考答案：D

2、设有语句：Open "d:" For Output As #1，以下叙述中错误的是______。

A：执行该语句后，就可以通过Print#语句向文件中写入信息

B：用该语句建立的文件的文件号为1

C：该语句打开d盘根目录下一个已存在的文件，之后就可以从文件中读取信息

D：若d盘根目录下无文件，则该语句创建此文件

参考答案：C

3、工程中有2个窗体，名称分别为Form1、Form2，Form1为启动窗体，该窗体上有命令按

钮Command1。要求程序运行后单击该命令按钮时显示Form2，则按钮Click事件过程应该

是______。

A：Private Sub Command1_Click()

End Sub

B：Private Sub Command1_Click()

End Sub

C：Private Sub Command1_Click()

Load Form2

End Sub

D：Private Sub Command1_Click()

End Sub

参考答案：D

4、在窗体上画一个名为Command1的命令按钮，然后编写如下代码：

Option Base 1

Private Sub Command1_Click()

Dim a

a=Array(1,2,3,4)

j=1

For i=4 To 1 Step -1

s=s+a(i)*j

j=j*10

Next i

Print s

End Sub

运行上面的程序，其输出结果是______。

A：12

B：1234

C：34

D：4321

参考答案：B

5、设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项

后单击Command1按钮，就删除选中的项，则正确的事件过程是______。

A：Private Sub Command1_Click()

End Sub

B：Private Sub Command1_Click()

End Sub

C：Private Sub Command1_Click()

End Sub

D：Private Sub Command1_Click()

End Sub

参考答案：C

6、窗体上有一个名称为Frame1的框架（如图），若要把框架上显示的"Frame1"改为汉字"

框架"，下面正确的语句是______。

A：="框架"

B：="框架"

C：="框架"

D：="框架"

参考答案：A

7、设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件，能

实现此功能的语句是______。

A：Call LoadPicture("")

B：=LoadPicture("")

C：LoadPicture("")

D：=""

参考答案：B

8、在窗体上画一个名称为Timer1的计时器控件，要求每隔秒发生一次计时器事件，则以下

正确的属性设置语句是______。

A：=50

B：=5

C：=

D：=500

参考答案：D

9、在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写

如下事件过程：

Private Sub Command1_Click()

="All Files(*.*)|*.*|Text Files" &_

"(*.txt)|*.txt|Executable Files(*.exe)|*.exe"

=3

MsgBox

End Sub

程序运行后，单击命令按钮，将显示一个"打开"对话框，此时在"文件类型"框中显示的是

______。

A：Text Files(*.txt)

B：AllFiles(*.*)

C：Executable Files(*.exe)

D：不确定

参考答案：C

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

Private Sub Command1_Click()

c = "ABCD"

For n = 1 To 4

Print ______

Next

End Sub

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

D

CD

BCD