VB课本习题答案第四章-.pdf

《VB课本习题答案第四章-.pdf》由会员分享，可在线阅读，更多相关《VB课本习题答案第四章-.pdf（14页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第4章常用控件41 填空题1在图片框上放置的控件称为图片框的（子）对象，而窗体是图片框的（父）对象。2窗体的“名称”（Name）属性只能在（属性窗口中）设置。3 在 程 序 中 设 置 窗 体 Forml 的 Caption 属 性 为“主 窗 体”，使 用 的 赋 值 语 句 是（Forml.Caption=”主窗体”）。4当窗体的 Enabled 属性为（True ）时，指定窗体响应事件。5窗体的 Unload 事件是在 QueryUnload 事件发生之（后）发生。6程序中，把当前窗体移动到屏幕左上角使用的方法为（Move 0,0 ）。7在窗体 Form1中坐标为（1600，800 ）的

2、位置上输出字符串“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.Pic

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

4、为（Command1.Enabled=True ）。17若使命令按钮不能接收和响应任何事件，可以设置 Visible属性的值为（False ）。18只有控件对象的Enabled 和Visible属性值都为（True ）时，该控件对象才能接受焦点。19Tab顺序是由建立控件时的（先后顺序）来确定。20设置框架 Frame上的文本内容需要使用（Caption ）属性。21在框架上可以设置一组相关控件，这些控件作为框架的（子）控件，它们具有总体的激活/屏蔽特性。22若屏蔽框架上的控件对象，则需设置（Enabled ）属性的值为 False。23列表框 ListBox 中项目的序号从（0 ）开始到（L

5、istcount-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 计时器 Ti

6、mer 每经过一个由 InterVal属性指定的时间间隔就会触发一次（Timer ）事件。30若要使计时器每 0.5 钞钟触发一次 Timer 事 件，则要把 InterVal属性 值设置为（500 ）。42 选择题1窗体标题栏的显示内容由窗体的（b ）属性决定。a)Name b)Caption c)BackColor d)Enabled 2当窗体被装入内存时，系统将自动执行（a,b )事件过程。a)Load b)Activate c)Unload d)QueryUnload 3在标签框上显示的内容由（b ）属性来实现。a)Name b)Caption c)Text d)ForeColor 4

7、要使标题在标签框内居中显示，Alignment 属性的取值应为（2 ）。a)0 b)1 c)2 d)3 5 若使标签框根据所显示内容自动调整其大小，则可以通过设置（a ）属性值为 True来实现。a)AutoSize b)Alignment c)Enabled d)Visible 6文本框没有（d ）属性。a)BackColor b)Enabled c)Visible d)Caption 7若设置文本框最多可以接受的字符数，则可以使用（d ）属性。a)Length b)Multiline c)Max d)MaxLength 8在文本框中设置垂直滚动条，要使ScrollBars的值为（c ）。a

8、)0 b)1 c)2 d)3 9在运行程序时，要使文本框获得焦点，则需使用（b ）方法。a)Change b)SetFocus c)GotFocus d)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=Nothing 12命令按钮上的文本内容由（b ）属性来设置。

9、a)Text b)Caption c)Name d)Show 13若将命令按钮设置为默认选择命令按钮，可以通过（c ）属性来实现。a)Value b)Cancel c)Default d)Enabled 14要使命令按钮失效，则可以设置（b ）属性的值为 False 来实现。a)Value b)Enabled c)Visible d)Cancel 15若使命令按钮在屏幕不可见，则可以通过修改（c ）属性实现。a)Value b)Enabled c)Visible d)Cancel 16当复选框 Value属性值为（b ）表示该复选框被选中。a)0 b)1 c)2 d)3 17改变控件的Tab顺

10、序可以修改（d ）属性值。a)Visible b)Enabled c)TabStop d)TabIndex 18下列控件中（d ）不能接受 GotFocus和LostFocus 事件。a)命令按钮b)组合框c)复选按钮d)计时器19要使列表框中的项目垂直滚动，应设置Columns属性值为（a ）。a)0 b)1 c)2 d)3 20若要得到列表框中项目的数目，可以访问（c ）属性。a)List b)ListIndex c)ListCount d)Text 21设置列表框的选择方式，应使用（b ）属性。a)Columns b)MultiSelect c)Style d)List 22若要清除列表

11、框的所有项目内容，可以使用（c ）方法。a)AddItem b)ReMove c)Clear d)Print 23删除列表框中的某一个项目，需要使用（d ）方法。a)Clear b)ReMove c)Move d)ReMoveItem 24在组合框中选择某一项目内容，可以通过（d ）属性获得。a)List b)ListIndex c)ListCount d)Text 25若要获得滚动条的当前位置，可以通过访问（a ）属性来实现。a)Value b)Max c)Min d)LargeChange 26当用鼠标拖动滚动块时触发（b,c ）事件。a)Move b)Change c)Scroll d)

12、GotFocus 27设置计时器的时间间隔可以通过（d ）属性来实现。a)Value b)Text c)Max d)InterVal 28暂时关闭计时器，需设置（b ）属性。a)Visible b)Enabled c)Lock d)Cancel 43 问答题 1.在VB 集成环境中，用属性窗口设置字体（Font）属性时，系统将弹出一个对话框（见图4-10），指出该对话框中包含些什么控件？答：在该对话框中包含列表框、命令按钮、框架、复选框和文本框等控件。2设 Text1 为某一文本框名，下列程序段的输出结果是什么？Text1.Text=abcdefghijk Text1.selstart=3 T

13、ext1.sellength=5 Print Text1.SelText 答：输出结果是：defgh 3标签和文本框有什么区别？答：参见教材 4.3。4.比较用 Print 方法输出和用标签输出的优缺点。答：窗体、图片框和打印机等具有Print 方法，用于直接输出文本。输出格式、字体风格通过语句中的格式控制和对象的字体属性共同完成。Print方法只有在程序运行后，执行代码才能显示结果。标签控件利用 Caption 属性输出文本，可以通过字体属性设置显示风格。其属性可以在设计阶段给定，也可以在程序运行时改变。标签控件是窗体的子对象，主要用于界面设计，不能输出复杂格式的数据，特别地，不能直接把输出

14、送到外部设备，如打印机。5图片框和图象框的作用是什么？它们之间有什么区别？在什么情况下可以相互代替？在什么情况下必须使用图片框？答：参见教材4.4。6框架的作用是什么？如何在框架中建立控件？答：参见教材4.6。44 编程题1.编一程序能够实现：每次单击命令按钮Command1 能使标签 Label1 上的文字在窗体Form1上往右移动 100缇，当标签在窗体Form1上往右移出窗体的右边界时，再次单击命令按钮Command1 能使标签回到窗体的左边界。解答：(1)界面设计和属性设置在窗体上建立一个标签和两个命令按钮。窗体和窗体上控件的主要属性设置如表3-4-1所示。表3-4-1 第1题的属性设

15、置控件名称属性名属性值Form1 Caption 使标签往右移Label1 Caption FontName FontSize 欢迎使用 VB！隶书三号字Command1 Caption 移动Command2 Caption 结束（2）程序代码Private Sub Command1_Click()If Label1.Left Form1.ScaleWidth Then Label1.Left=0 Else Label1.Left=Label1.Left+100 End If End Sub Private Sub Command2_Click()End End Sub（3）运行情况运 行 程

16、序 后，屏 幕出 现 用户 界 面。每单 击 一次 标题 为“移动”的 命 令按 钮，执 行Command1_Click事件过程，使标签往右移100缇。右移出窗体的右边界时，再次单击“移动”命令按钮，标签回到窗体的左边界。执行情况如图3.4.1 所示。图3.4.1 第1题的执行情况2编写一个把某些英文单词翻译为中文单词的简单程序。要求用户界面为一个窗体，窗体左侧是一个文本框，用户在这里输入想要翻译的英文单词（注意输入一个新的单词之前应清除原有内容）；窗体中间是一个命令按钮，在该命令按钮上面显示“翻译”两字；窗体右侧也是一个文本框；当程序运行时，用户按下命令按钮后，窗体右侧的文本框显示单词的中文

17、意思。如果找不到想要翻译的英文单词，则给出相应的信息。解答：(1)界面设计和属性设置在窗体上建立两个标签、两个文本框和一个命令按钮。窗体和窗体上控件的主要属性设置如表 3-4-2 所示。表3-4-2 第2题的属性设置控件名称属性名属性值 Form1 Caption 英文单词翻译为中文单词 Label1 Caption 英文 Label2 Caption 中文 Text1 Text 空串 Text2 Text 空串 Command1 Caption 翻译(2)程序代码Private Sub Form_Load()Text1.Text=:Text2.Text=End Sub Private Sub

18、 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 Select End Sub Private Sub Text1_MouseDown(Button As Integer,Shift As Integer,X As Sing

19、le,Y As Single)Text1.Text=:Text2.Text=End Sub(3)运行情况上机运行程序后，屏幕出现用户界面。此时，把鼠标移到Text1 文本框并单击，然后输入英文国家名，例如，China。英文国家名输入后，单击标题为“翻译”的命令按钮，系统执行相应的 Click 事件过程。执行结果如图3.4.2 所示。单击工具栏上的“结束”按钮，系统结束程序的执行。图3.4.2 第2题的执行结果3在文本框中输入算术表达式，并以回车符作为输入结束标志。对表达式中的圆括号是否配对进行检查，且给出配对或不配对信息。若配对，则给出“左右圆括号配对”的信息；否则，给出“左圆括号多于右圆括号

20、”或“右圆括号多于左圆括号”的信息。解答：(1)界面设计和属性设置在窗体上建立一个文本框。窗体和文本框的主要属性设置如表3-4-3 所示。表3-4-3 第3题的属性设置控件名称属性名属性值 Form1 Caption 判别算术表达式中的圆括号是否配对 Text1 Text 空串(2)程序代码Dim n As Integer Private 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

21、=13 Then If n=0 Then Print Tab(18);左右圆括号配对!ElseIf n 0 Then Print Tab(15);左圆括号多于右圆括号!Else Print Tab(15);右圆括号多于左圆括号!End If End If End Sub Private Sub Text1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)Cls Text1.Text=n=0 End Sub(3)运行情况运行程序后，焦点在 Text1 文本框上。输入算术表达式，然后按回车键，执行Text1_

22、KeyPress事件过程。执行结果如图3.4.3 所示。若输入另一个算术表达式，可以单击 Text1 文本框，再次输入算术表达式和按回车键，执行Text1_MouseDown事件过程。图3.4.3 第3题的执行结果4编写一个程序，把某一图形装入到一个图片框中，且能实现该图形的放大、缩小和全屏显示。解答：(1)界面设计和属性设置在窗体上建立一个图片框和三个命令按钮。窗体和窗体上控件的主要属性设置如表3-4-4 所示。表3-4-4 第4题的属性设置控件名称属性名属性值 Form1 Caption 图片缩放 Picture1 Picture 一幅图片（在程序中装入）Command1 Caption

23、图片放大 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 If End Sub Private Sub Command2_Click()Select Case Picture1.H

24、eight Case Is 50 Picture1.Height=Picture1.Height-50Case 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=Pic

25、ture1.Width-30 Case Is 10 Picture1.Width=Picture1.Width-10 End Select End Sub Private Sub Command3_Click()Picture1.Height=Form1.ScaleHeight-1000 Picture1.Width=Form1.ScaleWidth End Sub Private Sub Form_Load()Picture1.Picture=LoadPicture _(c:ProgramFilesMicrosoftOfficeOfficeBitmapsstylesGlobe.wmf)End

26、 Sub (3)运行情况运行程序后，单击不同的命令按钮，系统执行相应的Click 事件过程。执行结果如图 3.4.4所示。图3.4.4 第4题的执行结果5.编写一个求三角函数值的程序。在程序中，用户可以选择输入角度或弧度值，也可以选择计算一种三角函数(例如，正弦、余弦、正切等)的值，且能把计算的结果显示出来。要求分别使用两组单选按钮进行输入选择和计算选择，每组单选按钮存放在一个框架中；用文本框输入角度或弧度值，用标签输出计算结果。解答：(1)界面设计和属性设置在窗体上建立两个标签、两个文本框和两个框架。一个框架包含两个单选按钮，另一个框架包含三个单选按钮。窗体和窗体上控件的主要属性设置如表3-

27、4-5 所示。表3-4-5 第5题的属性设置控件名称属性名属性值 Form1 Caption 计算三角函数的值 Label1 Caption 输入 Label2 Caption 输出 Text1 Text 空串 Text2 Text 空串 Frame1 Caption 输入选择Option1 Caption 角度 Option2 Caption 弧度 Frame2 Caption 函数选择 Option3 Caption 正弦 Option4 Caption 余弦 Option5 Caption 正切(2)程序代码Const Pi=3.14159265 Private Sub Form_Loa

28、d()Option1.Value=True Option3.Value=True Text1.Text=:Text2.Text=End Sub Private 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 Te

29、xt2.Text=Tan(X)End If End Sub Private 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

30、 第5题的执行结果(a)图3.4.6 第5题的执行结果(b)6编写一个程序，产生一个字体浏览器。要求用一个列表框显示系统当前可供选择的字体，另一个列表框显示系统当前可供选择的字体大小，并且使用标签显示所选字体及其大小样例。解答：(1)界面设计和属性设置在窗体上建立四个标签、两个列表框。窗体和窗体上控件的主要属性设置如表3-4-6 所示。表3-4-6 第6题的属性设置控件名称属性名属性值 Form1 Caption 字体浏览器 Label1 Caption 字体选择 Label2 Caption 字体大小选择 Label3 Caption 样例 Label4 Caption BorderStyl

31、e 中文字体演示 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 i End Sub Private Sub List1_Click()Label4.FontName=

32、List1.Text End Sub Private Sub List2_Click()Label4.FontSize=List2.Text End Sub(3)运行情况运行程序后，执行事件过程Form_Load，屏幕上显示用户界面。单击左边列表框List1上某一复选框，选择字体。然后单击右边列表框List2 上的某一复选框，选择字号，系统执行相应的事件过程。执行结果如图3.4.7 所示。图3.4.7 第6题的执行结果7.编写一个用于演示颜色合成情况的程序。要求使用滚动条作为红、绿和蓝三种基色值的输入控件。（提示：使用RGB 函数对输入的三种基色进行合成得到复合颜色）解答：(1)界面设计和属性

33、设置在窗体上建立四个标签和三个滚动条。窗体和窗体上控件的主要属性设置如表3-4-7 所示。表3-4-7 第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)程序代码Private Sub HS

34、croll1_Scroll()Label1.Caption=红色份量值：&HScroll1.Value Label4.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)End Sub Private Sub HScroll2_Scroll()Label2.Caption=绿色份量值：&HScroll2.Value Label4.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)End Sub Private Sub HScroll3_Scroll()Label

35、3.Caption=蓝色份量值：&HScroll3.Value Label4.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)End Sub(3)运行情况运行程序后，把鼠标移到各个滚动条的滚动块，然后单击并拉着滚动块移动一段距离，系统执行相应的事件过程。执行结果如图3.4.8 所示。图3.4.8 第7题的执行结果8编写程序，把某一图形装入一个图像框中，并使它能在窗体上从左至右往返不断移动。（提示：使用窗体的Left 属性和计时器控件）解答：(1)界面设计和属性设置在窗体上建立一个图像框、一个计时器和一个命令按钮。窗体和窗体上

36、控件的主要属性设置如表 3-4-8 所示。表3-4-8 第8题的属性设置控件名称属性名属性值 Form1 Caption 使图片往返移动 Image1 Pictrue 一幅图片（在程序中装入）Timer1 Interval 10（在程序中给定）Command1 Caption 停止移动(2)程序代码Dim x,f As Integer Private Sub Form_Load()Image1.Picture=LoadPicture _(c:ProgramFilesMicrosoftOffice OfficeBitmapsDbwizEvtmgmt.gif)Timer1.Interval=10 设定 Timer 事件每隔 10毫秒发生一次End Sub Private 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 Sub Private Sub Command1_Click()End End Sub(3)运行情况运行程序后，屏幕出现一幅往返移动的图片。单击标题为“停止移动”的命令按钮，结束程序的执行。