3、

批改人：

第八章 常用控件

33 VB网络课堂：info.zjfc.edu.cn/vbweb

１．你预习了本章内容了吗？共花时间 分

２．你复习了上一堂课内容吗？共花时间 分

３．你作业做了吗？ ４．作业是自己做的吗？

一、判断题

1．标签控件可以响应 Click 事件。

2．设置框架时，可先在窗体上画好框架，再往框架内添置控件；也可以先设置控件，再建 立框架，然后将已有控件拖动到框架中。

3．列表框控件List1的最后一个表项为 List1.List(List1.ListCount)。 4．单击组合框中的任一表项,该表项的文本就会替换这一组合框控件的Text 属性值。 5．若复选框控件的Value属性值为True，则框内显示“√”，若Value属性值为False，则显示空白。

6．用Cls方法可以清除组合框中的所有表项。

7．列表框和文本框一样均没有Caption属性，但都具有Text属性。 8．拖动滚动条控件的滚动框过程中会触发Scroll事件，当释放鼠标时触发Change事件。 9．命令按钮不但能响应单击事件，而且还能响应双击事件。

10．文本框控件的MultiLine属性是只读属性，在运行时不可改变。

11．移动框架时，框架内的控件也跟着移动，并且框架内的各控件的Top和Left属性值也将分别随之改变。 12．由于定时器控件在运行时是看不见的，因此在设置时可任意地将其放在任何位置。 13．SetFocus方法是把焦点移到指定对象上，使对象获得焦点，该方法适用所有控件。 14．若在列表框中第三项之后插入一项目“ABC”，则所用语句为List1.AddItem\，3。 15．若文本框的MaxLength属性值为0，则该文本框内不可输入任何字符。 二、选择题

1．执行后会删除文本框Text1中文本的语句为＿＿＿＿。 A．Text1.Caption=”” B．Text1.Text=”” C．Text1.Clear D．Text1.Cls

2．程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是 。 A．MouseDown B．MouseUp C．Load D．Click 3．不能通过＿＿＿＿来删除列表框中的选择项。 A．List属性 B．RemoveItem方法 C．Clear方法 D．Text属性 4．以下不允许用户在程序运行时输入文字的控件是＿＿＿＿。 A．标签框 B．文本框 C．下拉式组合框 D．简单组合框

5．单击滚动条两端的任一个滚动箭头，将触发该滚动条的 事件。

34

VB网络课堂：info.zjfc.edu.cn/vbweb

A．Scroll B．Change C．KeyDown D．Move 6．执行语句List1.List（List1.ListCount）＝“80”语句后＿＿＿＿。 A．会产生出错信息 B．List1列表框最后一项被给为“80” C．List1会增加一个“80”项 D．指定List1列表框的表项个数为80个 7．OptionButton控件和CheckButton控件都有Value属性，下列叙述正确的是＿。

A．都是设置控件是否可用

B．OptionButton的Value属性是逻辑值，而CheckButton的Value值是数值 C．都是设置控件是否可见

D．OptionButton的Value属性是数值，而CheckButton的Value值是逻辑值 8．某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签，Timer1的属性设置为Enabled=True，Interval=0，并编程如下，希望每两秒在标签上显示一次系统当前时间。

Private Sub Timer1_Timer() Label1.Caption = Time End Sub

在程序执行时发现未能实现上述目的，那么他应该做的修改是 。

A、通过属性窗口把定时器的Interval属性设置为2000 B、通过属性窗口把定时器的Enabled属性设置为True

C、把事件过程中的Label1.Caption = Time语句改成Label1.Caption = Timer1.Time D、把事件过程中的Label1.Caption = Time语句改成Timer1.Interval = Time

9．下列哪一个属性用来表示各对象（控件）的位置＿＿＿＿。

A．Text B．Caption C．Left D．Name

10．设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是 。

A、List1.List B、List1.ListIndex C、List1.Index D、List1. Text 11．标签框控件和文本框控件内的对齐方式由——＿＿＿＿属性决定。

A．Alignmemt B．Multiline C．AutoSize D．Name

12．在程序运行期间属性值不允许改变的属性是＿＿＿＿属性。

A．Caption B．Name C．BackColor D．Enabled 13、当程序运行后，在文本框Text1中输入1234，写出窗体上的输出结果。 (13) 。

Private Sub Text1_Change()

Print Text1 & \End Sub

A、1234 B、1234- C、1- D、1- 12- 2- 123- 3- 1234- 4-

14．将文本框的ScrollBars属性设置为非零值，却没有效果，原因是____。

A．文本框中没有内容

35

VB网络课堂：info.zjfc.edu.cn/vbweb

B．文本框的MultiLime属性值为False C．文本框的MultiLine属性值为True D．文本框的Locked属性值为True

15．下面有一程序，如果从键盘上输入“Testing”，则在文本框中显示的内容是 。

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii >= 65 And KeyAscii <= 122 Then KeyAscii = 65 End If End Sub

A．A B．Testing C．AAAAAAA D．程序出错 16．要使一个标签透明且不具有边框，则应：____。 A．Label1.BackStyle＝0 : Label1.BorderStyle=0 B．Label1.BackStyle＝1 : Label1.BorderStyle=1

C．Label1.BackStyle＝True : Label1.BorderStyle=True D．Label1.BackStyle＝False : Label1.BorderStyle=False 17．文本框中选定的内容，由下列 属性来反映。 A．SelText B．SelLength C．Text D．SelStart

18．组合框中的Style属性值确定了组合框的类型和显示方式，以下选项中不属于组合框Style属性值的是 。

A．下拉式组合框 B．弹出式组合框 C．简单式组合框 D．下拉式列表框

19、设在窗体上有一个名称为Combo1的组合框，含有5个项目，要删除最后一项，正确的语句是 。

A、Combo1.RemoveItem 4 B、Combo1.RemoveItem Combo1.ListCount C、Combo1.Clear D、Combo1.RemoveItem 5

20、窗体的MouseDown事件过程Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)关于这些参数，正确的描述是 。

A、 通过Button参数判定当前按下的是哪一个鼠标键 B、 Shift参数只能用来确定是否按下Shift C、 Shift参数只能用来确定是否按下Alt和Ctrl键 D、 参数x, y用来设置鼠标当前位置的坐标

21、滚动条控件的Max属性所设置的是是 。

A、滚动框处于最右位置时，一个滚动条位置的value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性

22、在窗体（Name属性为Form1）中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下事件过程：

36

VB网络课堂：info.zjfc.edu.cn/vbweb