二级VB CH05

null计算机等级考试 二级VB计算机等级考试 二级VB信息工程学院 包怀忠 E-Mail：baohzh@126.com 手机：15055260972目 录目 录CH04 常用控件1CH05 常用标准控件 CH05 常用标准控件 大纲 1、文本控件： (1)标签。 (2)文本框。 2、图形控件： (1)图片框，图像框的属性，事件和方法。 (2)图形文件的装入。 (3)直线和形状。 3、按钮控件。 4、选择控件：复选框和单选按钮。 5、选择控件：列表框和组合框。 6、滚动条。 7、计时器。 8、框架。 9、焦点与Tab顺序。CH05 常用标准控件CH05 常用标准控件重点 1.标签框 功能：显示静态信息 属性 Caption AutoSize与WordWrap BorderStyle与BackStyle Alignment 方法 Move（Left,[Top],[Width],[Height])CH05 常用标准控件CH05 常用标准控件2.文本框 功能：显示、编辑、输入数据 属性 Text Maxlength MultiLine PasswordChar（单个字符，单行文本框有效） ScrollBars （0,1,2,3 多行文本框有效） SelLengh、SelStart、SelText LockedCH05 常用标准控件CH05 常用标准控件事件 Change GotFocus与LostFocus KeyPress(KeyAscii As Integer) 方法 SetFocusCH05 常用标准控件CH05 常用标准控件3.命令按钮 功能：接受用户的操作并响应事件 属性 Caption Default与Cancel Enabled与Visible Style与Picture 事件 ClickCH05 常用标准控件CH05 常用标准控件4.图片框（PictureBox） 功能 加载一个图像文件并显示 作为其他控件的容器 属性 Picture 在运行阶段用LoadPicture函数加载 格式：Picture1.picture= LoadPicture(“文件名”) LoadPicture(“”)为删除图片框中的图片 AutoSize 自动调整图片框大小以适应加载的图片大小CH05 常用标准控件CH05 常用标准控件关于容器 用于放置其他控件 一个控件要将图片框作为容器 直接在图片框上进行拖放 将其他容器的控件剪切，激活图片框后进行粘贴 如果一个控件的容器是图片框，则其(Left,Top)坐标的参考点不再是窗体的左上角而是图片框的左上角，即图片框的左上角坐标为（0，0）； CurrentX和CurrentY属性 运行阶段可用，定义图片框当前光标位置 方法 Print、Cls（不能清除加载的图片）CH05 常用标准控件CH05 常用标准控件5.图像框（ImageBox） 功能：加载并显示一个图像 属性 Picture Stretch 设为True，能缩放图片以适应图像框大小 PictureBox与ImageBox的区别 PictureBox是容器，而ImageBox则不是； PictureBox可以用Print、Cls方法，有CurrentX、CurrentY属性，而ImageBox则无； ImageBox占据更少的内存；CH05 常用标准控件CH05 常用标准控件6.直线（Line） 功能：在容器中画一条直线 属性 BorderColor：线的颜色 BorderStyle：线的类型 BorderWidth：线的宽度 X1,Y1、X2,Y2：起点与终点坐标CH05 常用标准控件CH05 常用标准控件7.形状（Shape） 功能：在容器中画各种图形 属性 BackColor与BackStyle同标签框 BorderColor、 BorderStyle、 BorderWidth同直线 Shape：定义图形形状，共6种； FillStyle与FillColorCH05 常用标准控件CH05 常用标准控件8.复选框与单选钮 功能 复选框：从一组选项当中选择0个或多个 单选钮：从一组选项中必须且只能选择一个 属性 Caption Value 复选框：0、1、2 单选钮：True、False Style 0：标准；1：图形 事件：ClickCH05 常用标准控件CH05 常用标准控件9.框架（Frame） 功能 作为其他控件的容器； 将单选钮进行分组 属性 CaptionCH05 常用标准控件CH05 常用标准控件10.列表框 功能：提供一组列表供用户选择 属性 Columns 为0时单列显示，为i时（大于0的整数）将显示i列，每列宽度=列表框宽度/i，填充时先填第一列，第一列填满后再填第二列，依次类推。 ListCount：列表中的项目数 List：字符串数组，其下标从0到ListCount-1 ListIndex：选中项目的序号 Text：选中项目对应的字符串 List1.Text=List1.List(List1.ListIndex)CH05 常用标准控件CH05 常用标准控件MultiSelect 0为单选，1为简单多选，2为扩展多选 此属性不为0时，ListIndex和Text均为最后一次选择的值。 Selected 布尔数组，下标从0到ListCount-1，如果第i项被选中，则Selected(i)为True SelCount：返回列表中选择的项目数 Style：0为标准，1为复选框形式CH05 常用标准控件CH05 常用标准控件方法 Additem <项目字符串>[,<项目序号>] Clear RemoveItem <项目序号> 事件 ClickCH05 常用标准控件CH05 常用标准控件11.组合框 功能：一个文本框与一个列表框的组合，既可以从列表中选择，也可以在文本框中输入 属性 Style：为2时不能编辑文本框 文本框、列表框拥有的属性、事件和方法组合框一般都具备CH05 常用标准控件CH05 常用标准控件12.滚动条 功能：根据滑块的位置返回一个整数值 属性 Value、Max与Min、LargeChange与SmallChangeCH05 常用标准控件CH05 常用标准控件事件 Scroll事件 在用鼠标拖动滑块的过程中发生 单击滚动箭头或单击滚动条的空白区间均不能激活该事件。 Change事件 Value属性发生改变时激活该事件 在用鼠标拖动滑块的过程中会触发Scroll事件，但并不触发Change事件，不过一旦将滑块拖动到某个位置且释放鼠标按钮时，Change事件才被激活。CH05 常用标准控件CH05 常用标准控件13.计时器 功能：周期性地执行同一代码 事件 Timer 周期性的发生，也就是该事件包含的代码能够周期性的执行。 属性 Interval：定义周期的大小，单位为毫秒 Enabled：为False时Timer事件将终止执行CH05 常用标准控件CH05 常用标准控件14.焦点 概念：窗体上当前活动的控件 注意 Enabled或Visible属性设为False时无焦点 控件：框架、标签、直线、形状、图像框、计时器不能获得焦点 改变焦点 按Tab键使焦点转移 调用控件的SetFocus方法使该控件获得焦点（Form_Load事件中不能调用该方法） 和焦点有关的事件：LostFocus、GotFocusCH05 常用标准控件CH05 常用标准控件15.Tab顺序 概念：按Tab键焦点的改变顺序 Tab顺序的 默认按控件建立的顺序 通过修改TabIndex属性可以更改 控件的TabStop属性为True时才能通过Tab键获得焦点 注 一组单选钮只有一个Value属性为True的单选钮在按TAB键时获取焦点。 当焦点在一个单选钮上时要使焦点转移到同组的单选钮上可以按方向键。CH05 常用标准控件CH05 常用标准控件考试 选择题（10分） 1.为了使命令按钮（名称为Command1）右移200，应使用的语句是（　　）。 A．Command1.Move -200 B．Command1.Move 200 C．Command1.Left = Command1.Left + 200 D．Command1.Left = Command1.Left - 200 CH05 常用标准控件CH05 常用标准控件2.在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是（　　）。 　　A．Private Sub Text1_Change() 　　　 Command1.Caption = "计算机等级考试" 　　　　End Sub 　　B．Private Sub Command1_ Click () 　　　 Caption = "计算机等级考试" 　　　　End Sub 　　C．Private Sub Form1_ Click () 　　　 Text1.Caption = "计算机等级考试" 　　 　 End Sub 　　D．Private Sub Command1_ Click () 　　　 Text1.Text = "计算机等级考试" 　　 End Sub CH05 常用标准控件CH05 常用标准控件3. 在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为 1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： 　　Private Sub Command1_Click() 　　 Timer1. 【 】 　End Sub 　　Private Sub Timer1_Timer() Text1.Text = Time 　　End Sub 　在【 】处应填入的内容是（　　）。 A．Enabled = True B．Enabled = False C．Visible = True D．Visible = False CH05 常用标准控件CH05 常用标准控件4.假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是（　　）。 A．选择图片框，然后按Del键 B．执行语句Picture1.Picture = LoadPicture ("") C．执行语句Picture1.Picture ="" D．选择图片框，在属性窗口中选择Picture属性条，然后按回车键 CH05 常用标准控件CH05 常用标准控件5.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是：_____。 A．Private Sub List1_Click() 　　　 Label1.Caption = List1.ListIndex 　　 End Sub B．Private Sub List1_Click() 　　　 Label1.Name=List1.ListIndex 　　 End Sub C．Private Sub List1_Click() 　　　 Label1.Name=List1.Text 　　 End Sub D．Private Sub List1_Click() 　　　 Label1.Caption =List1.Text 　　 End SubCH05 常用标准控件CH05 常用标准控件6.在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text = Mid(Text1.Text, 8) End Sub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是（　）。 A)BeijingChina B)China C)Beijing D)BeijingC CH05 常用标准控件CH05 常用标准控件7.在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程： Private Sub Form_Load() List1.AddItem "Item 1" List1.AddItem "Item 2" List1.AddItem "Item 3" End Sub Private Sub Command1_Click() List1.List(List1.ListCount) = "AAAA" End Sub 程序运行后，单击命令按钮，其结果为（　）。 A）把字符串“AAAA”添加到列表框中，但位置不能确定 B）把字符串“AAAA”添加到列表框的最后（即“Item 3”的后面） C）把列表框中原有的最后一项改为“AAAA” D）把字符串“AAAA”插入到列表框的最前面（即“Item 1”的前面） CH05 常用标准控件CH05 常用标准控件8.为了使列表框中的项目呈多列显示，需要设置的属性为。 A) Columns B) Style C) List D) MultiSelect 9.设窗体上有1个水平滚动条,要求单击滚动条右端的◢按钮一次,滚动条移动一定的刻度值,决定此刻度的属性是() A)Max B)Min C)SmallChange D)LargeChangCH05 常用标准控件CH05 常用标准控件10. 在窗体上画一个文本框（其名称为 Textl)和一个标签（其名称为 Labell)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容，以下可以实现上述操作的事件过程是 （　　） 。 A．Private Sub Textl_Click() Labell.Caption=Textl.Text End Sub B．Private Sub Text1_Change() Labell.Caption=Textl.Text End Sub C．Private Sub Labell_Change() Labell.Caption=Textl.Text End Sub D．Private Sub Labell_Click() Labell. Caption=Textl.Text End Sub CH05 常用标准控件CH05 常用标准控件11. 在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是 （　　） 。 A．Privale Sub Listl_Click() Listl. Removeltem Listl.Text : Labell. Caption=Listl. ListIndex End Sub B．Private Sub Listl_Click() Listl.RemoveItem Listl.Text : Labell.Name=Listl. ListIndex End Sub C．Private Sub Listl_Click() Labell. Caption=Listl.Text : Listl. RemovItem Listl. ListIndex End Sub D．Private Sub Listl_Click() Labell. Name=Listl. Text : Listl. RemoveItem Listl. ListIndex End Sub CH05 常用标准控件CH05 常用标准控件12.若设置了文本框的属性PasswordChar=”$”,则运行程序时向文本框中输入8个任意字符后,文本框中显示的是() A)8个”$” B)1个”$” C)8个”*” D)无任何内容 13.设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是() A)Combo1.RemoveItem Combo1.Text B) Combo1.RemoveItem 4 C) Combo1.RemoveItem Combo1.ListCount D) Combo1.RemoveItem 5CH05 常用标准控件CH05 常用标准控件14.在窗体上有一个名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是() A)Private Sub Command1_Click() 　　 Text1.Left=100 　　　　　 　　End Sub B) Private Sub Command1_Click() 　 Text1.Left= Text1.Left-100 End Sub C)Private Sub Command1_Click() 　　 Text1.Move Text.Left+100 　　End Sub D)Private Sub Command1_Click() 　　 Text1.Move Text.Left 　　End SubCH05 常用标准控件CH05 常用标准控件15. 要使一个文本框可以显示多行文本，应设置为True的属性是 A）Enabled B）MultiLine C）MasLenfth D）Width 16.在窗体上有一个名为Text1的文本框。当光标在文本框中时，如果按下字母键“A”，则一定被调用的事件过程是 A）Form_KeyPress() B）Text1_LostFocus() C）Text1_Click() D）Text1_Change() CH05 常用标准控件CH05 常用标准控件17.设在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。要求单击Command1按钮时可把光标移到文本框中。下面正确的事件过程是 A）Private Sub Command1_Click() Command1.GotFocus End Sub B）Private Sub Command1_Click() Text1.GotFocus EndSub C）Private Sub Command1_Click() Command1.SetFocus End Sub D）Private Sub Command1_Click() Text1.SetFocus End Sub CH05 常用标准控件CH05 常用标准控件18.设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是 A)Prvate Sub List1_Click() Print List1.Text End Sub B)Private Sub Form1_Click() Print List1.Text End Sub C)Private Sub List1_Click() List1.Print List1.Text End Sub D)Private Sub Form1_Click() Print Form1.Text End Sub CH05 常用标准控件CH05 常用标准控件19.若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指 A)按钮左端到窗体左端的距离 B)按钮左端到图片框左端的距离 C)按钮中心点到窗体左端的距离 D)按钮中心点到图片框左端的距离 20.设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是 A）Picture1.Picture=”Flie1.jpg“ B）Picture1.Picture=LoadPicture(“File1.jpg”) C) LoadPicture(“File1.jpg”) D）Call LoadPicture(“File1.jpg”)CH05 常用标准控件CH05 常用标准控件21.在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序： Private Sub Form_Load() Command1.Enabled=False Check1.Value=1 End Sub 刚运行程序时，看到的窗体外观是： CH05 常用标准控件CH05 常用标准控件22.设在窗体中有一个名称为List1的列表框，其中有若干个项目。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是 A)Private Sub Command1_Click() List1.Clear End Sub B) Private Sub Command1_Click() List1.Clear List1.ListIndex End Sub C) Private Sub Command1_Click() List1.Removeltem List1.ListIndex End Sub D) Private Sub Command1_Click() List1.Removeltem End Sub CH05 常用标准控件CH05 常用标准控件23.某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签框，且计时器的属性设置为Enabled=True, Interval=0,并编程如下。希望在每2秒在标签上显示一次系统当前时间。 Private Sub Timer1_Timer() Label1.Caption=Time$ End Sub 在程序执行时发现未能实现上述目的，那么，他应做的修改是 A）通过属性窗口把计时器的Interval属性设置为2000 B）通过属性窗口把计时器的Enabled属生设置为False C)把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Tims$ D)把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time CH05 常用标准控件CH05 常用标准控件24.为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars的属性设置为 A)0 B)1 C)2 D)3 25.若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件发生的操作是 A）用鼠标右键单击此按钮 B）按键盘ESC键 C）按键盘回车键 D）用鼠标右键双击此按钮CH05 常用标准控件CH05 常用标准控件26.窗体上有一个名为Hscroll1的滚动条，程序运行后，但单击滚动条两端的箭头时，立即在窗体上显示滚动块的位置，下面能实现上述操作的事件过程是 A）Private Sub HScroll1_Change() Print Hscroll1.value End Sub B） Private Sub HScroll1_Change() Print Hscroll1.SmallChange End Sub C）Private Sub HScroll1_Scroll() Print Hscroll1.value End Sub D） Private Sub HScroll1_Scroll () Print Hscroll1.SmallChange End SubCH05 常用标准控件CH05 常用标准控件27. 要是两个单选按钮属于同一个框架，正确的操作是 A）先画一个框架，再在框架中画两个单选按钮 B）先画一个框架，再在框架外画两个单选按钮，然后将两个按钮拖到框架中 C）先画两个单选按钮，然后再画框架将单选按钮框起来 D）以上三种方法都不正确 28.能够存放组合框所有项目内容的属性是 A）Caption B）Text C）List D）SelectedCH05 常用标准控件CH05 常用标准控件28.形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是 CH05 常用标准控件CH05 常用标准控件填空题（2分） 1.在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： 　　Private Sub Form_Click() 　　  Text1.Text = "VB程序设计" 　　End Sub 　　 Private Sub Text1_Change() 　　  Picture1.Print "VB Programming" 　　End Sub 程序运行后，单击窗体，则在文本框中显示的内容是 【 】 ，而在图片框中显示的内容是 【 】 。 1、 VB程序设计 2、 VB ProgrammingCH05 常用标准控件CH05 常用标准控件2.在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后， Command1 为禁用（灰色），此时如果在文本框中输入字符，则命令按钮 Command1 变为可用。请填空。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1_ 【 】 () Command1.Enabled=True End Sub changeCH05 常用标准控件CH05 常用标准控件3.窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。下面是可实现此功能的程序，请填空。 Private Sub Combo1_Click() Dim temp temp = Combo1.Text 【 】 = Combo1.List(0) Combo1.List(0) = temp End Sub Combo1.Text 或 Combo1.list(Combo1.ListIndex)CH05 常用标准控件CH05 常用标准控件4.设窗体上有一个名称为HScroII1的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离（即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数）。下面是可实现此功能的程序，请填写。 Dim 【 】 As Integer Private Sub Form_Load() pos=HScroII1.Value End Sub Private Sub HScroII1_Change() Print 【 】 - pos pos=HScroII1.Value End Sub 1、pos 2、HScroll1.Valuenull