VB常用控件习题与解答
常用控件习题与解答
一、填空题
1．在图片框上放置的控件称为图片框的(子)对象，而窗体是图片框的(父)对象。
2．窗体的“名称”(Name)属性只能在(属性窗口中)设置。
3．在程序中设置窗体Form1的Caption属性为"主窗体"，使用的赋值语句是(Form1.Caption="主窗体")。
4．当窗体的Enabled属性为(True)时，指定窗体响应事件。
5．窗体的Unload事件是在QueryUnload事件发生之(后)发生。
6．程序中，把当前窗体移动到屏幕左上角使用的方法为(Move0,0)。
7．在窗体Form1中坐标为(1600,800)的位置上输出字符串“Visual Basic 6.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上，使用的语句为(Picturel.Picture=LoadPicture("C:\sample\diannt.jpg"))。 12．若使图片框自动调整大小以适应装入的图形，则要设置Autosize属性的值为(True)。
13．除了在程序使用LoadPicture函数装载图形外，还可以在设计阶段通过修改(Picture)属性装载图形。
14．若程序中要把一些文本内容输出到图片框PictureBox，应使用(Print)方法。
15．当单选按钮OpdonButton的Value属性为(False)时，表示该单选按钮处于未选中状态。
16．若使命令按钮Command1重新生效，则使用的赋值语句为(Command1.Enabled=True)。
17．若使命令按钮不能接收和响应任何事件，可以设置Visible属性的值为(False)。
18．只有控件对象的Enabled和Visible属性值都为(True)时，该控件对象才能接受焦点。
19．Tab顺序是由建立控件时的(先后顺序)确定的。
20．设置框架Frame上的文本内容需要使用(Caption)属性。
21．在框架上可以设置一组相关控件，这些控件作为框架的(子)控件，它们具有总体的激活/屏蔽特性。
22．若屏蔽框架上的控件对象，则需设置(Enabled)属性的值为False。
23．列表框ListBox中项目的序号从(0)开始，到(Listcount-1)结束。
24．要显示列表框List1中序号为3项目内容，语句为(PrintList1.List(3))。
25．向组合框Combo2添加序号为5，内容为“计算机学院”的项目，使用的语句为(Combo2.Addltem"计算机学院"，5)。
26．要删除组合框Combo1序号为3的项目，使用的语句为(Combo1.ReMoveltem 3)。
27．使用滚动条ScrollBar时，若要设置当用鼠标单击两个滚动箭头之间区域的滚动幅度，需要使用(LargeChange)属性。
28．若要设置水平或垂直滚动条的最小值，需要使用(Min)属性。
29．计时器Timer每经过一个由InterVal属性指定的时间间隔就会触发一次(Timer)事件。
30．若要使计时器每0.5钞钟触发一次Timer，事件，则要把InterVal属性值设置为(500)。
二、选择题
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．要使标题在标签框内居中显示，Alignment属性的取值应为(c)。
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)CapdOn
7．如果设置文本框最多可以接收的字符数，则可以使用(d)属性。
a)Length b)Multiline C)Max d)MaxLength
8．在文本框中设置垂直滚动条，要使ScrollBars的值为(c)。
a)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)属性来设置。
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顺序可以修改(d)属性值。
a)Visible b)Enabled c)TabStop d)Tablndex
18．下列控件中(d)不能接收GotFocus和LostFocus事件。
a)命令按钮 b)组合框 c)复选按钮 d)计时器
19．要使列表框中的项目垂直滚动，应设置Columns属性值为(a)。
a)0 b)1 c)2 d)3
20．若要得到列表框中项目的数目，可以访问(c)属性。
a)List b)Listlndex C)ListCount d)Text
21．设置列表框的选择方式，应使用(b)属性。
a)Columns b)MultiSelect C)Style d)List
22．若要清除列表框的所有项目内容，可以使用(c)方法。
a)Addltem b)ReMove C)Clear d)Print
23．删除列表框中的某一个项目，需要使用(d)方法。
a)Clear b)ReMove c)Move d)ReMoveltem
24．在组合框中选择某一项目内容，可以通过(d)属性获得。
a)List b)Listlndex C)ListCount d)Text
25．若要获得滚动条的当前位置，可以通过访问(a)属性实现。
a)Value b)Max C)Min d)LargeChange
26．当用鼠标拖动滚动块时触发(b,c)事件。
a)Move b)Change C)Scroll d)GotFocus
27．设置计时器的时间间隔可以通过(d)属性来实现。
a)Value b)Text C)Max d)InterVal
28．暂时关闭计时器，需设置(b)属性。
a)Visible b)Enabled c)Lock d)Cancel
三、问答题
1．在VB集成环境中，用属性窗口设置字体(Font)属性时，系统将弹出一个对话框(见教材图4-10)，指出该对话框中包含些什么控件?
答：在该对话框中包含列表框、命令按钮、框架、复选框和文本框等控件。 2．设Text1为某一文本框名，下列程序段的输出结果是什么?
Text1.Text="abcdefghijk"
Text1.selstart=3
Text1.sellength=5
PrintText1.SelText
答：输出结果是：defgh。
3．标签和文本框有什么区别?
答：略。
4．比较用Print方法输出和用标签输出的优缺点。
答：窗体、图片框和打印机等具有Print方法，用于直接输出文本。输出格式、字体风格通过语句中的格式控制和对象的字体属性共同完成。Print方法只有在程序运行后，执行代码才能显示结果。标签控件利用aption属性输出文本，
可以通过字体属性设置显示风格。其属性可以在设计阶段给定，也可以在程序运行时改变。标签控件是窗体的子对象，主要用于界面设计，不能输出复杂格式的数据，特别地，不能直接把输出送到外部设备，如打印机。
5．图片框和图像框的作用是什么?它们之间有什么区别?在什么情况下可以相互代替？在什么情况下必须使用图片框？
答：略。
6. 框架的作用是什么？如何在框架中建立控件？
答：略。
四、编程题
1．编一程序能够实现：每次单击命令按钮Command1能使标签Label1上的文字在窗体Form1上往右移动100缇，当标签在窗体Forml上往右移出窗体的右边界时，再次单击命令按钮Command1能使标签回到窗体的左边界。
解答：
(1)界面设计和属性设置
在窗体上建立一个标签和两个命令按钮。窗体和窗体上控件的主要属性
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_Click0
End
End Sub
(3)运行情况
运行程序后，屏幕出现用户界面。每单击一次“移动”按钮，执行Comlnand1_Click事件过程，使标签往右移100缇。右移出窗体的右边界时，再次单击“移动”命令按钮，标签回到窗体的左边界。执行情况如图所示。
2．编写一个把某些英文单词翻译为中文单词的简单程序。要求用户界面为一个窗体，窗体左侧是一个文本框，用户在这里输入想要翻译的英文单词(注意输入一个新的单词之前，清除原有内容)；窗体中间是一个命令按钮，在该命令按钮上面显示“翻译”两字：窗体右侧也是一个文本框；当程序运行时，用户按下命令按钮后，窗体右侧的文本框显示单词的中文意思。如果找不到想要翻译的英文单词，则给出相应的信息。
解答：
(1)界面设计和属性设置
在窗体上建立两个标签、两个文本框和一个命令按钮。窗体和窗体上控件的主要属
Private Sub Form_load()
Text1.Text="":Text2.Text=""
End Sub
Private Sub Command1_Click()
Select Case LCase(Trim(Text1.Text))
Case "china"
Text2="中国"
Case "france"
Text2="法国"
Case "england"
Text2="英国"
Case "america"
Text2="美国"
Case "india"
Text2="印度"
Case Else
Text2="找不到该单词!"
End Select
End Sub
Private Sub Text1_MonseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
Text1.Text="":Text2.Text=""
End
(3)运行情况
上机运行程序后，屏幕出现用户界面。此时，把鼠标移到Textl文本框并单击，然后输入国家英文名，如China。国家英文名输入后，单击“翻译”按钮，系统执行相应的Click事件过程。执行结果如下图所示。单击工具栏上的“结束”按钮，系统结束程序的执行。
3．在文本框中输入算术表达式，并以回车符作为输入结束标志。对表达式中的圆括号是否配对进行检查，且给出配对或不配对信息。若配对，则给出“左右圆括号配对”的信息；否则，给出“左圆括号多于右圆括号”或“右圆括号多于左圆括号”的信息。
解答：参考界面：
(1)界面设计和属性设置:
控件名称属性名属性值
Form1 Caption 判别算术表达式中的圆括号是否配对
Text1 Text 空串
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
Endif
If KeyAscii=13 Then
if n=0 Then
Print Tab(18);"左右圆括号配对!"
Elseif n>0 Then
Print Tab(15);"左圆括号多于右圆括号!"
Else
Print Tab(15);"右圆括号多于左圆括号!"
Endif
Endlf
EndSub
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文本框上。输入算术表达式，然后按Enter键，执行Text1_KeyPress事件过程。执行结果参考图所示。若输入另一个算术表达式，可以单击Text1文本框，再次输入算术表达式和按Enter键，执行
Text1_MouseDown事件过程。
4．编写一个程序，把某个图形装入一个图片框中，且能实现该图形的放大、缩小和全屏显示。
解答：参考界面：
(1)界面设计和属性设置
在窗体上建立一个图片框和三个命令按钮。窗体和窗体上控件的主要属性
控件名称属性名属性值
Form1 Caption 图片缩放
Picture1 Picture 一幅图片(在程序中装入)
Command1 Caption 图片放大
Command2 CaptiOn 图片缩小
Command3 CaptiOn 全屏显示
Private Sub Command1_Click()
if Picture1.Height<2200 then
if Form1.ScaleHeight-Picture1.Height>50 then
Picture1.Height=Picture1.Height+50
End if
End if
if Form1.ScaleWidth-Picture1.Widthh>70 then
Picture1.Width=picture.width+70
End if
End Sub
Private 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 - 30
Case Is > 10
Picture1.Width = Picture1.Width - I0
End Select
End Sub
Private Sub Command3_Click()
Picture1.Height= Form1.ScaleHeight-1000
Picture1.Width = Form1.ScaleWidth
End Sub
Private Sub Form1_Load()
Picture1.Picture=LoadPicture("C:\Program Files\_
MicrosoftOffice\Office\Bitmaps\styles\Globe.wmf")
End Sub
(3)运行情况
运行程序后，单击不同的命令按钮，系统执行相应的Click事件过程。执行结果如参考图所示。
5. 编写一个求三角函数值的程序。在程序中，用户可以选择输入角度或弧度值，也可以选择计算一种三角函数(如正弦、余弦、正切等)的值，且能把计算的结果显示出来。要求分别使用两组单选按钮进行输入选择和计算选择，每组单选按钮存放在一个框架中；用文本框输入角度或弧度值，用标签输出计算结果。
解答：参考界面：
(1)界面设计和属性设置
在窗体上建立两个标签、两个文本框和两个框架。一个框架包含两个单选按钮，另一个框架包含三个单选按钮。窗体和窗体上控件的主要属性设置如表所示。
Const Pi=3.14159265
Private Sub Form_Load()
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
Text2.Text=Tan(x)
End if
EndSub
Private Sub Text1_MouseDown(Button As Integer,_
Shift As Integer,X As Single,Y As SinSle)
Text1.Text="":Text2.Text=""
End Sub
(3)运行情况
运行程序后，在文本框Text1中输入角度，系统执行Text1_Change事件过
程。执行结果如图所示。单击标题为“弧度”的单选按钮和标题为“余弦”的单选按钮，鼠标单击文本框Text1，输入弧度，系统执行Text1_Change事件过程，执行结果如图所示。
6．编写一个程序，产生一个字体浏览器。要求用一个列表框显示系统当前可供选择的字体，另一个列表框显示系统当前可供选择的字体大小，并且使用标签显示所选字体及其大小样例。
解答：待续
7．编写一个用于演示颜色合成情况的程序。要求使用滚动条作为红、绿和蓝三种基色值的输入控件(提示：使用RGB函数对输入的三种基色进行合成得到复合颜色)。
解答：待续
8．编写程序，把某一图形装入一个图像框中，并使它能在窗体上从左至右往返不断移动(提示：使用窗体的Len属性和计时器控件)。
解答：待续
待续……