vb课后练习答案习题解答.docx
《vb课后练习答案习题解答.docx》由会员分享，可在线阅读，更多相关《vb课后练习答案习题解答.docx（24页珍藏版）》请在冰点文库上搜索。
vb课后练习答案习题解答
第4章常用控件
4．1填空题
1．在图片框上放置的控件称为图片框的（）对象，而窗体是图片框的（）对象。
答案：
子对象、父对象
2．窗体的“名称”（Name）属性只能在（）设置。
答案：
属性窗口中
3．在程序中设置窗体Forml的Caption属性为“主窗体”，使用的赋值语句是（）。
答案：
Forml.Caption=“主窗体”
4．当窗体的Enabled属性为（）时，指定窗体响应事件。
答案：
True
5．窗体的Unload事件是在QueryUnload事件发生之（）发生。
答案：
之后
6．程序中，把当前窗体移动到屏幕左上角使用的方法为（）。
答案：
Move0,0
7．在窗体Form1中坐标为（1600，800）的位置上输出字符串“VisualBASIC”使用的语句为（）、（）、和（）。
答案：
Form1.Currrentx=1600、Form1.Currenty=800、Form1.Print“VisualBASIC6.0”
8．若使文本框有边框，需设置BorderStyle属性的值为（）。
答案：
1
9．在程序运行期间，用户可以用文本框显示信息。
文本框接受输入的内容的属性是（）。
答案：
Text
10．若使文本框内能够接受多行文本，则要设置Multiline属性的值为（）。
答案：
True
11．要把图形文件“c:
\sample\diannt.jpg”装载到图片框Picture1上，使用的语句为（）。
答案：
Picture1.Picture=LoadPicture（“c:
\sample\diannt.jpg”）
12．若使图片框自动调整大小以适应装入的图形，则要设置Autosize属性的值为（）。
答案：
True
13．除了在程序使用LoadPicture函数装载图形外，还可以在设计阶段通过修改（）属性装载图形。
答案：
Picture
14．若程序中要把一些文本内容输出到图片框PictureBox，应使用（）方法。
答案：
Print
15．当单选按钮OptionButton的Value属性为（）时，表示该单选按钮处于未选中状态。
答案：
False
16．若使命令按钮Command1重新生效，则使用的赋值语句为（）。
答案：
Command1.Enabled=True
17．若使命令按钮不能接收和响应任何事件，可以设置Visible属性的值为（）。
答案：
False
18．只有控件对象的Enabled和Visible属性值都为（）时，该控件对象才能接受焦点。
答案：
True
19．Tab顺序是由建立控件时的（）来确定。
答案：
先后顺序
20．设置框架Frame上的文本内容需要使用（）属性。
答案：
Caption
21．在框架上可以设置一组相关控件，这些控件作为框架的（）控件，它们具有总体的激活/屏蔽特性。
答案：
子
22．若屏蔽框架上的控件对象，则需设置（）属性的值为False。
答案：
Enabled
23．列表框ListBox中项目的序号从（）开始到（）结束。
答案：
0、Listcount-1
24．要显示列表框List1中序号为3项目内容，语句为（）。
答案：
PrintList1.List（3）
25．向组合框Combo2添加序号为5，内容为“计算机学院”的项目，使用的语句为（）。
答案：
Combo2.AddItem“计算机学院”，5
26．要删除组合框Combo1序号为3的项目，使用的语句为（）。
答案：
Combo1.ReMoveItem3
27．使用滚动条ScrollBar时，若要设置当用鼠标单击两个滚动箭头之间区域的滚动幅度，需使用（）属性。
答案：
LargeChange
28．若要设置水平或垂直滚动条的最小值，需使用（）属性。
答案：
Min
29．计时器Timer每经过一个由InterVal属性指定的时间间隔就会触发一次（）事件。
答案：
Timer
Timer事件，则要把InterVal属性值设置为（）。
答案：
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．若把图片框Picture1中的图形清除，可以使用的语句是（）。
b）Picture1.Picture=LoadPicture（""）
c）Picture1.Picture=LoadPicture（）
d）Picture1.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）InterVal
答案：
d
28．暂时关闭计时器，需设置（）属性。
a）Visibleb）Enabledc）Lockd）Cancel
答案：
b
4．3解答题
1.在VB集成环境中，用属性窗口设置字体（Font）属性时，系统将弹出一个对话框（见教材图4-10），指出该对话框中包含些什么控件？
答：
在该对话框中包含列表框、命令按钮、框架、复选框和文本框等控件。
2．设Text1为某一文本框名，下列程序段的输出结果是什么？
="abcdefghijk"
=3
=5
答：
输出结果是：
defgh
3．标签和文本框有什么区别？
答：
标签一般用于显示一小段不需要用户修改的文本，被显示的文本通过Caption属性确定，它作为输出控件而存在，即可以使用它输出数据。
文本框是VB在窗体中为用户提供一个既能够显示又能够编辑文本的控件对象，它作为输入和输出控件而存在，即可以使用它输入输出数据。
在文本框内，我们还可以按常用的方法进行文字的编辑。
例如，可以进行选择、删除、复制、粘贴、替换等各种操作。
4.比较用Print方法输出和用标签输出的优缺点。
答：
Print方法是专门向控件输出数据的一种方法，这些控件包括窗体、图片框、打印机等。
标签是利用它的Caption属性来输出数据的一种控件。
利用Print方法可以直接把数据在窗体、图片框等控件上显示出来，而如果使用标签在窗体、图片框等控件上显示数据，则必须先在相应的控件上放置一个标签，然后才能在标签上输出。
使用Print方法和标签输出的文本，其字体、尺寸、颜色都可以改变。
而通过改变标签的相关属性，很容易改变标签中显示的内容的字体、尺寸、颜色等。
标签中显示的内容只能用同一种字体、尺寸、颜色显示，而使用Print方法可以使每次输出的内容的字体、尺寸、颜色等有所不同。
5．图片框和图像框的作用是什么？
它们之间有什么区别？
在什么情况下可以相互代替？
在什么情况下必须使用图片框？
答：
图片框和图像框的作用是在窗体的指定位置上显示图形信息，它们以基本相同的方式出现在窗体上，都可以放置各种VB可识别的图形文件。
图片框和图像框的主要区别是：
图片框可以作为其他控件的父对象，而且可以通过Print方法输出文本信息；而图像框只能显示图形信息。
若不显示文本信息和设置子控件时，它们可以相互代替，否则，必须使用图片框。
6．框架的作用是什么？
如何在框架中建立控件？
答：
框架的作用是对窗体上的控件对象进行分组，我们可以把相同类型或不同类型的控件对象放在同一个框架上。
在框架中建立控件对象的方法为：
先双击工具箱上的框架控件对象，这时在窗体的中间出现一个带有Frame1字样的框架控件对象，使用鼠标把它拖到窗体中的预定位置和适当调整大小。
然后，双击工具箱上需放在框架上的控件对象，这时在窗体的中间出现该控件对象。
单击工具栏上的“剪切”按钮，把该控件对象剪切到剪贴板。
单击框架Frame1和单击工具栏上的“粘贴”按钮。
此时，该控件对象就作为框架Frame1中的控件，使用鼠标把它拖到框架Frame1中的预定位置和适当调整大小。
再以相同的做法，把其它控件对象放在框架上。
4．4编程题
1.编一程序能够实现：
每次单击命令按钮Command1能使标签Label1上的文字在窗体Form1上往右移动100缇，当标签在窗体Form1上往右移出窗体的右边界时，再次单击命令按钮Command1能使标签回到窗体的左边界。
解答：
（1）界面设计和属性设置
在窗体上建立一个标签和两个命令按钮。
窗体和窗体上控件的主要属性设置如表3.4.1所示。
表3.4.1属性设置
控件名称
属性名
属性值
Form1
Caption
使标签往右移
Label1
Caption
FontName
FontSize
欢迎使用VB！
隶书
三号字
Command1
Caption
移动
Command2
Caption
结束
（2）程序代码
PrivateSubCommand1_Click（）
IfLabel1.Left>Form1.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所示。
表3属性设置
控件名称
属性名
属性值
Form1
Caption
判别算术表达式中的圆括号是否配对
Text1
Text
空串
（2）程序代码
OptionExplicit
DimnAsInteger
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
Cls
IfChr（KeyAscii）="（"Then
n=n+1
ElseIfChr（KeyAscii）="）"Then
n=n-1
EndIf
Print:
Print:
Print
IfKeyAscii=13Then
Ifn=0Then
PrintTab（18）;"左右圆括号配对!
"
ElseIfn>0Then
PrintTab（15）;"左圆括号多于右圆括号!
"
Else
PrintTab（15）;"右圆括号多于左圆括号!
"
EndIf
EndIf
EndSub
PrivateSubText1_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Cls
Text1.Text=""
n=0
EndSub
（3）运行情况
运行程序后，屏幕出现用户界面。
焦点在Text1文本框上，输入算术表达式，例如，（（1+2）*8-5），然后按回车键。
每按一个键，系统都执行Text1_KeyPress事件过程。
执行结果如图3.4.3所示。
若继续判别另一个算术表达式的左右圆括号是否配对，可以单击Text1文本框，系统执行Text1_MouseDown事件过程。
这时可以再次输入算术表达式和按回车键。
单击工具栏上的“结束”按钮，系统结束程序的执行。
图3.4.3执行结果
4．编写一个程序，把某一图形装入到一个图片框中，并能实现该图形的放大、缩小和全屏显示。
解答：
（1）界面设计和属性设置
在窗体上建立一个图片框和三个命令按钮。
窗体和窗体上控件的主要属性设置如表3所示。
表3属性设置
控件名称
属性名
属性值
Form1
Caption
图片缩放
Picture1
Picture
一幅图片（在程序中装入）
Command1
Caption
图片放大
Command2
Caption
图片缩小
Command3
Caption
全屏显示
（2）程序代码
PrivateSubCommand1_Click（）
IfPicture1.Height<2200Then
IfForm1.ScaleHeight-Picture1.Height>50Then
Picture1.Height=Picture1.Height+50
EndIf
EndIf
IfForm1.ScaleWidth-Picture1.Width>70Then
Picture1.Width=Picture1.Width+70
EndIf
EndSub
PrivateSubCommand2_Click（）
CaseIs>50
Picture1.Height=Picture1.Height-50
CaseIs>30
Picture1.Height=Picture1.Height-30
CaseIs>10
Picture1.Height=Picture1.Height-10
EndSelect
CaseIs>100
Picture1.Width=Picture1.Width-100
CaseIs>50
Picture1.Width=Picture1.Width-50
CaseIs>30
Picture1.Width=Picture1.Width-30
CaseIs>10
Picture1.Width=Picture1.Width-10
EndSelect
EndSub
PrivateSubCommand3_Click（）
Picture1.Height=Form1.ScaleHeight-1000
EndSub
PrivateSubForm_Load（）
Picture1.Picture=LoadPicture（"c:
\Program Files\Microsoft Office\Office\Bitmaps\styles\Globe.wmf"）
EndSub
（3）运行情况
运行程序后，屏幕出现用户界面。
单击标题为“全屏显示”的命令按钮，系统执行相应的Click事件过程,执行结果如图3所示。
单击标题为“图形缩小”的命令按钮，可以使图形逐渐缩小。
单击标题为“图形放大”的命令按钮，可以使图形逐渐放大。
单击工具栏上的“结束”按钮，系统结束程序的执行。
图3执行结果
6．编一程序产生一个字体浏览器。
要求用一个列表框显示系统当前可供选择的字体，另一个列表框显示系统当前可供选择的字体大小，并使用标签显示所选字体及其大小样例。
解答：
（1）界面设计和属性设置
在窗体上建立四个标签、两个列表框。
窗体和窗体上控件的主要属性设置如表3所示。
表3属性设置
控件名称
属性名
属性值
Form1
Caption
字体浏览器
Label1
Caption
字体选择
Label2
Caption
字体大小选择
Label3
Caption
样例
Label4
Caption
BorderStyle
中文字体演示
1
List1
Style
1
List2
Style
1
（2）程序代码
OptionExplicit
PrivateSubForm_Load（）
DimiAsInteger
Fori=0ToScreen.FontCount-1
List1.AddItemScreen.Fonts（i）
Nexti
Fori=8To12
List2.AddItemTrim（Str（i））
Nexti
Fori=14To72Step2
List2.AddItemTrim（Str（i））
Nexti
EndSub
PrivateSubList1_Click（）
EndSub
PrivateSubList2_Click（）
EndSub
（3）运行情况
运行程序后，系统执行事件过程Form_Load，并在屏幕上显示用户界面。
单击列表框List1上某一复选框，例如，“华文新魏”前面的复选框，系统执行相应的Click事件过程。
然后单击列表框List2上某一复选框，例如，“20”前面的复选框，系统执行相应的Click事件过程。
执行结果如图3.4.7所示。
单击工具栏上的“结束”按钮，系统结束程序的执行。
图3.4.7执行结果
7.编写一个用于演示颜色合成情况的程序。
要求使用滚动条作为红、绿和蓝三种基色值的输入控件。
（提示：
使用RGB函数对输入的三种基色进行合成得到复合颜色）
解答：
（1）界面设计和属性设置
在窗体上建立四个标签和三个滚动条。
窗体和窗体上控件的主要属性设置如表3所示。
表3属性设置
控件名称
属性名
属性值
Form1
Caption
颜色合成演示
Label1
Caption
红色份量值：
Label2
Caption
绿色份量值：
Label3
Caption
蓝色份量值：
Label4
Caption
BorderStyle
空串
1
Hscroll1
Max
LargeChange
255
5
Hscroll2
Max
LargeChange
255
5
Hscroll3
Max
LargeChange
255
5
（2）程序代码
PrivateSubHScroll1_Scroll（）
Label4.BackColor=RGB（HScroll1.Value,HSc
升级会员 