VB练习题题库资料

自测题1.......................................1

自测题2.......................................3

自测题3.......................................6

自测题4.......................................9

自测题5......................................13

自测题6......................................19

练习题7......................................22

自测题8......................................59

自测题10.....................................77

自测题11.....................................83

自测题12.....................................86

自测题1

一、选择题

1.从功能上讲，VB6.0有三种版本，下列不属于这三种

版本的是（）

A.学习版B.标准版C.专业版D.企业版

2.在正确安装VB6.0后，可以通过多种方式启动VB,以

下方式中不能启动VB的是（）

A.通过“开始”菜单中的“程序”命令

B.通过“我的电脑”找到vb6.exe,双击该文件名

C.通过“开始”菜单中的“运行”命令

D.进入DOS方式，执行vb6.exe文件

3•为了用键盘打开菜单和执行菜单命令，第一步应按的

键是（）

A.功能键F10或AltB.Shift+功能键F4

C.Alt或功能键F8D.Ctrl+Alt

4.VB6.0集成环境的主窗口不包括()

A.标题栏B.菜单栏C.状态栏D.工具栏

5.用标准工具栏中的工具按钮不能执行的操作是()

A.添加工程B.打印源程序C.运行程序D.打开工程

6.VB窗体设计器的主要功能是()

A.建立用户界面B.编写源程序代码C.画图D.显示文字

7.以下叙述中正确的是()

A.用属性窗口只能设置窗体的属性

B.用属性窗口只能设置控件的属性

C.用属性窗口可以设置窗体和控件的属性

D.用属性窗口可以设置对象的属性

二、填空题

1.VB6.0分为三种版本，这三种版本是___、____和

2.可以通过多种方式启动VB,其中的两种方式是—

和O

3.可以通过—菜单中的命令退出VBo

4.退出VB的快捷键是o

5.VB6.0的菜单栏共有个主菜单项。

6.快捷键Ctrl+0的功能相当于执行—菜单中的—

命令；或者相当于单击工具栏上的—按钮。

7.如果打开了不需要的菜单或对话框，可以用—键关

闭。

8.工程文件的扩展名是—,窗体文件的扩展名是

____O

9.属性窗口大体上可以分为4个部分，这4个部分分别

是、____、____和____O

Zo.v"的王真栏者而种形式，分别为—形式和—

形式。

答案1

一、选择题

1.B2.D3.A4.C5.B6.A7.C

二、填空题

1.学习版专业版企业版

2.共有以下4种方式：

用“开始”菜单中的“程序”命令

通过“我的电脑”或在资源管理器中双击vb6.exe

使用“开始”菜单中的“运行”命令

建立快捷方式（填其中的任何两种方式）

3.文件退出

4.Alt+Q

5.13

6.文件打开工程打开工程

7.Esc

8..vbp.frm

9.对象框属性显示方式属性列表属性解释

10.固定浮动

自测题2

一、选择题

L下列叙述中正确的是（）

A.只有窗体才是VB中的对象

B.只有控件才是VB中的对象

C.窗体和控件都是VB中的对象

D.窗体和控件不是VB中的对象

2.下列可以激活属性窗口的操作是（）

A.用鼠标双击窗体的任何部位

B.执行“工程”菜单中的“工具箱”命令

C.按Ctrl+F4键

D.按F4键

3.下列不能打开工具箱窗口的操作是0

3.一个控件在窗体上的位置由和属性决定，其大小由

和属性决定。

4.可以通过多种方式激活属性窗口，这些方式

是、、

5.为了选择多个控件，可以按住键，然后单

击每个控件。

三、编程题

L在窗体上画一个命令按钮，然后通过属性窗口设置下列属

性：

Caption这是命令按钮

Font宋体粗体三号

VisibleFalse

Style1-Graphical

2.在窗体的左上部画两个命令按钮和两个文本框，然后选择

这4个控件，并把它们移到窗体的右下部。

3.在窗体的任意位置画一个文本框，然后在属性窗口中设置

下列属性：

Left1600

Top2400

Height1000

Width2000

答案2

一、选择题

1.C2.D3.B4.A5.B6.D7.B

8.A

二、填空题

1.Textl.Text=，，Hello!，/或Text="Hello!〃

2.内部控件（或标准控件）ActiveX控件可插入对

象

3.TopLeftWidthHeight

4.用鼠标单击属性窗口的任何部位

执行“视图”菜单中的“属性窗口”命令

按F4键

单击工具栏上的“属性窗口”按钮

按Ctrl+PgDn或Ctrl+PgUp

5.Shift或Ctrl

三、编程题(略)

自测题3

LVB程序中分隔语句的字符是()

A.'B.:C.\D._

2.VB程序中的注释语句行的续行符是()

A.，B.:C.\D._

3.VB程序中的注释所使用的字符是0

A.，B.:C.\D.

4.假定窗体的名称(Name属性)为Fermi,则把窗体的标题设

置为“VBText”的语句为()

A.Forml="VBText"B.Caption="VBText”

C.Forml.Text="VBText"D.Forml.Name=“VBText”

5.下列不能打开代码窗口的操作是()

A.双击窗体上的某个控件B.双击窗体

C.按F7键D.单击窗体或控件

6.下列说法中正确的是()

为了保存一个VB应用程序，应当

A.只保存窗体模块文件(.frm)

B.只保存工程文件(.vbp)

C.分别保存工程文件和标准模块文件(.bas)

-6-

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

7.下列说法中正确的是()

为了装入一个VB应用程序，应当

A.只装入窗体模块文件(.frm)

B.只装入工程文件(.vbp)

C.分别装入工程文件和标准模块文件(.bas)

D.分别装入工程文件、窗体文件和标准模块文件

8.为了使窗体的大小可以改变，必须把它的BorderStyle属

性设置为()

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

二.填空题

1.在窗体上画两个文本框和一个命令按钮,然后在代码窗口

中编写如下事件过程：

PriateSubCommand1Click()

Textl.Text=，，VBProgramming/z

Text2.Text=Textl.Text

Textl.Text二〃ABCD〃

EndSub

程序运行后,单击命令按钮，两个文本框显示的内容分别为—

和.

2.在用VB开发应用程序EI寸,一般需要、

和三步。

3.控件和窗体的Name属性只能通过设置，不能在

期间设置。

4.代码窗口分为左右两栏，左边一栏称为,右边

一栏称为o

5.为了在输入程序时能自动进行语法检查，必须执行菜单中

的命令，打开对话框，然后选择“编辑

器”选项卡中的选项。

6.在保存VB应用程序时，窗体模块和工程文件的扩展名分

别为和O

7.为了把一个VB应用程序装入内存，只要装入文

件即可。

8.VB应用程序通常由三类模块组成，即、

和O

三、编程题

在窗体上画一个文本框和两个命令按钮，并把两个命令

按钮的标题分别设置为“隐藏文本框”和“显示文本框”。

当单击第一个命令按钮时，文本框消失；而当单击第二个命

令按钮时，文本框重新出现，并在文本框中显示“VB程序设

计”(字体大小为16)。运行该程序。

答案3

一、选择题

1.B2.D3.A4.B5.D6.D7,D

8.B

二、填空题

1.ABCDVBProgramming

2.建立可视用户界面设置对象属性编写代码

3.属性窗口运行

4.对象框过程框或对象框过程/事件框

5.工具选项选项自动语法检查

6..frm.vbp

7.工程

8.窗体模块标准模块类模块

三、编程题

编写代码如下：

PrivateSubCommandlClick()

Textl.Visible=False

EndSub

PrivateSubCommand2Click()

-8-

Textl.FontSize=16

Textl.Visible=True

Textl.Text二〃VB程序设计〃

EndSub

自测题4

一、选择题

1.下列可作为VB的变量名的是

A.3*DletaB.PrintCharC.AbsD.ABn

2.下列可作为VB的变量名的是

A.FilenameB.A(A+B)C.A%DD.Print

3.下列可作为VB中所允许的形式的数是

A.±25.74B.3.457E-100C..368D.

1.87E+50

4.下列可作为VB中所允许的形式的数是

A.10^(1.256)B.D32C.2.5ED.12E3

5.下面的数写成普通的十进制数是

2.65358979335278D-006

A.0.0000265358979335278653B.

0.00000265358979335278

C.0.000265358979335278653D.

0.000000265358979335278

6.下面的数写成普通的十进制数是

1.21576654590569D+019

A.12157665459056900B.

121576654590569000

C.1215766545905690000D.

12157665459056900000

7.下面的数写成普通的十进制数是

8.6787E+8

A.86787000B.867870000

C.8678700D.8678700000

8.下面的数写成普通的十进制数是

2.56E-12

A.0.000000000002567B.0.0000000002567

C.0.000000002567D.

0.00000000002567

9.设a=2,b=3,c=4,d=5,下列表达式的值是

a>bANDc<=dOR2*a>c

A.TrueB.FalseC.-1D.1

10.设a=2,b=3,c=4,d=5,下列表达式的值是

3〉2*bORa=cANDbOcORc>d

A.1B.TrueC.FalseD.-1

11.设a=2,b=3,c=4,d=5,下列表达式的值是

NOTa<=cOR4M=b'2ANDb<>a+c

A.-1B.1C.TrueD.False

二、填空题

1.下列VB表达式有错误，其正确的形式是o

CONTT.DE+COS(28°)

2.下列VB表达式有错误，其正确的形式是o

-3/8+8.INT24.8

3.下列VB表达式有错误，其正确的形式是o

(8+6)-(49—2+sin(2*n)

4,下列VB表达式有错误，其正确的形式是o

[(x+y)+z]X80-5(C+D)

-10-

5.下列VB表达式有错误，其正确的形式是

cos2(c+d)((C+D)为弧度)

6.下列VB表达式有错误，其正确的形式是

5+(a+b)2

7.与下列数学式子对应的VB表达式是

cos(x)(sin(x)+l)(X为弧度)

8.与下列数学式子对应的VB表达式是

e2+2

9.与下列数学式子对应的VB表达式是

2a(7+b)

10.与下列数学式子对应的VB表达式是

8e3.Ln2

1L执行以下语句后，输出结果是

printSgn(2)<CR>

12.执行以下语句后，输出结果是

a$=z，Good，，<CR>

b$二〃Morning"〈CR〉

printa$+b$<CR>

printa$&b$<CR>

13.执行以下语句后，输出结果是

s$二〃ABCDEFGHIJK〃〈CR>

printLeft$(s$,4)<CR>

printRight$(s$,4)<CR>

14.执行以下语句后，输出结果是

s$二〃ABCDEFGHIJK〃〈CR>

printMid$(s$,3,4)<CR>

printLen(s$)<CR>

15.执行以下语句后，输出结果是

s$二〃ABCDEFGHIJK〃

printInstr(s$,，，efg，，)<CR>

printLcase$(s$)<CR>

16.假定当前日期为2003年10月5日，星期五，则执行以

下语句后，输出结果是5、10、2003、

5o

printday(now)<CR>

printmonth(now)<CR>

printyear(now)<CR>

printweekday(now)<CR>

17.在VB中，字符串常量要用括起来，日期/时间型

常量要用括起来。

18.在5.0/6.0版的VB中，字符采用编码方式。在

这种编码方案中，一个中文字符或一个西文字符均视为—

个字符，每个字符用个字节编码。

19.下列语句的输出结果是o

PrintInt(12345.6789*100+0.5)/100

答案4

一、选择题

1.B2.A3.C4.D5.B6.D

7.B8A.9.B10.B11.D

二、填空题

l.C0NTT*DE+Cos(28*3.14159/180)

2.(-3)/8+8*Int(24.8)

3.(8+6)X4/(-2))+Sin(2*3.14159)

4.((x+y)+z)*80-5*(C+D)

5.Cos(c+d)2或Cos(c+d)*Cos(c+d)

6.5+(a+b)2或5+(a+b)*(a+b)

7.Cos(x)*(Sin(x)+l)

8.Exp(2)+2

9.2*a*(7+b)

10.8*Exp(3)*Log(2)

11.1

12.GoodMorningGoodMorning

-12-

13.ABCDHIJK

14.CDEF11

15.0abcdefghijk

16.51020036

17.双引号#

18.Unicode12

19.12345.68

自测题5

一、选择题

1.假定Picturel和Textl分别为图片框和文本框的名称,

下列不正确的语句是

A.Print25

B.Picturel.Print25

C.Textl.Print25D.Debug.Print25

2.以下语句的输出结果是（在立即窗口中）

a=27<CR>

b=65<CR>

Printa;b<CR>

A.27A65B.A27A65C.A27A

△65D.A27AA65A

(△表示空格,下同)

3.以下语句的输出结果是(在立即窗口中)

a二〃Beijing”<CR>

b二〃ShangHai〃<CR>

Printa;b<CR>

A.BeijingAShangHaiB.ABeijingA

Shanghai

C.BeijingShangHaiD.ABeijing

△ShangHaiA

4.语句的Print5*5\5/5的输出结果是

A.5B.25C.0

D.1

5.设a、b、c为整型变量，其值分别为1、2、3,以下程序

段的输出结果是

a=b:b=c:c二a

Printa;b;c

A.123B.231C.321

D.232

6.语句PrintSgn(-62)+Avbs(-62)+Int(-62)的输出结果

是

A.-36B.1C.-l

D.-72

7.以下语句的输出结果是

a=Sqr(3)

PrintFormat(a,〃$$####.###〃)

A.$1.732B.$$L732

C.$1732D.$$0001.732

8.以下程序段的输出结果是

a=Sqr(3)

b=Sqr(2)

c=a>b

-14-

Printc

A.-1B.0C.False

D.True

9.以下语句的输出结果是

PrintFormat$(32548.5〃000,000.00")

A.32548.5B.32,548.5C.032,548.50

D.32,548.50

10.执行以下程序段后，变量c$的值为

a$二〃VisualBasicPrograming^

b$二〃Quick〃

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

A.VisualBASICProgramingB.Quick

BasicPrograming

C.QUICKBasicProgramingD.Quick

BASICprograming

11.表达式4+5\6*7/8Mod9的值是

A.4B.5C.6

D.7

12.InputBox函数的返回值的类型是

A.数值B.字符串C.变体D.数值

或字符串(视输入的数据而定)

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

PrivateSubComandl_Click()

a=InputBox("EntertheFirstinteger")

B=InputBox(z，EntertheSecondinteger")

Printb+a

EndSub

程序运行后，单击命令按钮，先后在两个输入对话框中分

别输入456和123,则输出结果是

A.579B.123C.456

D.123456

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

PrivateSubComandlClick()

Dima,bAsInteger

a二InputBox("EntertheFirstinteger")

B=InputBox(Z/EntertheSecondinteger")

Printb+a

EndSub

程序运行后，单击命令按钮，先后在两个输入对话框中分

别输入456和123,则输出结果是

A.579B.123C.456

D.123456

15.执行下面的语句后，所产生的信息框的标题是

a=MsgBox(〃AAAA〃一〃BBBB〃，〃〃,5)

A.BBBBB.空C.AAAA

D.出错，不能产生信息框

二、填空题

L语句Print〃25+32=〃;25+32的输出结果是。

2.以下语句的输出结果是o

s$二〃China〃

s$=〃Beijing〃

Prints$

3.以下语句的输出结果是o

a%=3.14156

Printa%

4.设a=Sqr(2)*Sqr(3),下列语句的输出结果分别

7E、、、o

PrintFormat$(a,^OOO.00，z)

PrintFormat$(%〃###.#00〃)

-16-

PrintFormat$(a,〃00.00E+00”)

PrintFormat$(a,〃-#.####〃)

5.阅读程序：

SubForm_Click()

a=10:b=15:c=20:d=25

Printa;Spc(5);b;Spc(7);c

Printa;Space$(8);b;Space$(5);c

Printc;Spc(3);〃+〃;Spc⑶;d;

PrintSpc(3);"=”;Spc(3);c+d

EndSub

运行上面的程序，单击窗体，输出结果

、、、O

6.以下程序段的输出结果是o

x=8

Printx+l;x+2;x+3

7.以下程序段的功能是o

x=8.6

y=Int(x+0.5)

Printy

三、编程题

以下程序代码在窗体的单击事件过程(Form_Click)中

编写，结果输出到窗体上。

1.从键盘上输入4个数，编写程序，计算并输出这4个

数的和及平均值°通过InputBox函数输入数据，在窗体上

显示和及平均数c

2,编写程序，求解鸡兔同笼问题。一个笼子中有鸡x只,

兔y只，每只鸡有两只脚，每个兔有4只脚。今知鸡和兔的

总头数为h,总脚数为f,问笼中鸡和兔各若干？

答案5

一、选择题

l.C2.D3.C4.B5.D6.C7.B8.D9.C10.D11.B12.B13.D

14.A15.A

二、填空题

1.25+32=57

2.Beijing

3.3

4.002.452.44924.24E-01-2.449

5.101520

101520

20+25=45

6.91011

7.对变量x四舍五入后取整

三、编程题（略）

-18-

自测题6

一、选择题

1.决定窗体标题条显示内容的属性是

A.TextB.NameC.CaptionD.BackStyle

2.当窗体最小化时缩小为一个图标，设置这个图标的属性是

A.MouseiconB.IconC.Picture

D.MousePointer

3.为了取消窗体的最大化功能，需要把它的一个属性设置为

False,这个属性是

A.ControlBoxB.MinButtonC.Enabled

D.MaxButton

4.决定窗体有无控制菜单的属性是

A.ControlBoxB.MinButtonC.Enabled

D.MaxButton

5.为了使文本框同时具有水平和垂直滚动条，应先把

MuitiLine属性设置为True,然后再把ScrollBars属性设

置为

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

6.使文本框获得焦点的方法是

A.ChangeB.GotFocusC.SetFocus

D.LostFocus

7.为了使标签覆盖背景，应把BackStyle属性设置为

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

8.为了使标签中的内容居中显示，应把Alignment属性设置

为

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

9.下列可以把当前目录下的图形文件picl.jpg装入图片框

Picturel中的语句为

A.Picture二〃picl・jpg〃

B.Picture.Handle二〃picl・jpg〃

C.Picturel.Picture=LoadPicture(〃picl.jpg〃)

D.Picture=LoadPicture(〃picl・jpg〃)

10.决定标签内显示内容的属性是

A.TextB.NameC.AlignmentD.Caption

IL为了在按下回车键时执行某个命令按钮的事件过程，需

要把该命令按钮的一个属性设置为True,这个属性是

A.ValueB.DefaultC.CancelD.Enabled

12.为了在按下Esc键时执行某个命令按钮的事件过程，需

要把该命令按钮的一个属性设置为True,这个属性是

A.ValueB.DefaultC.CancelD.Enabled

13.假定在图片框Picturel中装入了一个图形，为了清除该

图形(注意，清除图形，而不是删除图片框)，应采用的正

确方法是

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

B.执行语句Picturel.Picture=LoadPicture(，/z，)

C.执行语句Picturel.Picture二〃〃

D.选择图片框，在属性窗口中选择Picture属性条，然后按

回车

14.设置复选框或单选按钮标题对齐方式的属性是

A.AlignB.AlignmentC.SortedD.Value

15.为了使列表框中的项目分为多列显示，需要设置的属性

为

A.ColumnsB.StyleC.ListD.MultiSelect

16.要想不使用Shift或Ctrl键就能在列表框中同时选择多

个项目，则应把该列表框的MultiSelect属性设置为

A.0B.1C.2D.其他

17.删除列表框中指定的项目所使用的方法是

A.MoveB.RemoveC.ClearD.Removeitem

-20-

18.当拖动滚动条中的滚动块时，将触发的滚动条事件是

A.MoveB.ChangeC.ScollD.SetFocus

19.用户在组合框中输入或选择的数据可以通过一个属性获

得，这个属性是

A.ListB.ListIndexC.TextD.ListCount

20.在窗体（Name属性为Forml）上画两个文本框（Name属性

分别为Textl和Text2）和一/『命令按钮（Name属性为

Command1）,然后编写如下两个事件过程：

PrivateSubCommand1_Click（）

a=Textl.Text+Text2.Text

Printa

EndSub

PrivateSubForm_Load（）

Textl.Text二〃〃

Text2.Text二〃〃

EndSub

程序运行后，在第一个文本框和第二个文本框中分别输入

123和321,然后单击命令按钮，则输出结果为

A.444B.321123C.123321D.132231

二、填空题

1.为了使标签能自动调整大小以显示全部文本内容，应把标

签的属性设置为True。

自测题答案6

一、选择题

l.C2.B3.D4.A5.D6.C7.B8.C9.C

10.I）11.B12.C13.B14.B15.A16.C

17.D18.C19.C20.C

二、填空题

1.Autosize

2.ScrollBarsMultiLineTrue

3.Textl.SetFocus

4.00

5.Picturel.Picture=LoadPicture/zpic2.gif〃

6.True

7.Picture

8.Interval

9.Enabled

10.下拉式组合框简单组合框下拉式列表框Style012

11.下拉式列表框

12.ItemAItemC

13.VB程序设计VBProgramming

练习题7

一、选择题（每题只有一个正确答案）

1VB的3种结构化程序设计的3种基本思想是（）

A）选择结构、过程结构、顺序结构B）递归结构、

选择结构、循环结构

0过程结构、转向结构、递归结构D）顺序结构、

选择结构、循环结构

2下面代码可以将变量A、B交换的语句是：（）

A）A二B:B二AB）

A=B:B=C:C=A

0C=A:A=B:B=CD）B=A:A=C:C=B

3下面代码可以实现数值型变量A、B交换的语句是：()

A)A=(A+B)/2:B=(A-B)/2B)A=B:B二A

C)A二B:B=C:C=AD)

A=A+B:B=A-B:A=A-B

-22-

4用InputBoxO函数设计的对话框，其功能是()。

A)只能接收月户输入的数据，但不会返回任何信息

B)能接收用户输入的数据，并能返回用户输入的信息

0既能用于接收用户输入的信息，又能用于输出信息

D)专门用于输出信息

5在默认情况下，InputBoxO函数返回值的类型为()。

A)逻辑类型B)字符串型

0数值型D)变体类型

6可以实现从键盘输入一个作为双精度变量a的值的语句是

()。

A)a=InputBox()

B)a二InputBox(〃请输入一个值〃)

C)a二Vai(InputBox(〃请输入一个值”))

D)a=Val(InputBox())

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

PrivateSubCmdlClickO

a=InputBox("EntertheFirstInteger")

b=InputBox("EntertheSecondInteger")

Printb+a

EndSub

程序运行后，单击命令按钮，先后在两个输入框中分别输

入“2”和“6”，则输出结果为()o

A)2B)62

C)8D)26

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

PrivateSubComandlClick（）

DimaAsInteger,bAsInteger

a=InputBox（"EntertheFirstInteger"）

B=InputBox（''EntertheSecondInteger"）

Printb+a

EndSub

程序运行后，单击命令按钮，先后在两个输入对话框中分

别输入“456”和“123”，则输出结果是（）0

A）579B）123

C）456D）123456

9Print方法可以输出多个表达式值，若使用标准格式输出，

各表达式的分割符应是（）

A）空格B）逗号

0冒号D）分号

10设有语句：

*二1吁a8。*（〃输入数值〃，〃0〃，〃示例〃）

程序运行后，如果从键盘上输入数值10并按回车键，则下

列叙述中正确的是（）o

A）变量X的值是数值10

-24-

B）在InputBox对话框标题栏中显示的是“示例”

00是默认值

D）变量X的值是字符串“10”

11MsgBox函数的返回值的类型为（）o

A）整型B）变体类型

O字符串型D）日期型

12以下关于MsgBox的叙述中，错误的是（）o

A）MsgBox函数返回一个整数

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

型

C）MsgBox语句没有返回值

D）MsgBox函数的第二个参数是一个整数，该参数只能

确定对话框中显示的按钮数量

13执行卜面的语句后，所产生的信息框的标题是（）o

a二MsgBox（〃AAAA〃，，〃BBBB〃，〃〃,5）

A）BBBBB）空C）AAAAD）

出错，不能产生信息框

14使“计算机技术”在当前窗体上输出的语句是（）。

A）Print〃计算机技术〃B）Picturel.Print

〃计算机技术〃

C）Printer.Print〃计算机技术〃D）Debug.Print〃

计算机技术〃

15设a=6,则执行

x=IIf(a>5,-l,0)

后，x的值为()。

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

16运行下列程序段后，显示的结果为()0

a二23

b=32

Ifa<bThenPrintbElsePrinta

A)23B)32

C)55D)2332

17下列程序段执行结果为()o

x=5

y=-6

IfNotx>0Thenx=y-3Elsey=x+3

Printx-y;y-x

A)-33B)5-9

C)3-3D)-65

18下列语句正确的是()o

A)IfAWBThenPrint"A不笔于B〃

B)IfAOBThenPrintf〃A不等于B〃

C)IfAOBThenPrint"A不等于B〃

D)IfANBPrint"A不等于B〃

19下列程序段的执行结果为()o

-26-

a=95

Ifa>60Then1=1

Ifa>70Then1=2

Ifa>80Then1=3

Ifa>90Then1=4

Print〃I=〃；I

A)1=1B)1=2

C)1=3D)1=4

20下列程序段的执行结果为（）o

a=75

Ifa>60Then1=1

Ifa>70Then1=2

Ifa>80Then1=3

Ifa<90Then1=4

Print二〃；I

A)1=1B)1=2

C)1=3D)1=4

21下列程序段的执行结果为（）o

X=2

Y二5

IfX*Y<1ThenY=Y-1ElseY=-l

PrintY-X>0

A)TrueB)False

0-1D)1

22对话框在关闭之前，不能继续执行其他操作，这种对话

框属于（）o

A）输入对话框B）输出对话框

0模式（模态）对话框D）无模式对话框

23下面程序段执行结果为（）。

x=Int（Rnd（）+4）

SelectCasex

Case5

Print“Excellent”

Case4

Print〃Good〃

Case3

Print"Pass"

CaseElse

Print”Fail

EndSelect

A)ExcellentB)Good

C)PassD)Fail

24执行下面的程序段后，变量c的值为（）o

a=14

-28-

b=30

SelectCaseb\10

Case0

c=a*10+b

Case1To9

c=a*100+b

Case10To99

c=a*1000+b

EndSelect

Printc

A)363B)2548

C)1430D)9875

25以下Case语句中错误的是()。

A)Case0To10B)CaseIs>10

C)CaseIs>10AndIs<50D)Case3,5,Is>10

二、填空题

1语正确答案是选项句Print〃25+32=〃；25+32的输出结果

是O

2在一个窗体上有两个命令按钮，CmdMax和CmdMin。单击

CmdMax时，窗体上显示〃字体由小变大〃，字号每次增加2；

单击CmdMin时，窗体上显示“字体由大变小”，字号每次减

小2。请填空。

PrivateSubFormLoad()

Forml.Caption=〃字体变化示范〃

CmdMax.Caption=〃字体变大〃

CmdMin.Caption=〃字体变小〃

EndSub

PrivateSubCmdMaxClick()

Forml.Print〃字体由小变大〃

EndSub

PrivateSubCmdMinClick()

Forml.Print〃字体由大变小〃

EndSub

3完成下面的程序，使显示结果如下图所示。

PrivateSubFormClick()

FontSize=18

Sample=〃〃

x二(ScaleWidth-TextWidth(Sample))/2

y二(ScaleHeight-Textlleight(Sample))/2

CurrentX=x

CurrentY=y

-30-

________Sample

EndSub

图程序运行界面

4有下面一个程序段，从文本框中输入数据，如果该数据满

足条件，除以4余1,除以5余2,则输出，否则，将焦点定位

在文本框中，并清除文本框的内容。

PrivateSubCommandl_Click()

x=Val(Textl.Text)

IfThen

Printx

Else

Textl.Text二〃〃

EndIf

EndSub

5下面程序的作用是用InputBoxO函数输入一个整数，然后

判断能否同时被2,5和7整除，如果能则输出该数及平方值。

请填空。

PrivateSubCommandlClick()

DimnumXAsInteger

numX二Vai(InputBox(〃请输入一个整数〃))

IfThen

Forml.Print

EndIf

EndSub

6在有下面一个程序段从文本框中输入数据，如果该数据满

足条件，除以6余2,除以5余3,则输出，否则，将焦点定位

在文本框中，并清除文本框的内容。

PrivateSubCommandl_Click()

num=Val(Textl.Text)

IfThen

Printnum

Else

Textl.Text二〃〃

EndIf

EndSub

-32-

7下面的程序是计算给定函数的值，自变量x,y的值用

InputBoxO函数输入,函数如下：

x2+y2x>0,y>0

f(x,y)=k2-2y2x>(),y>0

y2-2x?其它

程序不完整，请填空，将程序的补充完整。

OptionExplicit

DimxAsSingle

DimyAsSingle

DimzAsSingle

PrivateSubCommandlClick()

x=Val(InputBox(〃x=〃))

y=Val(InputBox(〃y=〃))

EndSub

PrivateSubCommand2_Click()

IfThen

z=x-2+y八2

ElselfThen

z=x-2-2*y-2

z=y-2-3*x-2

EndIf

Forml.Print〃当x,y的值为：〃；x,y

Forml.Print/zf(x,y)的值为：〃；z

EndSub

8在窗体上有一个“背景色变换”按钮和一个“结束”按钮。

单击“背景色变换”按钮，背景色变为红色；再单击，背景

色变为绿色；再单击，背景色变为蓝色；再单击背景色变为

红色……如此循环。单击“结束”按钮，程序运行结束。

请填空。

PrivateSubCmdChange_Click()

IfMark=0Then

Mark=l

ElselfThen

Forml.BackColor=vbGreen

Mark=2

ElselfMark=2Then

Forml.BackCo1or=vbB1ue

EndIf

EndSub

PrivateSubCmdExit_Click()

End

EndSub

-34-

9下列程序的功能是：当x<50时,y=0.8Xx；当50WxW100

时，y=0.7Xx；当x〉100时，没有意义，请填空。

PrivateSubCommandlClick()

DimxAsSingle

*二1四a30又(”请输入*的值！")

CaseIs<50

y=0.8*x

Case50To100

y=0.7*x

Print〃输入的数据出界！〃

EndSelect

Printx,y

EndSub

10下面的程序用于根据文本框Text中输入的内容进行以下

处理：

若Text为1,则打印“您的成绩为优秀！若Text为2,则

打印“您的成绩为良好！”若Text为3,则打印“您的成绩为

一般”；否则打印“您的成绩一般以下！、请填空。

PrivateSubCommandlClickO

SelectCaseVai(Textl.Text)

Case____________

Print〃您的成绩为优秀！〃

Case____________

Print〃您的成绩为良好！〃

Case____________

Print〃您的成绩为一般〃

CaseElse

Print〃您的成绩一般以下！〃

EndSelect

EndSub

11新建一个工程，内有两个窗体，窗体Forml上有一个命令

按钮Commandl,单击该按钮，Forml窗体消失，显示Form2窗

体，程序如下：

PrivateSubCommandl_Click()

Form2.________

EndSub

试补充完整。

12本程序的功能是利用随机数函数模拟投币，方法是：每

次随机产生一个0或1的整数，相当于一次投币，1代表正面,

0代表反面。在窗体上有三个文本框，名称分别是Textl、

Text2>Text3,分别用于显示用户输入投币总次数、出现正

-36-

面的次数和出现反面的次数，如图所示。程序运行后，在文

本框Textl中输入总次数，然后单击“开始”按钮，按照输

入的次数模拟投币，分别统计出现正面、反面的次数，并显

示结果。以下是实现上述功能的程序，请填空。

图程序运行界面

PrivateSubCommandlClick()

Radomize

n=CInt(Textl.Text)

nl=0

n2=0

Fori=lTo____________

r=Int(Rnd*2)

Ifr=Then

nl=nl+l

Else

n2=n2+l

EndIf

Next

Text2.Text=nl

Text3.Text=n2

EndSub

三程序设计题

1已知平面坐标系内两点的坐标，求两点间的距离。

2编写程序，要求用户利用InputBoxO函数输入如下信息:

姓名、年龄、通讯地址、邮政编码、联系电话，然后将输入

的数据用Print方法以适当的格式在窗体上显示出来。

3编写程序，设计一个退出按钮，根据用户做出的响应来

确定是否结束程序（利用MsgBox来设计）。

4任给定一年，判断该年是否为闰年，并根据给定月份来

判断属于哪个季节？（闰年的条件是：年号能被4整除但不

能被100整除，或者能被400整除。）

5从文本框内输入三角形的3条边a、b、c,判断它们是否

能构成三角形，如果能，则计算出面积，如果不能，则提示

信息。

6设计一个滚动字幕，其标题为“VB程序设计”，使其能自

-38-

右向左反复移动，当把鼠标移到该字幕上时，停止移动，同

时字体颜色变为红色，移开以后，字幕继续移动，字体变为

原来的颜色。

7在文本框内输入一年中的12个月份，如果输入1、2、3月

份，则在标签上显示春季，如果输入4、5、6月份，则显示

夏季，如果输入7、8、9月份，则在标签上显示秋季，如果

输入10、11、12月份，则显示冬季，其它情况则显示您的输

入有误,请重新输入,使用命令按钮的单击事件。

8利用单选按钮与复选按钮控制文本框内字体的字体与字

形。

参考答案7

一、选择题

1Do

2Co解析：此题考查变量交换这一知识点，首先要将其中

的一个变量赋值给中间变量，A是错误的，B、D是交换时没

有首先将变量赋值给中间变量，正确答案是C。

3Do解析：关于数值型变量的交换方法除了可以使用2题的

规则外，还可以使用先将两数求和赋值给第一个变量，然后

用第一个变量减去第二个变量赋值给第二个变量，然后用

第一个变量减去第二个变量赋值给第一个变量所以只有答

案D是正确的。

4Bo解析：InputBoxO函数能接收用户输入的数据，并能

返回用户输入的信息，不能用于输出信息。InputBoxO函数

中的Prompt参数是在对话框中显示提示信息，这种提示信息

是由用户确定的，不能把它当作输出信息的功能，正确答案

是B。

5Bo解析：在默认的情况3InputBoxO函数的返回值是

一个字符串，而不是变体类型。如果没有事先声明返回值的

类型，或声明为变体类型，则当把函数的返回值赋给这个变

量时，VB将是把它作为字符串来处理。因此当需要用

InputBoxO函数输入数据，并且需要输入的数值参加运算

时，必须在进行运算前用Vai函数（或其他函数）把它转换为

相应类型的数值，否则有可能会得到不正确的结果。如果正

确地声明了返回值为变体类型，则可不必进行类型转换。正

确答案是B。

6Co解析：InputBoxO函数的格式为：

返回值

=InputBox（Prompt,[Title],[Default],[XPos],[YPos],[H

elpFile],[Context]）AsString

其中prompt是一个字符串，用于提示用户输入，是在对话框

中显示的信息，不可省略，故选项A和选项D不正确；选项B

没有类型转换符，所以不正确Vai（字符串）函数的功能是把

自变量中的第一个字符串转换为数值，其中的数值是一个双

精度的实数，所以，正确答案是C。

-40-

7Bo解析：在默认的情况下，InputBoxO函数的返回值是

一个字符串类型，而不是变体类型。如果没有事先声明返回

值变量的类型，或声明为变体类型，则当把函数的返回值赋

给这个变量时，VB将是把它作为字符串来处理。因此当需要

用InputBox。函数输入数据，并且需要输入的数值参加运算

时，必须在进行运算前用Vai函数(或其他函数)把它转换为

相应类型的数值，否则有可能会得到不正确的结果。如果正

确地声明了返回值的变体类型，则可不必进行类型转换；由

于本题没有事先声明变量，所以a和b所获得的为字符“2”

和“6”,所以输出“62”。正确答案是B。

8Ao解析：此题与上题看起来很类似，但是要注意此题在

给变量a、b赋值之前就声明了变量的数据类型，VB系统进行

了内部转换，把InputBox()函数输入的变量转换为了整型变

量，所以，正确答案是A。

9Bo分析：使用紧凑格式输出，各表达式的分割符应是分

号；使用标准式输出，各表达式的分割符应是逗号。

10Do解析：略°

11Ao解析：MsgBoxO函数的返回值是一个整数，这个整数

与所选择的命令按钮有关。MsgBox()函数所显示的对话框中

有7种命令按钮，返回值与这7种命令按钮相对应的，见下表。

MsgBox()函数的返回值

返I操作I符号

回常量

值

1选“确定”vbOk

按钮

2选“取消”vbCan

按钮cel

3选“终止”vbAbo

按钮rt

4选“重试”vbRet

按钮ry

5选“忽略”vblgo

按钮re

6选“是”按vbYes

钮

7选“否”按vbNo

钮

表4.1MsgBox的返回值表

所以，正确答案是A。

12Do解析：此题考察Msgbox()函数的基本知识。其函数的

格式为：

返回值

=MsgBox(Prompt,[Type],[Title],[IlelpFile],[Context])

-42-

AsVbMsgBoxResult

函数的第二个参数是数值表达式，不仅仅确定按钮的数目，

还指定按钮的类型及图标的样式，所以，正确答案是D。

13Bo解析:略0

14AO解析：Print〃计算机技术〃语句的作用是将字符串“计

算机技术”直接输出到当前窗体上，所以选项A