VN课后练习复习资料习题解答.docx
《VN课后练习复习资料习题解答.docx》由会员分享,可在线阅读,更多相关《VN课后练习复习资料习题解答.docx(17页珍藏版)》请在冰豆网上搜索。
VN课后练习复习资料习题解答
第4章常用控件
4.1填空题
1.在图片框上放置的控件称为图片框的()对象,而窗体是图片框的()对象。
答案:
子对象、父对象
2.窗体的“名称”(Name)属性只能在()设置。
答案:
属性窗口中
3.在程序中设置窗体Forml的Caption属性为“主窗体”,使用的赋值语句是()。
答案:
Forml.Caption=“主窗体”
4.当窗体的Enabled属性为()时,指定窗体响应事件。
答案:
True
5.窗体的Unload事件是在QueryUnload事件发生之()发生。
答案:
之后
6.程序中,把当前窗体移动到屏幕左上角使用的方法为()。
答案:
Move0,0
7.在窗体Form1中坐标为(1600,800)的位置上输出字符串“VisualBASIC6.0”使用的语句为()、()、和()。
答案:
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
30.若要使计时器每0.5钞钟触发一次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中的图形清除,可以使用的语句是()。
a)Picture1.Del
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为某一文本框名,下列程序段的输出结果是什么?
Text1.Text="abcdefghijk"
Text1.selstart=3
Text1.sellength=5
PrintText1.SelText
答:
输出结果是:
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.4.3所示。
表3.4.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.4.4所示。
表3.4.4属性设置
控件名称
属性名
属性值
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()
SelectCasePicture1.Height
CaseIs>50
Picture1.Height=Picture1.Height-50
CaseIs>30
Picture1.Height=Picture1.Height-30
CaseIs>10
Picture1.Height=Picture1.Height-10
EndSelect
SelectCasePicture1.Width
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
Picture1.Width=Form1.ScaleWidth
EndSub
PrivateSubForm_Load()
Picture1.Picture=LoadPicture("c:
\Program Files\Microsoft Office\Office\Bitmaps\styles\Globe.wmf")
EndSub
(3)运行情况
运行程序后,屏幕出现用户界面。
单击标题为“全屏显示”的命令按钮,系统执行相应的Click事件过程,执行结果如图3.4.4所示。
单击标题为“图形缩小”的命令按钮,可以使图形逐渐缩小。
单击标题为“图形放大”的命令按钮,可以使图形逐渐放大。
单击工具栏上的“结束”按钮,系统结束程序的执行。
图3.4.4执行结果
6.编一程序产生一个字体浏览器。
要求用一个列表框显示系统当前可供选择的字体,另一个列表框显示系统当前可供选择的字体大小,并使用标签显示所选字体及其大小样例。
解答:
(1)界面设计和属性设置
在窗体上建立四个标签、两个列表框。
窗体和窗体上控件的主要属性设置如表3.4.6所示。
表3.4.6属性设置
控件名称
属性名
属性值
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()
Label4.FontName=List1.Text
EndSub
PrivateSubList2_Click()
Label4.FontSize=List2.Text
EndSub
(3)运行情况
运行程序后,系统执行事件过程Form_Load,并在屏幕上显示用户界面。
单击列表框List1上某一复选框,例如,“华文新魏”前面的复选框,系统执行相应的Click事件过程。
然后单击列表框List2上某一复选框,例如,“20”前面的复选框,系统执行相应的Click事件过程。
执行结果如图3.4.7所示。
单击工具栏上的“结束”按钮,系统结束程序的执行。
图3.4.7执行结果
7.编写一个用于演示颜色合成情况的程序。
要求使用滚动条作为红、绿和蓝三种基色值的输入控件。
(提示:
使用RGB函数对输入的三种基色进行合成得到复合颜色)
解答:
(1)界面设计和属性设置
在窗体上建立四个标签和三个滚动条。
窗体和窗体上控件的主要属性设置如表3.4.7所示。
表3.4.7属性设置
控件名称
属性名
属性值
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()
Label1.Caption="红色份量值:
"&HScroll1.Value
Label4.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)
EndSub
PrivateSubHScroll2_Scroll()