vb课后练习答案习题解答.doc

上传人:wux****ua 文档编号:9450402 上传时间:2020-04-05 格式:DOC 页数:14 大小:1.21MB
返回 下载 相关 举报
vb课后练习答案习题解答.doc_第1页
第1页 / 共14页
vb课后练习答案习题解答.doc_第2页
第2页 / 共14页
vb课后练习答案习题解答.doc_第3页
第3页 / 共14页
点击查看更多>>
资源描述
第4章 常用控件41 填空题1在图片框上放置的控件称为图片框的( )对象,而窗体是图片框的( )对象。答案:子对象、父对象2窗体的“名称”(Name)属性只能在( )设置。答案:属性窗口中3在程序中设置窗体Forml的Caption属性为“主窗体”,使用的赋值语句是( )。答案:Forml.Caption=“主窗体”4当窗体的Enabled属性为( )时,指定窗体响应事件。答案:True5窗体的Unload事件是在QueryUnload事件发生之( )发生。答案:之后6程序中,把当前窗体移动到屏幕左上角使用的方法为( )。答案:Move 0,07在窗体Form1中坐标为(1600,800)的位置上输出字符串“Visual BASIC 6.0”使用的语句为( )、( )、和( )。答案:Form1.Currrentx=1600、Form1.Currenty=800、Form1.Print “Visual BASIC 6.0”8若使文本框有边框,需设置BorderStyle属性的值为( )。答案:19在程序运行期间,用户可以用文本框显示信息。文本框接受输入的内容的属性是( )。答案:Text10若使文本框内能够接受多行文本,则要设置Multiline属性的值为( )。答案:True11要把图形文件“c:samplediannt.jpg”装载到图片框Picture1上,使用的语句为( )。答案:Picture1. Picture=LoadPicture(“c:samplediannt.jpg”)12若使图片框自动调整大小以适应装入的图形,则要设置Autosize属性的值为( )。答案:True13除了在程序使用LoadPicture函数装载图形外,还可以在设计阶段通过修改( )属性装载图形。答案:Picture14若程序中要把一些文本内容输出到图片框PictureBox,应使用( )方法。答案:Print15当单选按钮OptionButton的Value属性为( )时,表示该单选按钮处于未选中状态。答案:False16若使命令按钮Command1重新生效,则使用的赋值语句为( )。答案:Command1.Enabled=True17 若使命令按钮不能接收和响应任何事件,可以设置Visible属性的值为( )。答案:False18只有控件对象的Enabled和Visible属性值都为( )时,该控件对象才能接受焦点。答案:True19Tab顺序是由建立控件时的( )来确定。答案:先后顺序20设置框架Frame上的文本内容需要使用( )属性。答案:Caption21在框架上可以设置一组相关控件,这些控件作为框架的( )控件,它们具有总体的激活/屏蔽特性。答案:子22若屏蔽框架上的控件对象,则需设置( )属性的值为False。答案:Enabled23列表框ListBox中项目的序号从( )开始到( )结束。答案:0、Listcount-124要显示列表框List1中序号为3项目内容,语句为( )。答案:Print List1.List(3)25向组合框Combo2添加序号为5,内容为“计算机学院”的项目,使用的语句为( )。答案:Combo2.AddItem “计算机学院”,526要删除组合框Combo1序号为3的项目,使用的语句为( )。答案:Combo1.ReMoveItem 327使用滚动条ScrollBar时,若要设置当用鼠标单击两个滚动箭头之间区域的滚动幅度,需使用( )属性。答案:LargeChange28若要设置水平或垂直滚动条的最小值,需使用( )属性。答案:Min29计时器Timer每经过一个由InterVal属性指定的时间间隔就会触发一次( )事件。答案:Timer30若要使计时器每0.5钞钟触发一次Timer事件,则要把InterVal属性值设置为( )。答案:50042 选择题1窗体标题栏的显示内容由窗体的( )属性决定。a) Nameb)Captionc)BackColord)Enabled答案:b2当窗体被装入内存时,系统将自动执行( )事件过程。a) Loadb)Activatec)Unloadd)QueryUnload答案:a、b3在标签框上显示的内容由( )属性来实现。 a) Nameb) Captionc) Textd) ForeColor答案:b4要使标题在标签框内居中显示,Alignment属性的取值应为( )。 a) 0b) 1c) 2d) 3答案:25若使标签框根据所显示内容自动调整其大小,则可以通过设置( )属性值为True来实现。 a) AutoSizeb) Alignmentc) Enabledd) Visible答案:a6文本框没有( )属性。 a) BackColor b) Enabled c) Visible d) Caption答案:d7如果设置文本框最多可以接受的字符数,则可以使用( )属性。 a) Lengthb) Multilinec) Maxd) MaxLength答案:d8在文本框中设置垂直滚动条,要使ScrollBars的值为( )。 a) 0b) 1c) 2d) 3答案:c9在运行程序时,要使文本框获得焦点,则需使用( )方法。 a) Changeb) SetFocusc) GotFocusd) Move 答案:b10下列控件中,没有AutoSize属性的是( )。 a) 标签b) 文本框c) 图片框d) 图像框答案:b、d11若把图片框Picture1中的图形清除,可以使用的语句是( )。 a) Picture1.Del b) Picture1. Picture=LoadPicture() c) Picture1. Picture= LoadPicture( ) d) Picture1. Picture=Nothing答案:b、c、d12命令按钮上的文本内容由( )属性来设置。 a) Textb) Captionc) Named) Show答案:b13若将命令按钮设置为默认选择命令按钮,可以通过( )属性来实现。 a) Valueb) Cancelc) Defaultd) Enabled答案:c14要使命令按钮失效,则可以设置( )属性的值为False来实现。 a) Valueb) Enabledc) Visibled) Cancel答案:b15若使命令按钮在屏幕不可见,则可以通过修改( )属性实现。 a) Valueb) Enabledc) Visibled) Cancel答案:c16当复选框Value属性值为( )表示该复选框被选中。 a) 0b) 1c) 2d) 3 答案:b17改变控件的Tab顺序可以修改( )属性值。 a) Visibleb) Enabledc) TabStopd) TabIndex答案:d18下列控件中( )不能接受GetFocus和LostFocus事件。 a) 命令按钮b) 组合框c) 复选按钮d) 计时器答案:d19要使列表框中的项目垂直滚动,应设置Columns属性值为( )。 a) 0b) 1c) 2d) 3答案:a20若要得到列表框中项目的数目,可以访问( )属性。 a) Listb) ListIndexc) ListCountd) Text答案:c21设置列表框的选择方式,应使用( )属性。 a) Columnsb) MultiSelectc) Styled) List答案:b22若要清除列表框的所有项目内容,可以使用( )方法。 a) AddItemb) ReMovec) Cleard) Print答案:c23删除列表框中的某一个项目,需要使用( )方法。 a) Clearb) ReMovec) Moved) ReMoveItem答案:d24在组合框中选择某一项目内容,可以通过( )属性获得。 a) Listb) ListIndexc) ListCountd) Text答案:d25若要获得滚动条的当前位置,可以通过访问( )属性来实现。 a) Valueb) Maxc) Mind) LargeChange答案:a26当用鼠标拖动滚动块时触发( )事件。 a) Moveb) Changec) Scrolld) GotFocus答案:b、c27设置计时器的时间间隔可以通过( )属性来实现。 a) Valueb) Textc) Maxd) InterVal答案:d28暂时关闭计时器,需设置()属性。a) Visibleb) Enabledc) Lockd) Cancel答案:b43 解答题 1. 在VB集成环境中,用属性窗口设置字体(Font)属性时,系统将弹出一个对话框(见教材图4-10),指出该对话框中包含些什么控件?答:在该对话框中包含列表框、命令按钮、框架、复选框和文本框等控件。2设Text1为某一文本框名,下列程序段的输出结果是什么?Text1.Text = abcdefghijk Text1.selstart = 3Text1.sellength = 5Print Text1.SelText答:输出结果是:defgh3标签和文本框有什么区别?答:标签一般用于显示一小段不需要用户修改的文本,被显示的文本通过Caption属性确定,它作为输出控件而存在,即可以使用它输出数据。文本框是VB在窗体中为用户提供一个既能够显示又能够编辑文本的控件对象,它作为输入和输出控件而存在,即可以使用它输入输出数据。在文本框内,我们还可以按常用的方法进行文字的编辑。例如,可以进行选择、删除、复制、粘贴、替换等各种操作。4. 比较用Print方法输出和用标签输出的优缺点。答:Print方法是专门向控件输出数据的一种方法,这些控件包括窗体、图片框、打印机等。标签是利用它的Caption属性来输出数据的一种控件。利用Print方法可以直接把数据在窗体、图片框等控件上显示出来,而如果使用标签在窗体、图片框等控件上显示数据,则必须先在相应的控件上放置一个标签,然后才能在标签上输出。使用Print方法和标签输出的文本,其字体、尺寸、颜色都可以改变。而通过改变标签的相关属性,很容易改变标签中显示的内容的字体、尺寸、颜色等。标签中显示的内容只能用同一种字体、尺寸、颜色显示,而使用Print方法可以使每次输出的内容的字体、尺寸、颜色等有所不同。5图片框和图像框的作用是什么?它们之间有什么区别?在什么情况下可以相互代替?在什么情况下必须使用图片框?答:图片框和图像框的作用是在窗体的指定位置上显示图形信息,它们以基本相同的方式出现在窗体上,都可以放置各种VB可识别的图形文件。图片框和图像框的主要区别是:图片框可以作为其他控件的父对象,而且可以通过Print方法输出文本信息;而图像框只能显示图形信息。若不显示文本信息和设置子控件时,它们可以相互代替,否则,必须使用图片框。6框架的作用是什么?如何在框架中建立控件?答:框架的作用是对窗体上的控件对象进行分组,我们可以把相同类型或不同类型的控件对象放在同一个框架上。在框架中建立控件对象的方法为:先双击工具箱上的框架控件对象,这时在窗体的中间出现一个带有Frame1字样的框架控件对象,使用鼠标把它拖到窗体中的预定位置和适当调整大小。然后,双击工具箱上需放在框架上的控件对象,这时在窗体的中间出现该控件对象。单击工具栏上的“剪切”按钮,把该控件对象剪切到剪贴板。单击框架Frame1和单击工具栏上的“粘贴”按钮。此时,该控件对象就作为框架Frame1中的控件,使用鼠标把它拖到框架Frame1中的预定位置和适当调整大小。再以相同的做法, 把其它控件对象放在框架上。 44 编程题1. 编一程序能够实现:每次单击命令按钮Command1能使标签Label1上的文字在窗体Form1上往右移动100缇,当标签在窗体Form1上往右移出窗体的右边界时,再次单击命令按钮Command1能使标签回到窗体的左边界。解答:(1)界面设计和属性设置在窗体上建立一个标签和两个命令按钮。窗体和窗体上控件的主要属性设置如表3.4.1所示。 表3.4.1 属性设置 控件名称 属性名 属性值 Form1 Caption使标签往右移Label1 CaptionFontNameFontSize欢迎使用VB!隶书三号字 Command1Caption 移动 Command2 Caption 结束(2) 程序代码Private Sub Command1_Click() If Label1.Left Form1.ScaleWidth Then Label1.Left = 0 Else Label1.Left = Label1.Left + 100 End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub(3) 运行情况运行程序后,屏幕出现用户界面。每次单击标题为“移动”的命令按钮,系统执行相应的Click事件过程,使标签往右移100缇。右移出窗体的右边界时,再次单击单击标题为“移动”的命令按钮又能使标签回到窗体的左边界。执行情况如图3.4.1所示。单击标题为“结束”的命令按钮,结束程序的执行。 图3.4.1 执行情况3在文本框中输入算术表达式,并以回车符作为输入结束标志。对表达式中的圆括号是否配对进行检查,且给出配对或不配对信息。若配对,则给出“左右圆括号配对”的信息;否则,给出“左圆括号多于右圆括号”或“右圆括号多于左圆括号”的信息。解答:(1)界面设计和属性设置在窗体上建立一个文本框。窗体和文本框的主要属性设置如表3.4.3所示。 表3.4.3 属性设置 控件名称 属性名 属性值 Form1 Caption判别算术表达式中的圆括号是否配对 Text1 Text 空串(2)程序代码Option ExplicitDim n As IntegerPrivate Sub Text1_KeyPress(KeyAscii As Integer) Cls If Chr(KeyAscii) = ( Then n = n + 1 ElseIf Chr(KeyAscii) = ) Then n = n - 1 End If Print: Print: Print If KeyAscii = 13 Then If n = 0 Then Print Tab(18); 左右圆括号配对! ElseIf n 0 Then Print Tab(15); 左圆括号多于右圆括号! Else Print Tab(15); 右圆括号多于左圆括号! End If End IfEnd SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)ClsText1.Text = n = 0End Sub(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一幅图片(在程序中装入) Command1Caption 图片放大 Command2 Caption 图片缩小 Command3 Caption 全屏显示(2)程序代码Private Sub Command1_Click() If Picture1.Height 50 Then Picture1.Height = Picture1.Height + 50 End If End If If Form1.ScaleWidth - Picture1.Width 70 Then Picture1.Width = Picture1.Width + 70 End IfEnd SubPrivate Sub Command2_Click() Select Case Picture1.Height Case Is 50 Picture1.Height = Picture1.Height - 50 Case Is 30 Picture1.Height = Picture1.Height - 30 Case Is 10 Picture1.Height = Picture1.Height - 10 End Select Select Case Picture1.Width Case Is 100 Picture1.Width = Picture1.Width - 100 Case Is 50 Picture1.Width = Picture1.Width - 50 Case Is 30 Picture1.Width = Picture1.Width - 30Case Is 10 Picture1.Width = Picture1.Width - 10 End SelectEnd SubPrivate Sub Command3_Click() Picture1.Height = Form1.ScaleHeight - 1000 Picture1.Width = Form1.ScaleWidthEnd SubPrivate Sub Form_Load()Picture1.Picture=LoadPicture(c:ProgramFilesMicrosoftOffice OfficeBitmapsstylesGlobe.wmf)End Sub (3)运行情况运行程序后,屏幕出现用户界面。单击标题为“全屏显示”的命令按钮,系统执行相应的Click事件过程,执行结果如图3.4.4所示。单击标题为“图形缩小”的命令按钮,可以使图形逐渐缩小。单击标题为“图形放大”的命令按钮,可以使图形逐渐放大。单击工具栏上的“结束”按钮,系统结束程序的执行。 图3.4.4 执行结果6编一程序产生一个字体浏览器。要求用一个列表框显示系统当前可供选择的字体,另一个列表框显示系统当前可供选择的字体大小,并使用标签显示所选字体及其大小样例。解答:(1)界面设计和属性设置在窗体上建立四个标签、两个列表框。窗体和窗体上控件的主要属性设置如表3.4.6所示。 表3.4.6 属性设置 控件名称 属性名 属性值 Form1 Caption字体浏览器 Label1 Caption 字体选择 Label2Caption 字体大小选择 Label3Caption 样例 Label4CaptionBorderStyle中文字体演示 1 List1 Style 1 List2 Style 1(2)程序代码Option ExplicitPrivate Sub Form_Load() Dim i As Integer For i = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(i) Next i For i = 8 To 12 List2.AddItem Trim(Str(i) Next i For i = 14 To 72 Step 2 List2.AddItem Trim(Str(i) Next iEnd SubPrivate Sub List1_Click() Label4.FontName = List1.TextEnd SubPrivate Sub List2_Click() Label4.FontSize = List2.TextEnd Sub(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 红色份量值: Label2Caption 绿色份量值: Label3Caption 蓝色份量值: Label4CaptionBorderStyle空串 1 Hscroll1MaxLargeChange2555 Hscroll2 MaxLargeChange2555 Hscroll3MaxLargeChange2555(2)程序代码Private Sub HScroll1_Scroll() Label1.Caption = 红色份量值: & HScroll1.Value Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll2_Scroll() Label2.Caption = 绿色份量值: & HScroll2.Value Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll3_Scroll() Label3.Caption = 蓝色份量值: & HScroll3.Value Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End Sub(3)运行情况运行程序后,屏幕出现用户界面。把鼠标移到各个滚动条的滚动块,然后单击并拉着滚动块移动一段距离,系统执行相应的事件过程。执行结果如图3.4.8所示。 图3.4.8 执行结果8编写程序,把某一图形装入一个图像框中,并使它能在窗体上从左至右往返不断移动。(提示:使用窗体的Left属性和计时器控件)解答:(1)界面设计和属性设置在窗体上建立一个图像框、一个计时器和一个命令按钮。窗体和窗体上控件的主要属性设置如表3.4.8所示。 表3.4.8 属性设置 控件名称 属性名 属性值 Form1 Caption使图片往返移动 Image1 Pictrue一幅图片(在程序中装入) Timer1 Interval10(在程序中给定) Command1Caption 停止移动(2)程序代码Option ExplicitDim x, f As IntegerPrivate Sub Form_Load() Image1.Picture=LoadPicture(c:ProgramFilesMicrosoftOffice OfficeBitmapsDbwizEvtmgmt.gif) Timer1.Interval = 10 设定Timer事件每隔10毫秒发生一次End SubPrivate Sub Timer1_Timer() Select Case f f =0则向左移动 ,f =1则向右移动 Case 0 If x -3000 Then x = x - 100 Else f = 0 使图片向左移动 End Select Image1.Left = x 把图像框的左上角水平移到x的位置End SubPrivate Sub Command1_Click() EndEnd Sub(3)运行情况运行程序后,屏幕出现一幅往返移动的图片。单击标题为“停止移动”的命令按钮,系统执行相应的Click事件过程,结束程序的执行。
展开阅读全文
相关资源
相关搜索

当前位置:首页 > 图纸专区 > 考试试卷


copyright@ 2023-2025  zhuangpeitu.com 装配图网版权所有   联系电话:18123376007

备案号:ICP2024067431-1 川公网安备51140202000466号


本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知装配图网,我们立即给予删除!