VB习题集(1)(1)

一、单项选择题

1、以下说法错误的是_____C____。

A. Visual Basic是一种可视化编程工具 B. Visual Basic是结构化程序设计语言

C. Visual Basic是面向过程的编程语言 D. Visual Basic采用事件驱动编程机制

2、窗体和控件的描述及其属性的设置保存在_____B____文件中。

A. 工程 B. 窗体 C. 窗体二进制数据 D. 标准模块

3、假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确

的操作是____B_____。

A. 只保存窗体模块文件 B. 分别保存窗体模块、标准模块和工程文件

C. 只保存窗体模块和标准模块文件 D. 只保存工程文件

4、以下叙述中错误的是____C_____。

A．在Visual Basic的窗体中，一个命令按钮是一个对象

B．事件是能够被对象识别的状态变化或动作

C. 事件都是由用户的键盘操作或鼠标操作触发的

D. 不同的对象可以具有相同的方法

5、以下叙述中，错误的是____C_____。

A. 一个Visual Basic应用程序可以含有多个标准模块文件

B. 一个Visual Basic工程可以含有多个窗体文件

C. 标准模块文件可以属于某个指定的窗体文件 D. 标准模块文件的扩展名为.bas

6、Visual Basic的窗体设计器主要是用来____A_____。

A. 建立用户界面 B. 添加图形、图像、数据等控件

C. 编写程序源代码 D. 设计窗体的布局

7、Visual Basic是一种结构化高级程序设计语言，它采用的是_____C____驱动方式。

A.键盘 B.鼠标 C.事件 D.函数

8、Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是____A_____。

A.属性、事件、方法 B.控件、属性、事件

C.窗体、控件、过程 D.窗体、控件、模块

9、Visual Basic主要用于_____D____。

A.图像处理 B.文字处理 C.制作视频文件 D.开发应用程序

10、相对于传统编程语言，Visual Basic最突出的特点是____D_____。

A.可视化编程 B.面向对象的程序设计

C.结构化程序设计 D.事件驱动编程机制

11、对象属性设置可在____B_____中进行。

A.工具箱 B.属性窗口 C.工程资源管理器窗口 D.窗体设计窗口

12、将窗体文件移出工程后，该文件____C_____。

A.还存在于硬盘中 B.已从硬盘上删除 C.A和B都有可能 D.A和B都不可能

13、不论什么对象，都具有____C_____属性。

lor n

14、下面_____A____是合法的变量名。

A. X_yx B.123abc C. integer D. X-Y

15、为问题设计一个解决方案及具体解决步骤，属于_____B____过程。

A.问题分析 B.算法设计 C.问题实现 D.归纳分析

16、以下关于MsgBox的叙述中，错误的是_____C____。

A. MsgBox函数返回一个整数

B. 通过MsgBox函数可以设置信息框中图标和按钮的类型

C. MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量

D. MsgBox语句没有返回值

17、Inputbox( )函数的返回值类型是____B_____。

A.数值型 B.字符型 C.逻辑值 D.变体型

18、下面的运算符中，优先级最高的是____A_____。

19、以下____B___是算术运算符。

20、函数Int(Rnd*100)是在___C____范围内的整数？

A.[0,100] B.(1,100) C.[0,99] D.(1,99)

21、表达式Len("你好ABC52")的值是____C_____。

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

22、表达式5 mod 3+35*2的值是____D_____。

A.0 B.6 C.4 D.2

23、设a=2,b=3,c=4,d=5，表达式：a>b and c<=d or 2*a>c 的值是___B___。

A. True B. False C. -1 D.1

24、下列可作为Visual Basic变量名的是_____A____。

me B.A(A+B) C. 254D D. Print

25、VB中运算符的优先顺序是____A_____。

A. 算术运算符>字符串运算符>关系运算符>逻辑运算符

B. 算术运算符>关系运算符>字符串运算符>逻辑运算符

C. 算术运算符>逻辑运算符>关系运算符>字符串运算符

D. 算术运算符>关系运算符>逻辑运算符>字符串运算符

26、表达式sgn(10 mod 6)& 20的值是____C_____。

A. 1 B. 20 C. 120 D.21

27、下列可以作为Visual Basic变量名的是____C_____。

A. Mod B. Cls C. counstA D. 2013-5-5

28、符号％是声明____B_____类型变量的类型定义符。

A. Single B. Integer C. string D. Variant

29、表达式Int(-17.4)+sgn(17.4)的值是___B_。

A. -18 B. -17 C. -16 D. 0

30、设x=4,y=8,z=7,表达式“xz)or z

A. -1 B.1 C. FALSE D. TRUE

31、以下关系表达中，其值为False的是_____D____。

A."The"<>"they" B."ABC"<"AbC"

C."VISUAL"=Ucase("Visual") D."Integer"="Int"

32、当x=0时，函数iif(x>0,1,iif(x<0,-1,0))的返回值是____A_____。

A.0 B.1 C.-1 D.出错

33、在一行内写多条语句时，每个语句之间用_____C____来分隔。

A.， B.； C.： D.、

34、Print方法分区输出时，用_____B____分隔多个表达式。

A.空格 B.逗号 C.冒号 D.分号

35、下列叙述错误的是_____A____。

A.不允许使用行号与标号 B.单条语句可分行书写

C.同一行上可以书写多条语句 代码不区分字母的大小写

36、由“For i=1 To 16 Step 3”决定的循环结构被执行____C_____次。

A. 4 B. 5 C. 6 D. 7

37、下面程序段运行后，显示的结果是（A）。

Dim x as integer

if x then print x else print x+1

A. 1 B. 0 C. -1 D. 显示出错信息

38、下面程序段求两个数中的大数，____D_____不正确。

A. Max=iif(x>y,x,y) B. if x>y then max=x else max=y

C. max=x

if y>=x then max=y

D. if y>=x then max=y

max=x

39、设有以下循环结构

A.若“条件”是一个为0的常数，则一次也不执行循环体

B.“条件”可以是关系表达式、逻辑表达式或常数

C.循环体中可以使用Exit Do语句

D.如果“条件”总是为True，则不停地执行循环体

Do

循环体

Loop While<条件>

则以上叙述中错误的是_____A____。

40、下列关于Do…Loop循环结构执行循环次数的描述正确的是_____D____。

A. Do While…Loop循环和Do…Loop Until循环至少都执行一次

B. Do While…Loop循环和Do…Loop Until循环可能都不执行

C. Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行

D. Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次

41、

以下Case语句中错误的是____C_____。

A. Case 0 to 10 B. Case Is>10

C. Case Is>10 and Is<50 D. Case 3,5, Is>10

42、

为了给x,y,z这3个变量赋初值2，下面正确的是____A_____。

A. x=2:y=2:z=2 B. x=2；y=2；z=2

C. x=2，y=2，z=2 D. x=y=z=2

43、Print方法可以在_____B____对象上输出数据。

A. 桌面 B. 窗体 C. 状态栏 D. 标题栏

44、下列描述不正确的是_____D____。

A. 某个子过程中声明的局部变量，其使用范围仅限定于该子过程内

B. 某个子过程中声明的局部变量，其生命周期仅限于该子过程被执行的过 程中

C. 不同子过程中的局部变量可以具有相同的名称

D．不同子过程中具有相同的名称的局部变量是同一变量

45、以下关于函数过程的叙述中错误的是____D_____。

A. 函数过程一定有返回值 B. 函数过程一定有参数

C. 函数过程可以在窗体模块和标准模块中定义

D. 函数过程参数的类型与返回值的类型无关

46、有一子程序定义为Public Sub aaa(a As Integer,b As Single)，正确的调用形式是____C_____。

A．Call aaa 1,1.2 B． Call sub(1,1.2)

C．aaa 1,1.2 D. sub 1,1.2

47、用下面的语句所定义的数组的元素个数是____A_____。

Dim b(-2 to 5,3 to 5)

A. 24 B. 25 C. 11 D. 21

48、

根据需要用____A___可以重新确定动态数组的大小。

49、用Redim不可以改变动态数组的____B_____。

A. 大小 B. 类型 C. 维数 D. 下标值

50、在过程定义中用____D_____表示形参的按值传递。

B. ByRef C. ByValue D. ByVal

51、下面数组声明语句中，数组包含元素个数为 ___D_____。

Dim a(-3 to 2,5）

A.120 B.30 C.60 D.36

52、有如下程序代码，输出结果是____A____。

Dim a()

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

for i=Lbound(a）to Ubound(a)

print a(i);

next i

A. 1 2 3 4 5 B. 0 1 2 3 4 C. 5 4 3 2 1 D. 4 3 2 1 0

53、假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是____B____。

A. 数组中每个命令按钮的名称(名称属性)均为Command1

B. 数组中每个命令按钮的标题(Caption属性)都一样

C. 数组中所有命令按钮可以使用同一个事件过程

D. 用名称Command1(下标)可以访问数组中的每个命令按钮

54、在设定Option Base 1后，经Dim arr(3,4）As Integer 定义的数组arr含有的元素个数为____A___。

A.12 B.20 C.19 D.9

55、有如下程序代码，输出结果是____C____。

Dim a(-3 to 6,5)

n=Ubound(a,1)

print n

A. -3 B.0 C.6 D.5

56、窗体能响应的事件是____B_____。

A. ActiveForm B. Load C. Drive D. Change

57、设置标签的_____C____属性，可改变其文字对齐方式。

A. Justify B. Visible C. Alignment D. 以上都不是

58、可以控制连续发生的、有规律的事件的控件是____C_____。

A. 组合框 B. 列表框 C. 进度条 D. 时钟控件

59、下列_____D____不属于组合框的风格。

A. 下列式组合框 B. 简单组合框 C. 下列式列表框 D. 简单列表框

60、假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为

____A_____。

A. d=False B. d=True

C. e=True D. e=False

61、当运行程序时，系统自动执行启动窗体的某个事件过程，这个事件过程是____A_____。

A. Load B. Click C. Unload D. GotFocus

62、复选框的Value 属性为 1时，表示____B_____。

A. 复选框未被选中 B. 复选框被选中

C. 复选框呈灰色不可用 D. 复选框操作有误

63、以下叙述中正确的是_____A____。

A. 窗体及窗体上所有控件的事件过程代码都保存在窗体文件中

B. 在工程中只有启动窗体可以建立菜单

C. 窗体名称必须与窗体文件的名称相同

D. 程序一定是从某个窗体开始执行的

64、要改变Label控件中文字的颜色，可以设置Label控件的___C_____属性。

A． FontColor B. FillColor C. ForeColor D. BackColor

65、滚动条控件取值范围最大值的属性是____A_____。

A. MaxChange B. LargeChange C. Value -Min

66、要获知当前列表项的数目，可通过____B____属性实现。

unt dex

67、可以通过修改控件数组中的控件的____C____属性值改变其在数组中的顺序。

n

68、用来设置斜体字的属性是 ___B_____。

A. FontBold B. FontItalic C. FontName D. FontSize

69、

复选框的Value 属性为 2时，表示 ____C____。

A.复选框未被选中 B.复选框被选中

C.复选框呈灰色不可用 D.复选框操作有误

70、

下列控件中没有Caption属性的是 ____B____。

A.框架 B.列表框 C.复选框 D.单选按钮

71、滚动条产生Change事件是因为 ____B____值改变了。

hange hange

72、如果要每隔15s产生一个Timer事件，则Interval属性应设置为___D_____。

A.15 B.900 C.150 D.15000

73、列表框的 ____C____属性是数组。

和 ListIndex 和 ListCount

和 Selected 和 Sorted

74、以下不允许用户在程序运行时输入文字的控件是____D____。

A.文本框 B.下拉式组合框 C.简单组合框 D.下拉式列表框

75、____A____不是VB控件。

A. 窗体 B. 定时器 C. 单选框 D. 复选框

76、要将窗体从内存中卸载出去，其实现的方法是____D____。

A. Show B. Hide C. Load D. UnLoad

77、要使按钮上能放置图片需要修改按钮的___D_____属性。

A. MaskColor B. BackColor C. Visible D. Style

78、能清除文本框Text1中内容的语句是____B____。

A. Text="" B. =""

C. D.

79、设置标签Label1不可见的语句是___D_____。

A. e==0 B. e==1

C. e=True D. e=False

80、设置Line控件的____A____属性可使其呈现不同线型。

A. BorderStyle B. Style C. FillStyle D. Shape

81、要使文本框的滚动条ScrollBars属性有效，首先要将____A____属性设置为True.

ine e gth

82、设置Image控件的____C____可使框内的图片按图像框大小自动调整。

ze属性为True ze属性为False

h属性为True h属性为False

83、命令按钮、单选按钮、复选框上都有Picture属性，可以在控件上显示图片，但需要通

过____B____来控制。

A. Appearance属性 属性 ePicture属性 cture属性

84、如果要在菜单中添加一个分隔线，则应将其Caption属性设置为____D_____。

A．= B．* C. & D．

-

85、下列不能打开菜单编辑器的操作是____D_____。

A. 按Ctrl+E键 B. 单击工具栏中的“菜单编辑器”按钮

C. 执行“工具”菜单中的“菜单编辑器”命令

D．按Shift+Alt+M键

二、判断题

1、 方法是预先定义好的、能够被对象识别的动作。（ 错 ）

2、 工程资源管理器管理文件主要有6类，即窗体文件（.frm）、标准模块文件（.bas）、类模块文件（.cls）、

工程文件（.vbp）、工程组文件（vbg）和资源文件（.res）。（ 对 ）

3、 所有属性都可以在属性窗口设置。（ 错 ）

4、 在Visual Basic设计界面中,工程窗口是不能隐藏的窗口。（ 错 ）

5、 在语句中If x=1 Then y=1中，x=1为关系表达式，y=1为赋值语句。（ 对 ）

6、 若要退出for循环，可使用Exit语句。（ 错 ）

7、 在For……Next循环中，其中step步长可以是正数、负数或者零。（ 错 ）

8、 文本框中显示的内容可根据文本框的大小自动换行。（ 错 ）

9、 Dim a1,a2 as integer 语句声明变量a1和a2都为整型变量。（ 错 ）

10、 VB中的变量必须先声明才可使用。（ 错 ）

11、 在VB的工具箱中包括了所有的VB控件，我们不能再加载其他的控件。（ 错 ）

12、 所有的控件在程序运行以后都是可见的。（ 错 ）

13、 VB中有两种常量：直接常量和符号常量；两者的区别在于后者在程序运行过程中可以根据程序执行的

要求改变该常量的值。（ 错 ）

14、 在同一过程中声明数组时，数组名可以与变量名相同。（ 错 ）

15、 PictureBox控件不是“容器”控件。（ 错 ）

16、 菜单编辑器中的快捷键是指无须打开菜单就可以直接由键盘输入选择菜单项的键。（ 对 ）

17、 在一个语句内写多条语句时，每个语句之间用：符号分隔。 （ 对 ）

18、 若要取消窗体的最大化功能，可设置MaxButton属性为False来实现。（ 对 ）

19、 面向对象程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。（ 对 ）

20、 窗体模块和标准模块都是只由代码组成。（ 错 ）

21、 用户定义类型中的元素可以是任何数据类型，如变长字符串型，整型等。（ 对 ）

22、 赋值语句的功能是计算表达式值并转换为相同类型数据后为变量或控件属性赋值。（ 对 ）

23、 Do While……Loop循环至少执行一次，Do ……Loop Until循环可能不执行。（ 错 ）

24、 if 6>5 then x=5 endif是一条合法语句。（ 错 ）

25、 给三个变体型变量x、y、z,分别对三个变量赋值：x=1、y=1、z=x=y，那么变量z的值也是1（ 对 ）

26、 逻辑型数据只有两个值：0和1。 （ 错 ）

27、 InputBox函数返回值的类型是数值或字符串。（ 错 ）

28、 在VB中，运算 "Then" > "Than" 的结果是True。（ 对 ）

29、 在VB中，运算 "ABCDE123A" Like "A*A" 的结果是True。（ 对 ）

30、 通用过程中使用Static关键字定义的过程级变量都是静态变量。（ 对 ）

31、 由Array函数建立的数组必须是Variant类型。（ 对 ）

32、 文本框和标签控件有许多共同特点，它们都能显示和输入文本。（ 错 ）

33、 菜单一旦建成后，所有的菜单项均可识别Click事件。（ 错 ）

34、 可以同时删除字符串前导和尾部空白的函数是Trim。（ 对 ）

35、 一条赋值语句只能给一个变量赋值，不能给多个变量赋值。（ 对 ）

36、 递归结构属于3种控制结构之一。（ 错 ）

37、 VB中给对象的属性赋值可以通过赋值语句实现。（ 对 ）

38、 在Select Case语句中，关键字Case后面的取值格式有3种。（ 对 ）

39、 一个工程只能有一个窗体。（ 错 ）

40、注释语句作为一个独立行，可放在过程、模块的开头作为标题，也可以放在执行语句的后面。（ 对

三、填空题

1、 窗体上有一个命令按钮Command1，编写如下事件过程：

Private Sub Command1_Click()

x = InputBox("x=")

y = InputBox("y=")

Print x + y

End Sub

运行后，单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是

（ 123321 ）。

2、 语句 "10" & 20的输出结果为：（ 1020 ）。

）

3、 执行下面程序，输出结果是（ 2 ）。

Private Sub Command1_Click()

Dim aa As Variant

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

Print aa(1)

End Sub

4、 控件数组中以（ index ）属性来区分各个元素。

5、 程序运行时单击第三个命令按扭，Label1的背景色是蓝色，请将下面代码补充完整。

Private Sub Command1_Click(Index As Integer)

Select Case Index

Case 0

lor= VbRed

Case 1

lor= VbGreen

Case 2

lor=（ Vbblue ）

End Select

End Sub

6、 执行下面程序，输出结果是n=（ 3 ），j=（ 42 ）。

Dim j as integer,n as integer

j=1：n=0

Do While n<3

j=j * (j+1)

n=n+1

Loop

Print n; j

7、执行以下程序段后，x和a的值分别为： （ 20 ） 、（ 10 ）。

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 10: b = 10

Call mysub(a, b)

Print a

End Sub

Private Sub mysub(ByVal x As Integer, ByRef y As Integer)

x = x * 2

y = y 2

Print x

End Sub

8、下面这段程序执行后是求1~99的平方的和，请将下面代码补充完整。

Private Sub Command1_Click()

Dim x As Integer

Dim sum As Double

x = 1

Do While x <= （ 99 ）

sum = （ sum ） +x*x

x = （ x+1 ）

Loop

Print sum

End Sub

9、下面程序段执行后，共执行了____3_____次循环体，输出i的值是_____4_____。

For i＝1 To 3

y＝i

Next i

Print i

10、下面这段程序执行后是求6的阶乘(6!)，请将下面程序补充完整。

f＝（ 1 ）

For i＝1 To 6

f＝（ f ） * （ i ）

Next i

Print "f＝";f

11、设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1，要使每次单击滚动条两

端箭头时，或单击滚动条滑块与两端箭头之间的空白区域时，标签内容能够反映滚动条的

值，请将下面代码补充完整。

Private Sub Hscroll1.（ _Change（） ）

n = Hscroll1.（ Value ）

End Sub

12、执行以下的循环后，i和m的值分别为： （ 4 ） 、（ 10 ）

m=0

for i=1 to 3

for j=1 to i

m=m+j

next j

next i

13、执行下面程序段后，x的值为：（ 24

n=5:x=1:i=1

Do

x=x*i

i=i+1

Loop While i

14、执行下面程序段，输出结果是（ 30

a=1:b=2

Select Case a+b

Case 1

c=10

Case 2

c=20

Case 3

c=30

End Select

Print c

15、x = 3 : y = 5 : z = 9

x = x + y

y = x - y

）

）。

If x - y > z - x Then z = x + y

If x + y > z - y Then x = z + y

Print x, y, z

以上程序段的执行结果分别是（ 14 ）、（ 3 ）、（ 11 ）

16、Private Sub Command1_Click()

Dim a, b

a = 10

b = 20

Call mult((a), b)

Print a, b

End Sub

Sub mult(ByRef x As Variant, y As Variant)

x = x * 2

y = y * 3

End Sub

以上程序的执行结果分别为（ 10 ）、（ 60 ）。

17、有下列程序段：

Dim a,b,c

a=1:b=2:c=3

a=b=c

print a

程序运行后，输出的结果是（ False ）。

18、执行下列程序段后，其中“n=n+1”语句被执行的次数是 ( 3 )

Dim m%,n%

For m=1 to 3

For n=1 to 6 step 2

n=n+1

print n

next n

next m

19、执行下面程序段后，输出结果为：( 3 )

。

x=3:y=1

If x>1 then y=y+1

If x>2 then y=y+1

If x>3 then y=y+1

Print y

20、Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 6

b = 7

Call say(a, b)

Print a, b

End Sub

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

Dim a As Integer

a = 2 * x + y

x = a + 1

y = x + 10

End Sub

以上程序的执行结果分别是( 20 )、( 7 )。

21、Dim x As Single, y As Single

Private Sub Command1_Click()

x = x + 1

Call test2

End Sub

Private Sub test2()

Dim x As Single

x = x + 20

Print x

End Sub

以上程序的执行结果是( 20 )。

22、下面的程序运行时，若连续单击3次窗体，变量x和y的结果分别是：（、（ 1 。 3 )）

Private Sub Form_click()

Static x as Integer

Dim y as Integer

y=x*y+1

x=x+y

End sub

23、有如下程序代码

Dim a() as string

a=split("武#夷#学#院","#")

print a(2)

以上程序的执行结果是( 学 )

24、有如下程序代码

Private Sub Command1_Click()

Dim A(2 To 7) As Integer

Dim i As Integer

For i = 2 To 7

A(i) = i

Next i

print A(i - 2)

End Sub

以上程序的执行结果是( 6 )。

25、以下程序的执行结果分别为（ 13

Private Sub Command1_Click()

Dim a(4) as Integer

a(0)=3

For i=1 to 4

a(i)= a(i-1)+i

Next i

Print a(4)

End Sub

。

）。