VB课本习题答案.docx

第4章 常用控件41 填空题1在图片框上放置的控件称为图片框的（ 子 ）对象，而窗体是图片框的（ 父 ）对象。2窗体的“名称”（Name）属性只能在（ 属性窗口中 ）设置。3在程序中设置窗体Forml的Caption属性为“主窗体”，使用的赋值语句是（ Forml.Caption = ”主窗体” ）。4当窗体的Enabled属性为（ True ）时，指定窗体响应事件。5窗体的Unload事件是在QueryUnload事件发生之（ 后 ）发生。6程序中，把当前窗体移动到屏幕左上角使用的方法为（ Move 0,0 ）。7在窗体Form1中坐标为（ 1600，800 ）的位置上输出字符串“Visual BASIC 6.0”使用的语句为（ Form1.Currrentx=1600 ）、（ Form1.Currenty=800 ）、和（ Form1.Print “Visual BASIC 6.0” ）。8若使文本框有边框，需设置BorderStyle属性的值为（ 1 ）。9在程序运行期间，用户可以用文本框显示信息。文本框接受输入的内容的属性是（ Text ）。10若使文本框内能够接受多行文本，则要设置Multiline属性的值为（ True ）。11要把图形文件“c:samplediannt.jpg”装载到图片框Picture1上，使用的语句为（ Picture1. Picture=LoadPicture(“c:samplediannt.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 ）时，该控件对象才能接受焦点。19Tab顺序是由建立控件时的（ 先后顺序 ）来确定。20设置框架Frame上的文本内容需要使用（ Caption ）属性。21在框架上可以设置一组相关控件，这些控件作为框架的（ 子 ）控件，它们具有总体的激活/屏蔽特性。22若屏蔽框架上的控件对象，则需设置（ Enabled ）属性的值为False。23列表框ListBox中项目的序号从（ 0 ）开始到（ Listcount-1 ）结束。24要显示列表框List1中序号为3项目内容，语句为（ Print List1.List(3) ）。25向组合框Combo2添加序号为5，内容为“计算机学院”的项目，使用的语句为（ Combo2.AddItem “计算机学院”，5 ）。26要删除组合框Combo1序号为3的项目，使用的语句为（ Combo1.ReMoveItem 3 ）。27使用滚动条ScrollBar时，若要设置当用鼠标单击两个滚动箭头之间区域的滚动幅度，需使用（ LargeChange ）属性。28若要设置水平或垂直滚动条的最小值，需使用（ Min ）属性。29计时器Timer每经过一个由InterVal属性指定的时间间隔就会触发一次（ Timer ）事件。30若要使计时器每0.5钞钟触发一次Timer事件，则要把InterVal属性值设置为（ 500 ）。42 选择题1窗体标题栏的显示内容由窗体的（ b ）属性决定。a) Nameb)Captionc)BackColord)Enabled2当窗体被装入内存时，系统将自动执行（ a, b )事件过程。a) Loadb)Activatec)Unloadd)QueryUnload3在标签框上显示的内容由（ b ）属性来实现。 a) Nameb) Captionc) Textd) ForeColor4要使标题在标签框内居中显示，Alignment属性的取值应为（ 2 ）。 a) 0b) 1c) 2d) 35若使标签框根据所显示内容自动调整其大小，则可以通过设置（ a ）属性值为True来实现。 a) AutoSizeb) Alignmentc) Enabledd) Visible6文本框没有（ d ）属性。 a) BackColorb) Enabledc) Visibled) Caption7若设置文本框最多可以接受的字符数，则可以使用（ d ）属性。 a) Lengthb) Multilinec) Maxd) MaxLength8在文本框中设置垂直滚动条，要使ScrollBars的值为（ c ）。 a) 0b) 1c) 2d) 39在运行程序时，要使文本框获得焦点，则需使用（ b ）方法。 a) Changeb) SetFocusc) GotFocusd) Move 10下列控件中，没有AutoSize属性的是（ b, d ）。 a) 标签b) 文本框c) 图片框d) 图像框11若把图片框Picture1中的图形清除，可以使用的语句是（ b, c, d ）。 a) Picture1.Del b) Picture1. Picture=LoadPicture() c) Picture1. Picture= LoadPicture( ) d) Picture1. Picture=Nothing12命令按钮上的文本内容由（ b ）属性来设置。 a) Textb) Captionc) Named) Show13若将命令按钮设置为默认选择命令按钮，可以通过（ c ）属性来实现。 a) Valueb) Cancelc) Defaultd) Enabled14要使命令按钮失效，则可以设置（ b ）属性的值为False来实现。 a) Valueb) Enabledc) Visibled) Cancel15若使命令按钮在屏幕不可见，则可以通过修改（ c ）属性实现。 a) Valueb) Enabledc) Visibled) Cancel16当复选框Value属性值为（ b ）表示该复选框被选中。 a) 0b) 1c) 2d) 3 17改变控件的Tab顺序可以修改（ d ）属性值。 a) Visibleb) Enabledc) TabStopd) TabIndex18下列控件中（ d ）不能接受GotFocus和LostFocus事件。 a) 命令按钮b) 组合框c) 复选按钮d) 计时器19要使列表框中的项目垂直滚动，应设置Columns属性值为（ a ）。 a) 0b) 1c) 2d) 320若要得到列表框中项目的数目，可以访问（ c ）属性。 a) Listb) ListIndexc) ListCountd) Text21设置列表框的选择方式，应使用（ b ）属性。 a) Columnsb) MultiSelectc) Styled) List22若要清除列表框的所有项目内容，可以使用（ c ）方法。 a) AddItemb) ReMovec) Cleard) Print23删除列表框中的某一个项目，需要使用（ d ）方法。 a) Clearb) ReMovec) Moved) ReMoveItem24在组合框中选择某一项目内容，可以通过（ d ）属性获得。 a) Listb) ListIndexc) ListCountd) Text25若要获得滚动条的当前位置，可以通过访问（ a ）属性来实现。 a) Valueb) Maxc) Mind) LargeChange26当用鼠标拖动滚动块时触发（ b, c ）事件。 a) Moveb) Changec) Scrolld) GotFocus27设置计时器的时间间隔可以通过（ d ）属性来实现。 a) Valueb) Textc) Maxd) InterVal28暂时关闭计时器，需设置（b ）属性。a) Visibleb) Enabledc) Lockd) Cancel43 问答题 1. 在VB集成环境中，用属性窗口设置字体（Font）属性时，系统将弹出一个对话框（见图4-10），指出该对话框中包含些什么控件？答：在该对话框中包含列表框、命令按钮、框架、复选框和文本框等控件。2设Text1为某一文本框名，下列程序段的输出结果是什么？Text1.Text = abcdefghijk Text1.selstart = 3Text1.sellength = 5Print Text1.SelText答：输出结果是：defgh3标签和文本框有什么区别？答：参见教材 4.3。4. 比较用Print方法输出和用标签输出的优缺点。答：窗体、图片框和打印机等具有Print方法，用于直接输出文本。输出格式、字体风格通过语句中的格式控制和对象的字体属性共同完成。Print方法只有在程序运行后，执行代码才能显示结果。标签控件利用Caption属性输出文本，可以通过字体属性设置显示风格。其属性可以在设计阶段给定，也可以在程序运行时改变。标签控件是窗体的子对象，主要用于界面设计，不能输出复杂格式的数据，特别地，不能直接把输出送到外部设备，如打印机。5图片框和图象框的作用是什么？它们之间有什么区别？在什么情况下可以相互代替？在什么情况下必须使用图片框？答：参见教材4.4。6框架的作用是什么？如何在框架中建立控件？答：参见教材4.6。 44 编程题1. 编一程序能够实现：每次单击命令按钮Command1能使标签Label1上的文字在窗体Form1上往右移动100缇，当标签在窗体Form1上往右移出窗体的右边界时，再次单击命令按钮Command1能使标签回到窗体的左边界。解答：(1) 界面设计和属性设置在窗体上建立一个标签和两个命令按钮。窗体和窗体上控件的主要属性设置如表3-4-1所示。表3-4-1 第1题的属性设置控件名称属性名属性值Form1Caption使标签往右移Label1CaptionFontNameFontSize欢迎使用VB！隶书三号字Command1Caption移动Command2Caption结束（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）运行情况运行程序后，屏幕出现用户界面。每单击一次标题为“移动”的命令按钮，执行Command1_Click事件过程，使标签往右移100缇。右移出窗体的右边界时，再次单击“移动”命令按钮，标签回到窗体的左边界。执行情况如图3.4.1所示。图3.4.1 第1题的执行情况2编写一个把某些英文单词翻译为中文单词的简单程序。要求用户界面为一个窗体，窗体左侧是一个文本框，用户在这里输入想要翻译的英文单词（注意输入一个新的单词之前应清除原有内容）；窗体中间是一个命令按钮，在该命令按钮上面显示“翻译”两字；窗体右侧也是一个文本框；当程序运行时，用户按下命令按钮后，窗体右侧的文本框显示单词的中文意思。如果找不到想要翻译的英文单词，则给出相应的信息。解答：(1) 界面设计和属性设置在窗体上建立两个标签、两个文本框和一个命令按钮。窗体和窗体上控件的主要属性设置如表3-4-2所示。表3-4-2 第2题的属性设置 控件名称 属性名 属性值 Form1 Caption英文单词翻译为中文单词 Label1 Caption 英文 Label2Caption 中文 Text1 Text 空串 Text2 Text 空串 Command1Caption 翻译(2) 程序代码Private Sub Form_Load() Text1.Text = : Text2.Text = End SubPrivate Sub Command1_Click() Select Case LCase(Trim(Text1.Text) Case china Text2.Text = 中国 Case france Text2.Text = 法国 Case england Text2.Text = 英国 Case america Text2.Text = 美国 Case india Text2.Text = 印度 Case Else Text2.Text = 找不到该单词！ End SelectEnd SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = : Text2.Text = End Sub(3) 运行情况上机运行程序后，屏幕出现用户界面。此时，把鼠标移到Text1文本框并单击，然后输入英文国家名，例如，China。英文国家名输入后，单击标题为“翻译”的命令按钮，系统执行相应的Click事件过程。执行结果如图3.4.2所示。单击工具栏上的“结束”按钮，系统结束程序的执行。图3.4.2 第2题的执行结果3在文本框中输入算术表达式，并以回车符作为输入结束标志。对表达式中的圆括号是否配对进行检查，且给出配对或不配对信息。若配对，则给出“左右圆括号配对”的信息；否则，给出“左圆括号多于右圆括号”或“右圆括号多于左圆括号”的信息。解答：(1) 界面设计和属性设置在窗体上建立一个文本框。窗体和文本框的主要属性设置如表3-4-3所示。表3-4-3 第3题的属性设置 控件名称 属性名 属性值 Form1 Caption判别算术表达式中的圆括号是否配对 Text1 Text 空串(2) 程序代码Dim 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 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文本框上。输入算术表达式，然后按回车键，执行Text1_KeyPress事件过程。执行结果如图3.4.3所示。若输入另一个算术表达式，可以单击Text1文本框，再次输入算术表达式和按回车键，执行Text1_MouseDown事件过程。图3.4.3 第3题的执行结果4编写一个程序，把某一图形装入到一个图片框中，且能实现该图形的放大、缩小和全屏显示。解答：(1) 界面设计和属性设置在窗体上建立一个图片框和三个命令按钮。窗体和窗体上控件的主要属性设置如表3-4-4所示。表3-4-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:ProgramFilesMicrosoftOfficeOfficeBitmapsstylesGlobe.wmf)End Sub (3) 运行情况运行程序后，单击不同的命令按钮，系统执行相应的Click事件过程。执行结果如图3.4.4所示。图3.4.4 第4题的执行结果5. 编写一个求三角函数值的程序。在程序中，用户可以选择输入角度或弧度值，也可以选择计算一种三角函数(例如，正弦、余弦、正切等)的值，且能把计算的结果显示出来。要求分别使用两组单选按钮进行输入选择和计算选择，每组单选按钮存放在一个框架中；用文本框输入角度或弧度值，用标签输出计算结果。解答：(1) 界面设计和属性设置在窗体上建立两个标签、两个文本框和两个框架。一个框架包含两个单选按钮，另一个框架包含三个单选按钮。窗体和窗体上控件的主要属性设置如表3-4-5所示。表3-4-5 第5题的属性设置 控件名称 属性名 属性值 Form1 Caption计算三角函数的值 Label1Caption 输入 Label2Caption 输出 Text1 Text 空串 Text2 Text 空串 Frame1Caption 输入选择Option1Caption 角度 Option2Caption 弧度 Frame2 Caption 函数选择 Option3Caption 正弦 Option4Caption 余弦 Option5 Caption 正切(2) 程序代码Const Pi = 3.14159265Private Sub Form_Load() Option1.Value = True Option3.Value = True Text1.Text = : Text2.Text = End SubPrivate Sub Text1_Change()Dim X As Single If (Option1.Value) Then X = Val(Text1.Text) * Pi / 180 Else X = Val(Text1.Text) End If If (Option3.Value) Then Text2.Text = Sin(X) ElseIf (Option4.Value) Then Text2.Text = Cos(X) ElseIf (Option5.Value) Then Text2.Text = Tan(X) End IfEnd SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = : Text2.Text = End Sub(3) 运行情况运行程序后，在文本框Text1输入角度，系统执行Text1_Change事件过程。执行结果如图3.4.5所示。单击标题为“弧度”的单选按钮和标题为“余弦”的单选按钮，鼠标单击文本框Text1，输入弧度，系统执行Text1_Change事件过程,执行结果如图3.4.6所示。 图3.4.5 第5题的执行结果(a) 图3.4.6 第5题的执行结果(b)6编写一个程序，产生一个字体浏览器。要求用一个列表框显示系统当前可供选择的字体，另一个列表框显示系统当前可供选择的字体大小，并且使用标签显示所选字体及其大小样例。解答：(1)界面设计和属性设置在窗体上建立四个标签、两个列表框。窗体和窗体上控件的主要属性设置如表3-4-6所示。表3-4-6 第6题的属性设置 控件名称 属性名 属性值 Form1 Caption字体浏览器 Label1 Caption 字体选择 Label2Caption 字体大小选择 Label3Caption 样例 Label4CaptionBorderStyle中文字体演示 1 List1 Style 1 List2 Style 1(2) 程序代码Private 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上某一复选框，选择字体。然后单击右边列表框List2上的某一复选框，选择字号，系统执行相应的事件过程。执行结果如图3.4.7所示。图3.4.7 第6题的执行结果7. 编写一个用于演示颜色合成情况的程序。要求使用滚动条作为红、绿和蓝三种基色值的输入控件。（提示：使用RGB函数对输入的三种基色进行合成得到复合颜色）解答：(1) 界面设计和属性设置在窗体上建立四个标签和三个滚动条。窗体和窗体上控件的主要属性设置如表3-4-7所示。表3-4-7 第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.V