VB习题册

目 录 基础篇

第一部分 常量、变量、表达式 .............................................................. 1 第二部分 控件和窗体设置 ...................................................................... 4 第三部分 顺序结构程序设计 ................................................................ 13 第四部分 选择结构程序设计 ................................................................ 16 第五部分 循环结构程序设计 ................................................................ 21 第六部分 数组 ........................................................................................ 32 第七部分 过程 ........................................................................................ 45 第八部分 文件 ........................................................................................ 61

提高篇

第一部分 常量、变量、表达式 .......................................................... 64 第二部分 控件和窗体设置 .................................................................. 65 第三部分 顺序结构程序设计 .............................................................. 75 第四部分 选择结构程序设计 .............................................................. 75 第五部分 循环结构程序设计 .............................................................. 78 第六部分 数组 ...................................................................................... 83 第七部分 过程和自定义函数 .............................................................. 87 第八部分 文 件 .............................................................................. 96

基础篇

第一部分 常量、变量、表达式

一、选择题

1.下面合法的常量是（ ）。

A.1/2 B.abcd C.1.2*5 D.False 2.下列（ ）是正确的VB常量。

A.D-6 B.E-6 C.5D D.5E-6

3.Integer类型的变量可存放的最大整数为( ) A. 255 B. 256 C. 32768 D.32767

4.下列( )是合法的变量名 A. abs B.-al C. “cdc” D.abe_10

5.下面表达式中，( )的值是整型（Integer或Long）。

A.36+4/2 B. 123+Fix(6.61) C. 57+5.5\\2.5 D. 356 & 21 6.表达式16/4-2^5*8/4 MOD 5\\2 的值为( )。 A.14 B.4 C.20 D.2 7.下列哪一个是日期型常量( )。 A.“2/1/99” B.2/1/99 C.#2/1/99# D.{2/1/99}

8. 计算表达式Cint(-3.5)*Fix(-3.81)+Int(-4.1)*(5 mod 3)，其值是（ ）。 A.2 B.1 C.-1 D.6

9.在下列4个表达式中，非法的表达式形式是（ ）。 A．A+B=C B．0=1 C．“ABC”+112 D．1/2=0.5

10.下列表达式中，能够正确计算的表达式有（ ）个。

①4096*2 ②Cint(5.6)*5461 ③6553*5+0.5*6 ④32768+12 A. 4 B. 3 C. 2 D. 1 11.表示“X>Y≥Z”，正确的VB逻辑表达式是（ ）。 A. X>Y and Y>=Z B. X>Y=>Z C. X>Y or Y≥Z D. X>Y and ≥z

12.表达式23/5.8、23\\5.8、23 mod 5.8的运算结果分别是（ ）。 A.3、3.9655、3 B.3.9655、3、5 C.4、4、5 D.3.9655、4、3 13．已知XB，则下列表达式中，结果为True的是（ ）。

A. Sgn(X-Y)+sgn(A-B)=-1 B. Sgn(X-Y)+sgn(A-B)=-2 C. Sgn(X-Y)+sgn(A-B)=2 D. Sgn(X-Y)+sgn(A-B)=0 14．下列各表达式能产生[1,3]随机整数的是（ ）。 A.Rnd()*3+1 B.Int(Rnd()*2)+1 C.Fix(Rnd()*3+1) D.Int(Rnd()*3)+1

15．圆心在原点上的两个同心圆，半径分别为2和4。描述点（x,y）在小圆外但在大圆内（包括在两个圆周上）的表达式为（ ）。

A． Abs(x) <=4.0 And Abs(y) >=2.0 B．2.0 <= Sqr(x*x+y*y) <=4.0 C． x*x+y*y <=16.0 And x*x+y*y >=4.0 D．(x Or y)>=2.0 And (x Or y) <=4.0

1

16．下列7个表达式中，表达式的值不是数值5或5.0的是（ ）。 ① Sqr(25)； ② 25 ^ 0.5； ③ 55 Mod 10； ④ 5.5 \\ 1.2； ⑤ 5 * 3 / 15 * 5； ⑥ Abs(5 - 10)； ⑦ (3 * 3 + 4 * 4) ^ (1 / 2)。 A．④ B．②⑥ C．①⑤⑦ D．③

x?e317．数学表达式sin27?对应的VB算术表达式为（ ）。

|x?y|?

A.sin(27)+sqr(x+exp3)/(x+y)

B.sin(27*3.14159/180)+ sqr(x+exp(3))/abs(x+y) C. sin(27*3.14159/180) +sqr(x+e^3)/ abs (x+y) D. sin(27*pi/180)+ sqr(x+exp(3))/abs(x+y)

18.下列的关系表达式中,运算结果为True的是（ ）。 A.CInt（1.5）=Int（1.5） B.Fix（1.5）=Int（1.5） C.Fix(-1.5）=CInt(-1.5） D.Fix(-1.5）=Int(-1.5）

19．函数Cint、Int、Fix都返回整数值，以下能正确地描述它的返回值大小关系的是（ ）。 A. Cint(-4.51)=Int(-4.51)

20．下列函数中，返回值是字符串的有（ ）。 A Chr B InStr C Val D Asc 21．下列函数中，返回值不是字符串的是（ ）。 A Trim B Left C Rnd D Hex 22．下面表达式的值是False的有（ ）。

A． \ B． InStr(\C． Str(2000)< \ D． UCase(\23．设s1和s2都是字符串型变量，s1=\，则下列表达式中结果为True的是（ ）。 A．Mid(s1,8,1)> s2

B． Len(s1)<>2*Instr(s1, \

C． Chr(66) & Right(s1,4) = \

D． Instr(Left(s1,6), \

24．下列表达式中，运算结果与函数mid(s, i, i)的返回值相同的是（ ）。 A. left(s,i) & right(s,len(s)-i) B.left(right(s,len(s)-i+1),i) C. left(right(s,i),len(s)-i+1) D.left(s,len(s)-i) & right(s,i)

25．可以把变长字符串S中的第一个“ABC”子串，替换成“1234”的语句是（ ）。 A.s=left(s,instr(s,“ABC”)) & “1234”& right(s,len(s)-instr(s,“ABC”)-2) B.mid(s,instr(s,“ABC”),3)=“1234” C. mid(s,instr(s,“ABC”),4)=“1234”

D. s=left(s,instr(s,“ABC”)-1) & “1234”& right(s,len(s)-instr(s,“ABC”)-2)

26．下列选项中，所包含的所有表达式能够将两位整数x的个位数与十位数对调（如将78转换为87）的是（ ）。

①val(right(x,1) & left(x,1))

②val(right(str(x),1)) & left (str(x),1)) ③ val(right(Cstr(x),1)) & left (Cstr(x),1)) ④val(mid(x,2,1)+ mid(x,1,1))

A. ①② B. ②③ C. ②④ D. ①③④

2

27.设 a=5，b=4，c=3，d=2，下列表达式的值是（ ）。 3>2*b Or a=c And b<>c Or c>d

A）1 B）True C）False D）2

28.设 a=\，则下列使变量 b 的值为“VisualBasic”的语句是（ ）。 A）b=Left(a,10) B）b=Mid(a,10) C）b=Right(a,10) D）b=Mid(a,11,10) 29.设 a=2，b=3，c=4，d=5，下列表达式的值是（ ）。 Not a<=c Or 4*c=b^2 And b<>a+c A）-1 B）1 C）True D）False

30.设 a=5，b=10，则执行 c=Int((b-a)*Rnd+a)+1 后，c 值的范围为（ ）。 A）5～10 B）6～9 C）6～10 D）5～9 31.有下列语句： Dim a,b As Integer c=\d=#7/20/2005#

下列关于这段代码的叙述中错误的是（ ）。

A）a 被定义为 Integer 类型变量 B）b 被定义为 Integer 类型变量 C）c 中的数据是字符串 D）d 中的数据是日期类型

32.下列能从字符串\中直接取出子字符串\的函数是（ ）。 A）Left B）Mid C）String D）Instr

33.设 a=4，b=3，c=2，d=1，下列表达式的值是（ ）。 a>b+1 Or c

A）True B）1 C）-1 D）0

34.下列可以作为 Visual Basic 变量名的是（ ）。 A）A#A B）counstA C）3A D）?AA

35.设 x=4，y=6，则下列不能在窗体上显示出“A=10”的语句是（ ）。 A）Print A=x+y B）Print\C）Print\）Print\36.设 a=2，b=3，c=4，下列表达式的值是（ ）。 Not a<=c Or 4*c=b^2 And b<>a+c

A）-1 B）1 C）True D）False 37.有下列用户定义类型： Type Student number As String name As String age As Integer End Type

则下列正确引用该类型成员的代码是（ ）。

A）Student.name=\李明\）Dim s As Student s.name=\李明\

C）Dim s As Type Student D）Dim s As Type s.name=\李明\李明\

38.设 a=5，b=6，c=7，d=8，执行下列语句后，x 的值为（ ）。 x=IIF((a>b) And (c>d),10,20)

A）10 B）20 C）True D）False 39.执行下列程序段后，变量 c$的值为（ ）。 a$=\

3

b$=\

c$=b$ & UCase(Mid$(a$,7,6))& Right$(a$,12)

A）Visual BASIC Programming B）Quick Basic Programming C）QUICK Basic Programming D）Quick BASIC Programming

二、填空题

1.设A=2，B=3，表达式A>B的值是 。 2.在VB中声明符号常量的关键字是 。 3.表达式 6.5*5 mod 28\\8 的值是 。

4．把逻辑值True赋给整型变量之后，此变量的值会变为 。 5．默认情况下，所有未经显式定义的变量均被视为 类型。 6.设a=3,b=2,c=1,运行print a>b>c的结果是 。 7.表达式“12345”<>“12345”&“ABC”的值是 。 8.声明定长为10个字符变量sstr的语句为 。 9.求x与y之积除以Z 的余数的VB表达式为 。

10.设single型变量xyz 的值为123.45，若要将其转换成字符串，应使用的类型转换函数是 。

11.若要在字符串asdgewl中取dge，则使用函数 实现。 12.下列语句的输出结果 。 Print Int(12345.6789*100+0.5)/100

13．下列语句的输出结果是 。

Print Format(Int(12345.6789*100+0.5)/100,\

14．描述“X 是小于 100 的非负整数”的 Visual Basic 表达式是 。

第二部分 控件和窗体设置

一、选择题

1.如果在窗体上有命令按钮OK，在代编辑窗口有与之对应的Cmdok_Click()事件，则命令按钮控件的名称属件和Caption属性分别为 ( )。

A.Ok、Cmd B.Cmd、Ok C.Cmdok、Ok D.Ok、Cmdok 2.窗体Form1的名称属性是frm，它的Load事件过程名是 ( )。 A.Form_Load B.Form1_Load C.frm_Load D.Me_Load 3. Visual Basic程序设计时常用的Print、Cls属于 ( )。

4

A.属性 B.对象 C.方法 D.事件

4.一个可执行的Visual Basic应用程序至少要包括一个 ( )。 A.标准模块 B.类模块 C.窗体模块 D.辅助模块

5.在Visual Basic中最基本的对象是 ( )，它是应用程序的基石 。 A.标签 B.窗体 C.文本框 D.命令按钮 6.用窗体的( )属性来设置窗体的标题。

A.Style B.Text C.Caption D.Name

7.若在一个应用程序窗体上，依次创建了CommandButton 、TextBox、Label等控件，则运行该程序显示窗体时， ( )会首先获得焦点。

A．窗体 B.CommandButton C.Label D.TextBox

8.在Visual Basic中最基本的对象是 ( )，它是应用程序的基石，也是其他控件的容器。 A.文本框 B.命令按钮 C.窗体 D.标签

9.应用程序窗体的名称属性为Frm1，窗体上有一个命令按钮，其名称属性为cmd1，窗体和命令按钮Click的事件过程名分别为 ( )。

A.Form_Click() Command1_Click() B.Frm1_Click() Command1_Click() C.Form_Click() Cmd1_Click() D.Frm1_Click() Cmd1_Click() 10.无法响应Click事件的控件是 ( )．

A.Label B.Timer C.TextBox D.DriveListBox

11.单选按钮(OptionButton)用于一组互斥的选取项中。若一个应用程序含多组互斥条件，可在不同的 ( )中安排适当的单选按钮，即可实现。

A.框架控件(Frame)或图像控件(Image) B.组合框(ComboBox)或图像控件(Image) C.组合框(ComboBox)或图片框图(PictureBox) D.框架控件(Frame)或图片框(PictureBox)

12.使用 ( )方法可将新的列表项添加到一个列表框中。 A.Print B.AddItem C.Clear D.RemoveItem

13.在程序中可以通过复选取框和单选按钮的 ( )属性值来判断它们的当前状态。 A.Caption B.Value C.Checked D.Selected

14.窗体上有多个控件，在Form_Activate( )事件过程中添加 ( )语句，就可确保每次运行程序时，都将光标定位在文本框Text1上。

A. Text1.Text=” ” B. Text1.SetFocus C. Form1.SetFocus D. Text1.Visible=True

15.窗体上有一个文本框控件Text1，假设已在三个整型变量a,b和c，且变量a的值为5，变量b

的值为7，变量c的值为12，以下的 ( )语句可以使文本框内显示的内容为： 5+7=12。

A．Text1.Text=a+b=c B.Text1.Text=”a+b=c”

C.Text1=a & ”+” & b & ”=” & c D.Text1=”a” & ”+” & ”b”& ”=”& ”c” 16.使用 ( )方法，可以将列表框List中的所有项删除掉。 A.List1.Text=”” B. AddItem C. RemoveItem D. Clear 17.以下语句中，不能正确执行的是 ( )。

A. If Option1.Value Then B. If Option1.Value=True Then C. Check1.Value=0 D. Check1.Value=True 18．以下有关数据控件的叙述中，错误的是 ( )。 A.利用数据控件可对已连接的数据库记录进行显示和修改 B.利用数据控件只能访问Access数据库

C.通过设置DatabaseName属性，可以与指定Access的数据库连接。 D.利用数据控件可增加或删除已连接的数据库中的记录。

5

19.在VB中可以作为容器的是 ( )。

A．Form、TextBox、PictureBox B、Form、PictureBox、Frame

C．Form、TextBox、Label D．PictureBox、TextBox、ListBox

20.VB中除窗体能显示图片外，下列列出的控件可以显示图片的有 ( )。 ① PictureBox ②Image ③ TextBox ④ CommandButton ⑤OptionButton ⑥ Label

A．①②③④ B．①②⑤⑥ C．①②④⑤ D．①②④⑤

21.第一次显示某窗体时，将引发一系列事件，正确的事件系列是 ( )。 A．Load、Initialize、Activate B．Initialize、Load、Activate C．Load、Activate 、Initialize D．Initialize、Activate 、Load 22.下列控件中，不能作为数据捆绑控件的是 ( )。 A．Label（标签） B．TextBox（文本框） C．OptionButton(单选按钮) D．ListBox（列表框）

23.窗体上放置了三个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行了语句Text3=Text1+Text2后，则在Text3中显示( )。

A．434 B．45678 C．溢出 D．语法错误 24.下列关于某对象SetFocus与Gotfocus的描述中,正确的是( )。

A．SetFocus是事件，Gotfocus是方法 B．SetFocus是方法，Gotfocus是事件 C．SetFocus和Gotfocus都是方法 D．SetFocus和Gotfocus都是事件 25.Print方法可以在( )上输出数据。 ① 窗体 ②文本框 ③ 图片框 ④ 标签 ⑤列表框 ⑥ 立即窗口

A．①③⑥ B．①③⑤ C．①②⑤ D．③④⑥ 26．下列控件中，不具有Change事件的控件有( )个。

①DriveListBox ②DirListBox ③FileListBox ④ListBox A.0 B.1 C.2 D.3

27．DrawStyle属性用于设置图形方法输出的线型，它受属性( )的限制。 A．FillStyle B．FillColor C．BorderStyle D．DrawWidth

28．单击滚动条两端的箭头时，滚动条 Value 属性值的改变量由( )属性值决定。 A. LargeChange B.Max C.SmallChange D.Min

29.下面所列的控件中，其值既能在程序设计时设定，又能在程序运行时通过赋值改变的是( )。 A.List1.ListCount B.Text1.Index C. Dir1.Path D.Label1.Visible 30.下面( )语句，可以将列表框List1中的当前选定的列表项的值替换成”ABC”. A.List1.AddItem “ABC” , List1.ListIndex B.List.Text=”ABC” C.List1.List(List1.ListIndex)=”ABC” D.前三项均可

31.在使用菜单编辑器创建菜单时，可在菜单名称中某字母前插入 ( )符号，那么在运行程序时按Alt键和该字母键就可打开该命令菜单。

A.下划线 B.& C.$ D.@

32.多窗体程序由多个窗体组成。在缺省情况下，VB在执行应用程序时，总是把 ( )指定为启动窗体。

A.不包含任何控件的窗体 B.设计时的第一个窗体 C.命名为的窗体 D.包含控件最多的窗体

33.在多窗体的应用程序中，当前窗模块的From_Click事件过程包含如下语句，单击该窗体,其中( )一定可以将Hello显示在当前窗体上。

A. Form1.Print “hello” B. Me.Print “hello”

6

C. Debug.Print “hello” D. Form.Print “hello”

34.有关由多个窗体和标准模块组成的应用程序设计方法的叙述中，错误的是 ( )。 A.在缺省情况下，设计时的第一个窗体被指定为启动窗体 B.通过人为设置，可指定任一窗体为启动窗体

C.通过人为设置，可指定标准模块中的Main()过程为启动过程。 D.通过人为设置，可指定窗体模块中的Main()过程为启动过程。

35.在窗体（名称为 Form1）上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则 把命令按钮的标题设置为“计算机等级考试”。下列能实现上述操作的事件过程是（ ）。 A）Private Sub Text1_Change( ) B）Private Sub Command1_Click( ) Command1.Caption=\计算机等级考试\计算机等级考试\End Sub End Sub

C）Private Sub Form1_Click( ) D）Private Sub Command1_Click( ) Text1.Caption=\计算机等级考试\计算机等级考试\End Sub End Sub

36.为了使命令按钮（名称为 Command1）右移 200，应使用的语句是（ ）。 A）Command1.Move-200 B）Command1.Move 200

C）Command1.Left=Command1.Left+200 D）Command1.Left=Command1.Left-200

37.在窗体上画一个文本框和一个计时器控件，名称分别为 Text1 和 Timer1，在属性窗口中把计时器的 Interval 属性设置为 1000、Enabled 属性设置为 False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。下列是实现上述操作的程序。 Private Sub Command1_Click( ) Timer1.__ End Sub

Private Sub Timer1_Timer( ) Text1.Text=Time End Sub

在___处应填入的内容是（ ）。

A）Enabled=True B）Enabled=False C）Visible=True D）Visible=False 38.在图片框 Picture1 中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是（ ）。

A）选择图片框，然后按 Del 键

B）执行语句 Picture1.Picture=LoadPicture(“ “) C）执行语句 Picture1.Picture=“ “

D）选择图片框，在属性窗口中选择 Picture 属性条，然后按回车键 39.在窗体上画一个名称为 List1 的列表框，一个名称为 Labe11 的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是（ ）。

A）Private Sub List1_Click( ) B）Private Sub List1_Click( ) Label1.Caption=List1.ListIndex Label1.Name=List1.ListIndex End Sub End Sub

C）Private Sub List1_Click( ) D）Private Sub List1_Click( ) Label1.Name=List1.Text Label1.Caption=List1.Text End Sub End Sub

40.在 Visual Basic 工程中，可以作为“启动对象”的程序是（ ）。

7

A）任何窗体或标准模块 B）任何窗体或过程

C）Sub Main 过程或其他任何模块 D）Sub Main 过程或任何窗体

41.把窗体的 KeyPreview 属性设置为 True，然后编写下列事件过程： Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch)) Print Chr(KeyAscii+2) End Sub

程序运行后，按键盘上的“A”键，则在窗体上显示的内容是（ ）。 A）A B）B C）C D）D

42.假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，下列正确的操作是（ ）。 A）只保存窗体模块文件

B）分别保存窗体模块、标准模块和工程文件 C）只保存窗体模块和标准模块文件 D）只保存工程文件

43.为了消除窗体上的一个控件，下列正确的操作是（ ）。 A）按回车键 B）按键

C）选择（单击）要清除的控件，然后按键 D）选择（单击）要清除的控件，然后按回车键 44.下列叙述中错误的是（ ）。

A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B）当程序运行时，双击一个窗体，则触发该窗体的 DblClick 事件 C）Visual Basic 应用程序只能以解释方式执行 D）事件可以由用户引发，也可以由系统引发

45.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写下列程序： Private Sub Form_Load( ) Show

Text1.Text=“ “ Text2.Text=“ “ Text1.SetFocus End Sub

Private Sub Text1_Change( ) Text2.Text=Mid(Text1.Text,8) End Sub

程序运行后，如果在文本框 Text1 中输入 BeijingChina，则在文本框 Text2 中显示的内容是（ ）。 A）BeijingChina B）China C）Beijing D）BeijingC

46.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写下列事件过程：

Private Sub Form_Load( ) List1.AddItem \List1.AddItem \

8

List1.AddItem \End Sub

Private Sub Command1_Click( )

List1.List(List1.Listcount)=\End Sub

程序运行后，单击命令按钮，其结果为（ ）。

A）把字符串\添加到列表框中，但位置不能确定

B）把字符串\添加到列表框的最后（即“Item 3”的后面） C）把列表框中原有的最后一项改为\

D）把字符串\插入到列表框的最前面（即“Item 1”的前面） 47.窗体上有一个名为 Text1 的文本框，并编写下列程序： Private Sub Form_Load( ) Show

Text1.Text=“ “ Text1.SetFocus End Sub

Private Sub Form_MouseUp(Button As Integer,Shift As Integer, X As single, Y As Single) Print\程序设计\End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print \End Sub

程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容 是（ ）。

A）Visual Basic B）程序设计 C）Visual Basic 程序设计 D）a 程序设计 48.有下表所列的菜单结构： 标题 名称 层次

显示 appear 1（主菜单） 大图标 bigicon 2（子菜单） 小图标 smallicon 3（子菜单）

要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“√”。下 列正确的事件过程是（ ）。

A）Private Sub bigicon_Click( ) B）Private Sub bigicon_Click( ) bigicon.Checked=False Me.appear.bigicon.Checked=True End Sub End Sub

C）Private Sub bigicon_Click( ) D）Private Sub bigicon_Click( ) bigicon.Checked=True appear.bigicon.Checked=True End Sub End Sub

49.通用对话框的名称为 CommonDialog1，命令按钮的名称为 Command1，则单击命令按钮后，能使打开的对话框的标题为“New Title”的事件过程是（ ）。 A）Private Sub Command1_Click( )

CommonDialog1.DialogTitle=\CommonDialog1.ShowPrinter End Sub

B）Private Sub Command1_Click( )

CommonDialog1.DialogTitle=\

9

本文来源：https://www.bwwdw.com/article/sjdg.html