性为Caption的控件是( )。 A) 列表框(ListBox) B) 标签(Label) C) 文本框(TextBox) D) 组合框(ComboBox) 参考答案：B
【解析】标签主要用来显示文本信息，它所显示的内容只能用Caption属性来设置或修改，Caption为标签控件的默认属性，引用时可以只写标签控件的对象名。 .
5.窗体上有一个由两个文本框组成的控件数组，名称为Text1，并有如下事件过程：
Private Sub Text1_Change(Index As Integer) Select Case Index Case 0
Text1(1).FontSize＝Text1(0).FontSize * 2 Text1(1).Text＝Text1(0).Text Case 1
Text1(0).FontSize＝Text1(1).FontSize / 2 Text1(0).Text＝Text1(1).Text Case Else
MsgBox \执行Else分支\ End Select End Sub
关于上述程序，以下叙述中错误的是( )。 A) Index用于标识数组元素
B) 本程序中Case Else分支的语句永远不会被执行
C) 向任何一个文本框输入字符，都会在另一个文本框中显示该字符 D) 下标为0的文本框中显示的字符尺寸将越来越小 参考答案：D
【解析】控件数组的Index属性作为控件数组的下标，用于标识数组元素。题目中程序功能是当任一个文本框内容改变时设置第2个文本框的字号是第1个文本框字号的2倍，同时两个文本框显示相同文字。假如用户没有使用控件数组的Index属性的默认值程序将执行到Else分支。 6.为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为( )。 A) 0 B) 1 C) 2 D) 3
参考答案：D
7. 在窗体上画一个名称为Combo1的组合框，名称为Text1的文本框，以及名称为Command1的命令按钮，如
第 26 页 共 96 页
图所示。
运行程序，单击命令按钮，将文本框中被选中的文本添加到组合框中，若文本框中没有选中的文本，则将文本框中的文本全部添加到组合框中。命令按钮的事件过程如下：
Private Sub Command1_Click() If Text1.Se1Length<>0 Then Else
Combo1.AddItem Text1 End If End Sub
程序中横线处应该填写的是( )。 A) Combo1.AddItem Text1.Text B) Combo1.AddItem Text1.SelStart C) Combo1.AddItem Text1.SelText D) Combo1.AddItem Text1.SelLength 参考答案：C
【解析】根据题意可知，横线处应该是将文本框中选中文本添加到组合框中。文本框Text属性返回整个文本框中的文本，故A选项错误；SelStart属性返回选中文本的起始位置，故B选项错误；SelLength属性返回选中文本的长度，故D选项错误；SelText属性返回选中的文本，故C选项正确。
8. 窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为\计算\的命令按钮Command1，并编写
了以下程序：
Private Sub Command1_Click() Call calc(HV.Value，HT.Value) End Sub
Public Sub calc(x As Integer，y As Integer) Text1.Text＝x*y End Sub
运行程序，单击\计算\按钮，可根据速度与时间计算出距离，并显示计算结果。 对以上程序，下列叙述中正确的是( )。 A) 过程调用语句不对，应为calc(HV， HT)
B) 过程定义语句的形式参数不对，应为Sub calc(x As Control， y As Control) C) 计算结果在文本框中显示出来 D) 程序不能正确运行 参考答案：C
【解析】访问滚动条控件的值，可以直接使用控件的名称，也可以在名称后面指明Value属性。滚动条位置是用数值来表示的，因此定义Calc过程时参数应该定义为Integer类型。程序中，Text1.Text＝x*y语句说明计
第 27 页 共 96 页
算的结果在文本框中显示出来。
9. 在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应使用的语句为( )。 A) Text1.Clear
B) Text1.Visible＝False C) Text1.Hide
D) Text1.Enabled＝False 参考答案：B
【解析】文本框没有Clear和Hide方法，故A、C选项错误；Enabled属性设置文本框可用不可用，属性值为True时可在文本框中输入数据，为False时文本框为灰色，内容不能修改，故D选项错误；Visible属性用来设置文本框显示或隐藏，当属性值为True时文本框显示，为False时文本框隐藏，故B选项正确。
10. 在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：
Private Sub Form_Load() Show
Text1.Text＝\ Text2.Text＝\ Text1.SetFocus End Sub
Private Sub Text1_Change()
Text2.Text＝Mid(Text1.Text， 6) End Sub
程序运行后，如果在文本框Text1中输入ChinaBeijing，则在文本框Text2中显示的内容是( )。 A) ChinaBeijing B) China C) Beijing D) ChinaB
参考答案：C
【解析】程序运行后，在文本框Text1中输入字符后，触发它的Change事件，通过中部截取函数Mid把文本框Text1中的内容从第6个字符'B'开始截取后面的字符，得到\字符串，然后把截取的字符串在Text2中显示出来。故C选项正确。
11. 为了使文本框只具有垂直滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为( )。 A) 0 B) 1 C) 2 D) 3
参考答案：C
【解析】文本框的ScrollBars属性值：0表示无滚动条，1表示只有水平滚动条，2表示只有垂直滚动条，3表示水平和垂直滚动条都有。本题文本框只具有垂直滚动条，则ScrollBar属性值就设置为2，故C选项正确。 12. 为了使文本框显示滚动条，除要设置ScrollBars外，还必须设置的属性是( )。 A) AutoSize B) Alignment C) Multiline D) MaxLength 参考答案：C
【解析】为了使文本框显示滚动条，要将ScrollBars的值设置为非0的1、2或3，还要设置Multiline属性为
第 28 页 共 96 页
True。
13. 若要使文本框能够输入多行文本，应该设置的属性是( )。 A) MultiLine B) WordWrap C) ScrollBars D) AutoSize 参考答案：A
【解析】文本框控件的MultiLine属性如果设置为False，则在文本框中只能输入单行文本；当设置为True时，可以使用多行文本，即在文本框中输入或输出文本时可以换行，并在下一行接着输入或输出。
14. 设有如图所示窗体和以下程序：
Private Sub Command1_Click() Text1.Text＝\End Sub
Private Sub Text1_LostFocus() If Text1.Text<>\ Text1.Text＝\ Text1.SetFocus End If End Sub
程序运行时，在Text1文本框中输入\如图所示)，然后单击Command1按钮，则产生的结果是( )。 A) 文本框中无内容，焦点在文本框中 B) 文本框中为\，焦点在文本框中 C) 文本框中为\，焦点在按钮上
D) 文本框中为\，焦点在按钮上 参考答案：A
【解析】题目程序的功能为，当单击命令按钮时，Text1失去焦点，激发Text1的LostFocus事件，在此事件中，程序判断文本框中字符串是否为\，如果是则退出事件过程，继续执行命令按钮的单击事件过程，文本框中显示\，如果不是则文本框内容置空，焦点返回到文本框中等待输入，不会执行命令按钮的单击事件过程。题目中输入了\，与\不符，因此文本框置空，焦点回到文本框中。 15. 窗体上有一个名称为Text1的文本框；一个名称为Timer1的计时器控件，其Interval属性值为5000，Enabled属性值是True。Timer1的事件过程如下：
Private Sub Timer1_Timer() Static flag As Integer If flag＝0 Then flag＝1 flag＝－flag If flag＝1 Then
Text1.ForeColor＝&HFF& '&HFF&为红色 Else
第 29 页 共 96 页
Text1.ForeColor＝&HC000& '&HC000&为绿色 End If End Sub
以下叙述中正确的是( )。
A) 每次执行此事件过程时，flag的初始值均为0 B) flag的值只可能取0或1
C) 程序执行后，文本框中的文字每5秒改变一次颜色 D) 程序有逻辑错误，Else分支总也不能被执行 参考答案：C
【解析】程序中flag被定义为Static变量，它的值只在第一次执行事件过程时为0，以后每次执行计时器事件过程它的值都会保留上次过程中运算后的值，之后它的值是1或－1。文本框控件的ForeColor属性表示文本框中文字的颜色，计时器控件的Interval属性为5000，即计时器间隔为5秒钟一次，每次调用就会交替改变文本框中文字的颜色。因此C选项正确。
16. 设窗体中有一个文本框Text1，若在程序中执行了 Text1.SetFocus，则触发( )。 A) Text1的SetFocus事件 B) Text1的GotFocus事件 C) Text1的LostFocus事件 D) 窗体的GotFocus事件 参考答案：B
【解析】SetFocus是控件获得焦点的方法，GotFocus是控件获得焦点后触发的事件，LostFocus是控件失去焦点后触发的事件。本题中程序执行Text1.SetFocus后，Text1就获得焦点，进而触发Text1的GotFocus事件。故B选项正确。
17. 以下能够触发文本框Change事件的操作是( )。 A) 文本框失去焦点 B) 文本框获得焦点 C) 设置文本框的焦点 D) 改变文本框的内容 参考答案：D
【解析】改变文本框中的内容时就会触发它的Change事件，故选D。 18. 当文本框中的内容发生改变时所触发的事件是( )。 A) KeyUp B) Change C) LostFocus D) GotFocus 参考答案：B
【解析】文本框中内容有变化时，触发Change事件。故B选项正确。
当在文本框中输入数据，松开键盘时触发它的KeyUp事件；文本框失去焦点触发LostFocus事件；获得焦点，触发GotFocus事件。
19. 向文本框中输入字符时，下面能够被触发的事件是( )。 A) GotFocus B) KeyPress C) Click D) MouseDown 参考答案：B
【解析】向文本框输入文本时，有按键的动作，所以会触发KeyPress事件。故选B。 20. 以下关于图片框控件的说法中，错误的是( )。
第 30 页 共 96 页