一、选择题 1．文本框控件中将Text的内容全部显示为所定义的字符的属性项是（ ） A．PasswordChar B．需要编程来实现 C．Password D．以上都不是 2．不管一个对象的属性如何设置，程序运行时始终都能接收焦点的方法是（ ） A．用Tab键 B．用鼠标 C．用方向键 D．不能实现 3．如果没有在列表框中选择项目，且列表框的MultiSelect属性值为默认值（0~None），则执行语名List1.RemoveItem List1.ListIndex的结果是（ ） A．删除列表框的最后一项 B．删除列表框的第一项 C．出错 D．删除列表框中的最后添加的一项 4．下列对象中没有焦点属性的是（ ） A．命令按钮控件 B．窗口控件 C．文本框控件 D单选框控件 5．不具有输入数据功能的控件是（ ）控件 A．文本框 B．选项按钮 C．列表框 D．窗体 6．常用控件的Style属性值是（ ） A．字符常量   B．逻辑常量 D．数值常量 D．日期常量 7．以下关于复选框的说法，正确的是（ ） A． 一个窗体上的所有复选框一次只能有一个被选中 B． 一个容器中的所有复选框一次只能有一个被选中 C． 在一个容器中的复选框可以同时有多个被选中 D． 无论是在容器中还是在窗体中，都可以同时选中多个复选框 8．要清除已经在图片框Picture中打印的字符串而不清除图片框中的图像，应使用语句（ ） A．P1.Cls B．P1.picture=LoadPicture(“”) C．P1.Print”” D．P1.piture””

9．要使一个图片框控件能自动地附着在窗体的一条边上，应设置它的（ ）属性 A．Picture B．Alignment C．Border D．Align 10．下列赋值语句正确的是（ ） A． Text1.text=Text.text+Text2.text B． Text1.name=Text1.Name+Text2.Name C． Text1.Caption=Text1.Caption+Text2.Caption D． Text1.Enable=Text1.Enable+Text2.Enable 11．引用列表框的最后一项应使用（ ） A．List1.List(List1.ListCount-1) B．List1.List(List1.ListCount) C．List1.List(ListCount) D．List1.List(ListCount-1) 12．要清除组合框Combol中的所有内容，可以使用（ ）语句 A．Combo1.Cls B．Combo1.Clear C．Combo1.Delete D．Combo1.Remove 13．列表框控件中的列表内容是通过（ ）属性设置的 A．Name B．Caption C．List D．Text 14．可以用作其它控件容器的控件有（ ） A．窗体控件，列表控件，图像控件 B．窗体控件，文本框控件，框架控件 C．窗体控件，框架控件，图片框控件 D．窗体控件，标签控件，图片控件 15．组合框控件是将（ ）组合成一个控件 A．列表框控件和文本框控件 B．标签控件和列表框控件 C．标签控件和文本框控件 D．复选框控件和选项按钮控件 16．要在命令按钮控件上显示图像应（ ） A设置Picture属性 B．实现不了 C．先将Type设置为1，然后再设置Picture属性 D．以上都不对 17．要在图片框P1中打印字符串“How Are You”，应使用语句（ ） A． Picture1.Print=“ How Are You” B． P1.Picture=LoadPicture(“How Are You”) C． P1.Print“How Are You”   D．Print “How Are You”

18．将字符串“hello”添加到列表框的最后，可使用（ ）请语句。 A． List1.AddItem“hello”,List1.ListCount-1 B． List1.AddItem“hello”,List1.ListCount C． List1.AddItem“hello”,List1.ListIndex D． List1.AddItem“hello” 19．定时器的Interval属性以（ ）为单位指定Timer事件之间的时间间隔。 A．分 B．秒 C．毫秒 D．微秒 20．下列（ ）程序段能删除列表框List1中的所有项。 A．Private Sub Command3_Click( ) B．Private Sub Command3_Click( )For I=0 To List1.ListCount-1 For I=0 To List1.ListCount-1List1.RemoveItem 1 List1.RemoveItem 0 Next I Next IEnd Sub ; End Sub C．Private Sub Command3_Click( ) B．Private Sub Command3_Click( )For I=0 To List1.ListCount For I=0 To List1.ListCountList1.RemoveItem 1 List1.RemoveItem 0 Next I Next IEnd Sub End Sub 21．要获得当前驱动器应使用驱动器列表框的哪个属性？（ ） A．Path B．Drive C．Dir D．Patten

22．要使滚动条表示最大值100，应设置其（ ）属性。要使滚动条表示最小值10，应设置其（ ）属性。要使每次单击滚动条两端箭头进变化值为10，应设置其（ ）属性。要使单击滚动条滑块与两端箭头之间的空白区域时变化值为20，应设置其（ ）属性。 A．Minimize B．Min C．MinChange D．SmallChange E．Maximisze F．Max G．MaxChange H．LargeChange 23．要将一个组合框设置为简单组合框（Simple Combo），则应将其Style属性设置为（ ） A．0 B．1 C．2 D．3 24．要使一个标签透明且不具有边框，则应（ ） A． 将其BackStyle属性设置为0，BorderStyle属性设置为0 B． 将其BackStyle属性设置为0，BorderStyle属性设置为1 C． 将其BackStyle属性设置为1，BorderStyle属性设置为0 D． 将其BackStyle属性设置为1，BorderStyle属性设置为1 25．以下不具有Picture属性对象是（ ） A．窗体 B．图片框 C．图像框 D．文本框 26．要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性（ ） A．Dir B．Path C．Drive D．FileName 27．为使计时器控件每隔5秒钟产生一个计时器事件（Timer事件），则应将其Interval属性值设置为（ ） A．5 B．500   C．300 D．5000 28．为了能在列表框中利用Ctrl和Shift键进行多个列表项的选择，则应将列表框的Multiselect属性设置为（ ） A．0 B．1 C．2 D．3 29．单击滚动条的滚动箭头时，产生的事件是（ ）

A．Click B．Scroll C．Change D．Move 30．在列表框中当前被选中的列表项的序号是由下列哪个属性表示（ ） A．List B．Index C．ListIndex D．TabIndex 31．要使列表框中的列表项显示成复选框形式，则应将其Style属性设置为（ ） A．0 B．1 C．True D．False 二、填空题 1． 在标签控件中通过编程使文字换行用的代码是___________________。 2． 设置计时器控件只能触发______________________事件。 3． 设置计时器对象触发事件的时间间隔用_____________________属性。 4． 设置控件背景颜色的属性名称是______________________。 5． ; 所有控件都具有的共同属性是__________________属性。 6． 一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。 7． 列表框控件不支持Click事件，但支持_______________事件。 8． 滚动条控件主要支持两个事件，它们是_______________事件。 9． 要使鼠标停留在按钮上显示特殊的鼠标形状，应设置的属性值是_________________。 10． 设某列表框共有10项，按题目要求补齐程序，完成相应的功能。 （1）按下命令按钮Command1时将列表框第8项的内容显示在窗体上： Private Sub Command1_Click( ) List.__________(7)=True Pint List1.______________ End Sub （2）单击列表框某一项时立即将该项打印在窗体上： Private Sub List1_Click( )Print_______________ End Sub （3）按下命令按钮Command1时在窗体上删除第1、3、5、7、9项： Private Sub Command1_Click( )For I=1 To 5List1.____________Next I End Sub （4）在列表框的每一项之后插入一个新的项： Private Sub Command1_Click( )For I=1 to 10X=InputBox(“请输入插入的第“& I&”项内容”)List1.AddItem____________

Next I End Sub 11．设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1，要使每次单击滚动条两端箭头时，或单击滚动条滑块与两端箭头之间的空白区域时，标签内容能够反映滚动条的值，补齐以下代码。 Private Sub Hscroll1.__________________( )Label1.Caption = Hscroll1.___________________ End Sub 要使拖动滚动条滑块时标签内容能够反映滚动条的值，补齐以下代码。 Private Sub Hscroll1.________________( )Label1.Caption = Hscroll1.__________________ End Sub 12．设置是否可以用Tab键来选取命令按钮，应该用______________属性。

第六章答案:

1.a 2.d 3.c 4.b 5.d 6.c 7.cd 8.a 9. d 10.a 11.a 12.b 13.c 14.c 15.a 16.c 17.c 18.bd 19.c 20.b 21.b 22.fbdh 23.b 24.b 25.d 26.d 27.d 28.c 29.c 30.c 31.c

填空题: 1.chr(10) 2.timer 3.interval 4.backcolor 5.name 6.name和caption 7.dblclick 8.scroll和change事件 9.mousepointer 10.selceted text list1.text removeitem 2*i-1x,2*i-1 11.changevaluescrollvalue 12.tabstop