VN课后练习答案习题解答

第4章常用控件

4.1填空题

1.在图片框上放置的控件称为图片框的（）对象，而窗体是图片框的（）对

象。

答案：子对象、父对象

2.窗体的“名称”（Name）属性只能在（）设置。

答案：属性窗口中

3.在程序中设置窗体Forml的Caption属性为“主窗体”，运用的赋值语句是（）。

答案：Forml.Caption："主窗体"

4.当窗体的Enabled属性为（）时，指定窗体响应事务。

答案：True

5.窗体的Unload事务是在QuerUnload事务发生之（）发生.

答案：之后

6.程序中，把当前窗体移动到屏幕左上角运用的方法为（

答案：Move0,0

7.在窗体Forml中坐标为（1600,800）的位置上输出字符串“VisualBASIC6.0”运

用的语句为（）、（）、和（）o

答案：

Forml.Currrentx=1600>Forml.Currenty=800>Forml.PrintuVisualBASIC6.0M

8.若使文本框有边框，需设置BorderStyle属性的值为（）。

答案：1

9.在程序运行期间，用户可以用文本框显示信息。文本框接受输入的内容的属性是

（）o

答案：Text

10.若使文本框内能够接受多行文本，则要设置Multiline属性的值为（）。

答案：True

11.要把图形文件"c:\sample\diannt.jpg”装载到图片框Picturel上，运用的语句

为（）o

答案：Picturel.Picture=LoadPicture（wc:\sample\diannt.jpgw）

12.若使图片框自动调整大小以适应装入的图形，则要设置Autosize属性的值为

（）。

答案：True

13.除了在程序运用LoadPicture函数装载图形外，还可以在设计阶段通过修改（）

属性装载图形。

答案：Picture

14.若程序中要把一些文本内容输出到图片框PictureBox,应运用（）方法。

答案：Print

15.当单选按钮OplionBulton的Value属性为（）时，表示该单选按钮处于未选

中状态。

答案：False

16.若使叮嘱按钮Commandl重新生效，则运用的赋值语句为（）。

答案：Commandl.Enabled=Trje

17.若使叮嘱按钮不能接收和响应任何事务，可以设置Visible属性的值为（）。

答案:False

18.只有控件对象的Enabled和Visible属性值都为（）时，该控件对象才能接受

焦点。

答案：True

19.Tab依次是由建立控件时的（）来确定。

答案：先后依次

20.设置框架Frame上的文本内容须要运用（）属性。

答案：Caption

21.在框架上可以设置一组相关控件，这些控件作为框架的（）控件，它们具有总

体的激活/屏蔽特性。

答案：子

22.若屏蔽框架上的控件对象，则需设置（）属性的值为False。

答案：Enabled

23.列表框ListBox中项目的序号从（）起先到（）结束。

答案：0、Listcount-1

24.要显示列表框Listl中序号为3项目内容，语句为（）o

答案：PrintListl.List（3）

25.向组合框Combo2添加序号为5,内容为“计算机学院”的项目，运用的语句为（）。

答案：Combo2.Addltom“计算机学院”，5

26.要删除组合框Combol序号为3的项目，运用的语句为（）,>

答案:Combol.ReMoveItem3

27.运用滚动条ScrollBar时，若要设置当用鼠标单击两个滚动带头之间区域的滚动幅

度，需运用（）属性。

答案：LargeChange

28.若要设置水平或垂直滚动条的最小值，需运用（）属性。

答案：Min

29.计时器Timer每经过一个由InterVai属性指定的时间间隔就会触发一次（）

事务。

答案：Timer

30.若要使计时器每0.5钞钟触发一次Timer事务，则要把IntcrVal属性值设置为

（）。

答案：500

4.2选择题

1.窗体标题栏的显示内容由窗体的（）属性确定。

a）Nameb）Captionc）BackColord）Enabled

答案：b

2.当窗体被装入内存时，系统将自动执行（）事务过程。

a）Loadb）Activatec)Unloadd)QueryUnload

答案：a^b

3.在标签框上显示的内容由（)属性来实现。

a）Nameb）Captionc)Textd)ForeColor

答案：b

4.要使标题在标签框内居中显示,Alignment•属性的取值应为()。

a)0b)1c)2d)3

答案：2

5.若使标签框依据所显示内容自动调整其大小，则可以通过设置()属性值为True

来实现。

a)AutoSizeb)Alignmentc)Enabledd)Visible

答案：a

6.文本框没有()属性。

a)BackColorb)Enabledc)Visibled)Caption

答案：d

7.假如设置文本框最多可以接受的字符数,则可以运用()属性。

a)Lengthb)Multilinec)Maxd)MaxLength

答案：d

8.在文本框中设置垂直滚动条，要使ScrollBars的值为()。

a)0b)1c)2d)3

答案：c

9.在运行程序时，要使文本框获得焦点，则需运用()方法。

a)Changeb)SetFocusc)GotFocusd)Move

答案：b

10.下列控件中，没有AutoSize属性的是(),>

a)标签b)文本框c)图片框d)图像框

答案：b、d

11.若把图片框Picturcl中的图形清除，可以运用的语句是()。

a)Picturel.Del

b)Picturel.Picture=LoadPicture(**)

c)Picturel.Picture=LoadPicture()

d)Picturel.Picture=Nothing

答案：b、c^d

12.叮嘱按钮上的文本内容由()属性来设置。

a)Textb)Captionc)Named)Show

答案：b

13.若将叮嘱按钮设置为默认选择叮嘱按钮，可以通过()属性来实现。

a)Valueb)Cancelc)Defaultd)Enabled

答案：c

14.要使叮嘱按钮失效，则可以设置()属性的值为False来实现。

a)Valueb)Enabledc)Visibled)Cancel

答案：b

15.若使叮嘱按钮在屏幕不行见，则可以通过修改()属性实现。

a)Valueb)Enabledc)Visibled)Cancel

答案：c

16.当复选框Value属性值为()表示该复选框被选中。

a)0b)1c)2d)3

答案：b

17.变更控件的Tab依次可以修改()属性值。

a)Visibleb)Enabledc)TabStopd)Tabindex

答案：d

18.下列控件中()不能接受GetFocus和LostFocus事务。

a)叮嘱按钮b)组合框c)复选按钮d)计时器

答案：d

19.要使列表框中的项目垂直滚动，应设置Columns属性值为(

a)0b)1c)2d)3

答案：a

20.若要得到列表框中项目的数目，可以访问()属性。

a)Listb)Listindexc)ListCountd)Text

答案：c

21.设置列表框的选择方式，应运用()属性。

a)Columnsb)MultiSelectc)Styled)List

答案：b

22.若要清除列表框的全部项目内容，可以运用()方法。

a)Additemb)ReMovec)Cleard)Print

答案：c

23.删除列表框中的某个项目，须要运用()方法。

a)Clearb)ReMovec)Moved)ReMoveItem

答案：d

24.在组合框中选择某一项目内容，可以通过()属性获得。

a)Listb)Listindexc)ListCountd)Text

答案：d

25.若要获得滚动条的当前位置，可以通过访问()属性来实现。

a)Valueb)Maxc)Mind)LargeChange

答案：a

26.当用鼠标拖动滚动块时触发()事务。

a)Moveb)Changec)Scrolld)GotFocus

答案：b、c

27.设置计时器的时间间隔可以通过()属性来实现。

a)Valueb)Textc)Maxd)InterVai

答案；d

28.短暂关闭计时器，需设置()属性。

a)Visibleb)Enabledc)Lockd)Cancel

答案：b

4.3解答题

1.在VB集成环境中，用属性窗口设置字体(Font)属性时，系统将弹出一个对话框(见

教材图4T0),指出该对话框中包含些什么控件？

答：在该对话框中包含列表框、叮嘱按钮、框架、复选框和文本框等控件。

2.设Textl为某一文本框名，下列程序段的输出结果是什么？

Textl.Text=*abcdefghijk”

Textl.seistart=3

Textl.sellength=5

PrintTextl.SelText

答：输出结果是：defgh

3.标签和文本框有什么区分？

答：标签一般用于显示一小段不须要用户修改的文本，被显示的文本通过Caption属性

确定，它作为输出控件而存在，艮］可以运用它输出数据。文本框是VB在窗体中为用户供应

一个既能够显示乂能够编辑文本的控件对象，它作为输入和输出控件而存在，即可以运用它

输入输出数据。在文本框内，我们还可以按常用的方法进行文字的编辑。例如，可以进行选

择、删除、复制、粘贴、替换等各种操作。

4.比较用Print方法输出和用标签输出的优缺点。

答：Print方法是特地向控件输出数据的一种方法，这些控件包括窗体、图片框、打印

机等。标签是利用它的Caption属性来输出数据的一种控件。利用Print方法可以干脆把数

据在窗体、图片框等控件上显示出来，而假如运用标签在窗体、图片框等控件上显示数据，

则必需先在相应的控件上放置一个标签，然后才能在标签上输出。运月Print方法和标签输

出的文本，其字体、尺寸、颜色都可以变更。而通过变更标签的相关属性，很简洁变更标签

中显示的内容的字体、尺寸、颜色等。标签中显示的内容只能用同一种字体、尺寸、颜色显

示，而运用Print方法可以使每次输出的内容的字体、尺寸、颜色等有所不同。

5.图片框和图像框的作用是什么？它们之间有什么区分？在什么状况下可以相互代

替？在什么状况下必需运用图片框？

答：图片框和图像框的作用是在窗体的指定位置上显示图形信息，它们以基本相同的方

式出现在窗体上，都可以放置各种VB可识别的图形文件。图片框和图像框的主要区分是：

图片框可以作为其他控件的父对象，而且可以通过Print方法输出文本信息；而图像框只能

显示图形信息。若不显示文本信息和设置子控件时，它们可以相互代替，否则，必需运用图

片框。

6.框架的作用是什么？如何在框架中建立控件？

答：框架的作用是对窗体上的控件对象进行分组，我们可以把相同类型或不同类型的控

件对象放在同一个框架上。在框架中建立控件对象的方法为：先双击工具箱上的框架控件对

象，这时在窗体的中间出现一个带有Framel字样的框架控件对象，运用鼠标把它拖到窗体

中的预定位置和适当调整大小。然后，双击工具箱上需放在框架上的控件对象，这时在窗体

的中间出现该控件对象。单击工具栏上的“剪切”按钮，把该控件对象剪切到剪贴板。单击

框架Framel和单击工具栏上的“粘贴”按钮。此时，该控件对象就作为框架Framel中的控

件，运用鼠标把它拖到框架Framel中的预定位置和适当调整大小。再以相同的做法，把其

它控件对象放在框架上。

4.4编程题

1.编一程序能够实现：每次单击叮嘱按钮Commandl能使标签Labell上的文字在窗体

Forml上往右移动100堤，当标签在窗体Forml上往右移出窗体的右边界时，再次单击叮嘱

按钮Commandl能使标签回到窗体的左边界。

解答：

(1)界面设计和属性设置

在窗体上建立一个标签和两个叮嘱按钮。窗体和窗体上控件的主要属性设置如表3.4.1

所示。

表3.4.1属性设置

控件名称属性名属性值

FormlCaption使标签往右移

Label1Caption欢迎运用VB!

FontName隶书

FontSize三号字

Command1Caption移动

Command2Caption结束

(2)程序代码

PrivateSubCommandl_Click()

IfLabel1.Left>Forml.ScaleWidthThen

Label1.Left=0

Else

Label1.Left=Label1.Left+100

EndIf

EndSub

PrivateSubCommand2_Click()

End

EndSub

(3)运行状况

运行程序后，屏幕出现用户界面。每次单击标题为“移动”的叮嘱按钮，系统执行相应

的Click事务过程，使标签往右移100堤。右移出窗体的右边界时，再次单击单击标题为“移

动”的叮嘱按钮乂能使标签回到窗体的左边界。执行状况如图3.4.1所示。单击标题为“结

束”的叮嘱按钮，结束程序的执行。

图3.4.1执行状况

3.在文本框中输入算术表达式，并以回车符作为输入结束标记。对表达式中的圆括号

是否配对进行检查，且给出配对或不配对信息。若配对，则给出“左右圆括号配对”的信息;

否则，给出“左圆括号多于右圆括号”或“右圆括号多于左圆括号”的信息。

解答：

(1)界面设计和属性设置

在窗体上建立一个文本框。窗体和文本框的主要属性设置如表3.4.3所示。

表3.4.3属性设置

控件名称属性名属性值

FormlCaption判别算术表达式中

的圆括号是否配对

TextlText空串

(2)程序代码

OptionExplicit

DimnAsInteger

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

Cis

IfChr(KeyAscii)=*(*Then

n=n+1

ElselfChr(KeyAscii)=*)*Then

n=n-1

EndIf

Print:Print:Print

IfKeyAscii=13Then

Ifn=0Then

PrintTab(18)左右圆括号配对!"

Elselfn>0Then

PrintTab(15);"左圆括号多于右圆括号!”

Else

PrintTab(15);”右圆括号多于左圆括号！”

EndIf

EndIf

EndSub

PrivateSubTextIMouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

Cis

Textl.Text=""

n=0

EndSub

(3)运行状况

运行程序后，屏幕出现用户界面。焦点在Textl文本框上，输入算术表达式，例如,((1+2)

*8-5),然后按回车键。每按一个键，系统都执行Textl_KeyPress事务过程。执行结果如图

3.4.3所示。若接着判别另一个算术表达式的左右网括号是否配对，可以单击Textl文本框，

系统执行TextLMouseDown事务过程。这时可以再次输入算术表达式和按回车键。单击工具栏

上的“结束”按钮，系统结束程序的执行。

图3.4.3执行结果

4.编写一个程序，把某一图形装入到一个图片框中，并能实现该图形的放大、缩小和

全屏显示。

解答：

(1)界面设计和属性设置

在窗体上建立一个图片框和三个叮嘱按钮。窗体和窗体上控件的主要属性设置如表3.4.4

所示。

表3.4.4属性设置

控件名称属性名属性值

FormlCaption图片缩放

PicturelPicture一幅图片：在程序中装

入)

Command1Caption图片放大

Conunand2Caption图片缩小

CommandsCaption全屏显示

(2)程序代码

PrivateSubCommand1ClickO

IfPicturel.Height<2200Then

IfForml.ScaleHcight-Picturel.Height>50Then

Picturel.Height=Picturel.Height+50

EndIf

EndIf

IfForml.SealeWidth-Picturel.Width>70Then

Picture!.Width=Picturel.Width+70

EndIf

EndSub

PrivateSubCommand2Click。

SelectCasePicturel.Height

CaseIs>50

Picturel.Height=Pic:urel.Height-50

CaseIs>30

Picturel.Height=Pic:urel.Height-30

CaseIs>10

Picturel.Height=Pic:urel.Height-10

EndSelect

SelectCasePicturel.Wid:h

CaseIs>100

Picturel.Width=Picturel.Width-100

CaseIs>50

Picturel.Width=Picturel.Width-50

CaseIs>30

Picturel.Width=Picturel.Width-30

CaseIs>10

Picturel.Width=Picturel.Width-10

EndSelect

EndSub

PrivateSubCommandsClick()

Picturel.Height=Forml.SealeHeight-1000

Picturel.Width=Forml.ScaleWidth

EndSub

PrivateSubForm_Load()

Picturel.Picture=LoadPicture(*c:\ProgramFiles\MicrosoftOffice

\Office\Bitmaps\styles\Globe.wmf*)

EndSub

⑶运行状况

运行程序后，屏幕出现用户界面。单击标题为“全屏显示”的叮嘱按钮，系统执行相应

的Click事务过程,执行结果如图3.4.4所示。单击标题为“图形缩小”的叮嘱按钮，可以

使图形慢慢缩小。单击标题为“图形放大”的叮嘱按钮，可以使图形慢慢放大。单击工具栏

上的“结束”按钮，系统结束程序的执行。

图3.4.4执行结果

6.编一程序产生一个字体阅读器。要求用一个列表框显示系统当前可供选择的字体，

另一个列表框显示系统当前可供选择的字体大小，并运用标签显示所选字体及其大小样例.

解答：

(1)界面设计和属性设置

在窗体上建立四个标签、两个列表框。窗体和窗体上控件的主要属性设置如表3.4.6所示。

表3.4.6属性设置

控件名称属性名属性值

FormlCaption字体阅读器

Label1Caption字体选择

Labe12Caption字体大小选择

Labe13Caption样例

Labe14Caption中文字体演示

BorderStyle1

ListlStyle1

List2Style1

(2)程序代码

OptionExplicit

PrivateSubFormLoad()

DimiAsInteger

Fori=0ToScreen.FontCount-1

Listl.AdditemScreen.Fonts(i)

Nexti

Fori=8To12

List2.AddltemTrim(Str(i))

Nexti

Fori=14To72Step2

List2.AddltemTrim(Str(i))

Nexti

EndSub

PrivateSubListl_Click()

Label4.FontName=Listl.Text

EndSub

PrivateSubList2_Click()

Label4.FontSize=List2.Text

EndSub

(3)运行状况

运行程序后，系统执行事务过程Form_Load,并在屏幕上显示用户界面。单击列表框

Listl上某一复选框，例如，“华文新魏”前面的复选框，系统执行相应的Click事务过程。

然后单击列表框List2上某一复选框，例如，“20”前面的复选框，系统执行相应的Click

事务过程。执行结果如图3.4.7所示。单击工具栏上的“结束”按钮，系统结束程序的执行。

■字体说K需HEIB

字体推择字体大小选择

□

口竿式细器上|□

□Q华文细黑—1□

□华文行情.

口。华文行褶-1

I□E

口

祥例中文字体演示

图3.4.7执行结果

7.编写一个用于演示颜色合成状况的程序。要求运用滚动条作为红、绿和蓝三种基色

值的输入控件。(提示：运用RGB函数对输入的三种基色进行合成得到复合颜色)

解答：

(1)界面设计和属性设置

在窗体上建立四个标签和三个滚动条。窗体和窗体上控件的主要属性设置如表3.4.7所

不。

表3.4.7属性设置

控件名称属性名属性值

FormlCaption颜色合成演示

Label1Caption红色价量值：

Labe12Caption绿色价量值：

Labe13Caption蓝色份量值：

Labe14Caption空串

BorderStyle1

HscrolllMax255

LargeChange5

Hscroll2Max255

LargeChange5

Hscroll3Max25E

I^rgeChange5

(2)程序代码

PrivateSubHScrolll_Scroll()

Label1.Caption="红色份量值:"&HScrolll.Value

Label4.BackColor=RGB(HScrol11.Value,HScroll2.Value,HScroE3.Value)

EndSub

PrivateSubHScrol12_Scrol1()

Labe12.Caption="绿色份量值：*&HScrol12.Value

Label4.BackColor=