vb课后练习答案习题解答参考

1、文档供参考，可复制、编制，期待您的好评与关注！ 第4章 常用控件41 填空题1在图片框上放置的控件称为图片框的（ ）对象，而窗体是图片框的（ ）对象。答案：子对象、父对象2窗体的“名称”（Name）属性只能在（ ）设置。答案：属性窗口中3在程序中设置窗体Forml的Caption属性为“主窗体”，使用的赋值语句是（ ）。答案：Forml.Caption=“主窗体”4当窗体的Enabled属性为（ ）时，指定窗体响应事件。答案：True5窗体的Unload事件是在QueryUnload事件发生之（ ）发生。答案：之后6程序中，把当前窗体移动到屏幕左上角使用的方法为（ ）。答案：Move 0,07

2、在窗体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”装

3、载到图片框Picture1上，使用的语句为（ ）。答案：Picture1. Picture=LoadPicture(“c:samplediannt.jpg”)12若使图片框自动调整大小以适应装入的图形，则要设置Autosize属性的值为（ ）。答案：True13除了在程序使用LoadPicture函数装载图形外，还可以在设计阶段通过修改（ ）属性装载图形。答案：Picture14若程序中要把一些文本内容输出到图片框PictureBox，应使用（ ）方法。答案：Print15当单选按钮OptionButton的Value属性为（ ）时，表示该单选按钮处于未选中状态。答案：False16若使命令按

4、钮Command1重新生效，则使用的赋值语句为（ ）。答案：Command1.Enabled=True17 若使命令按钮不能接收和响应任何事件，可以设置Visible属性的值为（ ）。答案：False18只有控件对象的Enabled和Visible属性值都为（ ）时，该控件对象才能接受焦点。答案：True19Tab顺序是由建立控件时的（ ）来确定。答案：先后顺序20设置框架Frame上的文本内容需要使用（ ）属性。答案：Caption21在框架上可以设置一组相关控件，这些控件作为框架的（ ）控件，它们具有总体的激活/屏蔽特性。答案：子22若屏蔽框架上的控件对象，则需设置（ ）属性的值为Fals

5、e。答案：Enabled23列表框ListBox中项目的序号从（ ）开始到（ ）结束。答案：0、Listcount-124要显示列表框List1中序号为3项目内容，语句为（ ）。答案：Print List1.List(3)25向组合框Combo2添加序号为5，内容为“计算机学院”的项目，使用的语句为（ ）。答案：Combo2.AddItem “计算机学院”，526要删除组合框Combo1序号为3的项目，使用的语句为（ ）。答案：Combo1.ReMoveItem 327使用滚动条ScrollBar时，若要设置当用鼠标单击两个滚动箭头之间区域的滚动幅度，需使用（ ）属性。答案：LargeChan

6、ge28若要设置水平或垂直滚动条的最小值，需使用（ ）属性。答案：Min29计时器Timer每经过一个由InterVal属性指定的时间间隔就会触发一次（ ）事件。答案：Timer30若要使计时器每0.5钞钟触发一次Timer事件，则要把InterVal属性值设置为（ ）。答案：50042 选择题1窗体标题栏的显示内容由窗体的（ ）属性决定。a) Nameb）Captionc）BackColord）Enabled答案：b2当窗体被装入内存时，系统将自动执行（ ）事件过程。a) Loadb）Activatec）Unloadd）QueryUnload答案：a、b3在标签框上显示的内容由（ ）属性来实

7、现。 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) Multi

8、linec) 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("&q

9、uot;) 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若使命令按钮在屏幕不可

10、见，则可以通过修改（ ）属性实现。 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答案：a2

11、0若要得到列表框中项目的数目，可以访问（ ）属性。 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)

12、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.

13、 在VB集成环境中，用属性窗口设置字体（Font）属性时，系统将弹出一个对话框（见教材图4-10），指出该对话框中包含些什么控件？答：在该对话框中包含列表框、命令按钮、框架、复选框和文本框等控件。2设Text1为某一文本框名，下列程序段的输出结果是什么？Text1.Text = "abcdefghijk "Text1.selstart = 3Text1.sellength = 5Print Text1.SelText答：输出结果是：defgh3标签和文本框有什么区别？答：标签一般用于显示一小段不需要用户修改的文本，被显示的文本通过Caption属性确定，它作为输出控件而存在

14、，即可以使用它输出数据。文本框是VB在窗体中为用户提供一个既能够显示又能够编辑文本的控件对象，它作为输入和输出控件而存在，即可以使用它输入输出数据。在文本框内，我们还可以按常用的方法进行文字的编辑。例如，可以进行选择、删除、复制、粘贴、替换等各种操作。4. 比较用Print方法输出和用标签输出的优缺点。答：Print方法是专门向控件输出数据的一种方法，这些控件包括窗体、图片框、打印机等。标签是利用它的Caption属性来输出数据的一种控件。利用Print方法可以直接把数据在窗体、图片框等控件上显示出来，而如果使用标签在窗体、图片框等控件上显示数据，则必须先在相应的控件上放置一个标签，然后才能在

15、标签上输出。使用Print方法和标签输出的文本，其字体、尺寸、颜色都可以改变。而通过改变标签的相关属性，很容易改变标签中显示的内容的字体、尺寸、颜色等。标签中显示的内容只能用同一种字体、尺寸、颜色显示，而使用Print方法可以使每次输出的内容的字体、尺寸、颜色等有所不同。5图片框和图像框的作用是什么？它们之间有什么区别？在什么情况下可以相互代替？在什么情况下必须使用图片框？答：图片框和图像框的作用是在窗体的指定位置上显示图形信息，它们以基本相同的方式出现在窗体上，都可以放置各种VB可识别的图形文件。图片框和图像框的主要区别是：图片框可以作为其他控件的父对象，而且可以通过Print方法输出文本信

16、息；而图像框只能显示图形信息。若不显示文本信息和设置子控件时，它们可以相互代替，否则，必须使用图片框。6框架的作用是什么？如何在框架中建立控件？答：框架的作用是对窗体上的控件对象进行分组，我们可以把相同类型或不同类型的控件对象放在同一个框架上。在框架中建立控件对象的方法为：先双击工具箱上的框架控件对象，这时在窗体的中间出现一个带有Frame1字样的框架控件对象，使用鼠标把它拖到窗体中的预定位置和适当调整大小。然后，双击工具箱上需放在框架上的控件对象，这时在窗体的中间出现该控件对象。单击工具栏上的“剪切”按钮，把该控件对象剪切到剪贴板。单击框架Frame1和单击工具栏上的“粘贴”按钮。此时，该控

17、件对象就作为框架Frame1中的控件，使用鼠标把它拖到框架Frame1中的预定位置和适当调整大小。再以相同的做法， 把其它控件对象放在框架上。 44 编程题1. 编一程序能够实现：每次单击命令按钮Command1能使标签Label1上的文字在窗体Form1上往右移动100缇，当标签在窗体Form1上往右移出窗体的右边界时，再次单击命令按钮Command1能使标签回到窗体的左边界。解答：(1)界面设计和属性设置在窗体上建立一个标签和两个命令按钮。窗体和窗体上控件的主要属性设置如表3.4.1所示。 表3.4.1 属性设置 控件名称 属性名 属性值 Form1 Caption使标签往右移Label1

18、 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) 运行情况运行程序后，屏幕出现用户界面。每次单击标题为“移动”的命令按钮，系

19、统执行相应的Click事件过程，使标签往右移100缇。右移出窗体的右边界时，再次单击单击标题为“移动”的命令按钮又能使标签回到窗体的左边界。执行情况如图3.4.1所示。单击标题为“结束”的命令按钮，结束程序的执行。 图3.4.1 执行情况3在文本框中输入算术表达式，并以回车符作为输入结束标志。对表达式中的圆括号是否配对进行检查，且给出配对或不配对信息。若配对，则给出“左右圆括号配对”的信息；否则，给出“左圆括号多于右圆括号”或“右圆括号多于左圆括号”的信息。解答：(1)界面设计和属性设置在窗体上建立一个文本框。窗体和文本框的主要属性设置如表3.4.3所示。 表3.4.3 属性设置 控件名称 属

20、性名 属性值 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 Th

21、en 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)运行情况

22、运行程序后，屏幕出现用户界面。焦点在Text1文本框上，输入算术表达式，例如，（1+2）*8-5），然后按回车键。每按一个键，系统都执行Text1_KeyPress事件过程。执行结果如图3.4.3所示。若继续判别另一个算术表达式的左右圆括号是否配对，可以单击Text1文本框，系统执行Text1_MouseDown事件过程。这时可以再次输入算术表达式和按回车键。单击工具栏上的“结束”按钮，系统结束程序的执行。 图3.4.3 执行结果4编写一个程序，把某一图形装入到一个图片框中，并能实现该图形的放大、缩小和全屏显示。解答：(1)界面设计和属性设置在窗体上建立一个图片框和三个命令按钮。窗体和窗体上控

23、件的主要属性设置如表3.4.4所示。 表3.4.4 属性设置 控件名称 属性名 属性值 Form1 Caption图片缩放 Picture1 Picture一幅图片（在程序中装入） Command1Caption 图片放大 Command2 Caption 图片缩小 Command3 Caption 全屏显示(2)程序代码Private Sub Command1_Click() If Picture1.Height < 2200 Then If Form1.ScaleHeight - Picture1.Height > 50 Then Picture1.Height = Pictu

24、re1.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 Cas

25、e 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 -

26、10 End SelectEnd SubPrivate Sub Command3_Click() Picture1.Height = Form1.ScaleHeight - 1000 Picture1.Width = Form1.ScaleWidthEnd SubPrivate Sub Form_Load()Picture1.Picture=LoadPicture("c:Program FilesMicrosoft Office OfficeBitmapsstylesGlobe.wmf")End Sub (3)运行情况运行程序后，屏幕出现用户界面。单击标

27、题为“全屏显示”的命令按钮，系统执行相应的Click事件过程,执行结果如图3.4.4所示。单击标题为“图形缩小”的命令按钮，可以使图形逐渐缩小。单击标题为“图形放大”的命令按钮，可以使图形逐渐放大。单击工具栏上的“结束”按钮，系统结束程序的执行。 图3.4.4 执行结果6编一程序产生一个字体浏览器。要求用一个列表框显示系统当前可供选择的字体，另一个列表框显示系统当前可供选择的字体大小，并使用标签显示所选字体及其大小样例。解答：(1)界面设计和属性设置在窗体上建立四个标签、两个列表框。窗体和窗体上控件的主要属性设置如表3.4.6所示。 表3.4.6 属性设置 控件名称 属性名 属性值 Form1

28、 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

29、(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事件过程。然后单击列表框

30、List2上某一复选框，例如，“20”前面的复选框，系统执行相应的Click事件过程。执行结果如图3.4.7所示。单击工具栏上的“结束”按钮，系统结束程序的执行。 图3.4.7 执行结果7. 编写一个用于演示颜色合成情况的程序。要求使用滚动条作为红、绿和蓝三种基色值的输入控件。（提示：使用RGB函数对输入的三种基色进行合成得到复合颜色）解答：(1)界面设计和属性设置在窗体上建立四个标签和三个滚动条。窗体和窗体上控件的主要属性设置如表3.4.7所示。 表3.4.7 属性设置 控件名称 属性名 属性值 Form1 Caption颜色合成演示 Label1 Caption 红色份量值： Label2

31、Caption 绿色份量值： 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.Capt