示。
以下叙述中，正确的是( )。
A) 若仅把Frame1的Enabled属性设为False，则 op1、op2仍可用 B) 对于上图，op1.Value的值为True
C) 对于上图，执行 Op1.Value＝False命令，则\往返\单选按钮被选中 D) 对于上图，执行 Op1.Value＝0命令，程序出错 参考答案：B
【解析】当Frame1的Enabled属性设为False后，框架Frame1变为不可用，它里面放的两个单项按钮也就变为不可用，故A选项错误；
当Op1.Value为False时，\单程\和\往返\单项按钮都处于未选中状态，故C选项错误； Op1.Value的值为0，即为False，语句正确，没有程序错误，故D选项说法错误； 根据图可只，\单程\单选按钮处于选中状态，Op1.Value的值为True，故B选项正确。
40. 以下不属于单选按钮的属性是( )。 A) Caption B) Name C) Min D) Enabled 参考答案：C
【解析】单选按钮没有Min属性，滚动条控件的属性中有Min属性。
41. 为了使一个复选框被禁用(灰色显示)，应把它的Value属性设置为( )。 A) 0 B) 1 C) 2 D) False
参考答案：C
【解析】复选框的Value属性可以设置为0、1或2。0表示没有选择该复选框，1表示选中该复选框，2表示该复选框被禁用(灰色显示)。
42. 以下关于单选按钮和复选框的叙述中，正确的是( )。 A) 单选按钮和复选框都能从多个选项中选择一项
B) 单选按钮和复选框被选中时，选中控件的Value属性值为True C) 是否使用框架控件将单选按钮分组，对选项没有影响 D) 是否使用框架控件将复选框分组，对选项没有影响 参考答案：D
【解析】复选框按钮可以同时选择多个，而在一组单选按钮中，只能选择其中的一个。单选按钮被选中时，其Value属性值为True，如果没有被选中其Value值为False，复选框的Value属性可以设置为0、1和2，分别代表没选中、选中和禁用。单选按钮一般用框架进行分组，每个框架内的单选按钮的操作不影响其他组的按钮，而复选框是否分组对选项没有影响。
43. 下面控件中，没有Caption属性的是( )。
第 36 页 共 96 页
A) 复选框 B) 单选按钮 C) 组合框 D) 框架
参考答案：C
【解析】Caption属性是设置或返回控件的标题。组合框没有Caption属性。故选C。
44. 窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性设置为1(Simple)，并有如下事件过程：
Private Sub Command1_Click()
For i＝0 To List1.ListCount－1
If List1.Selected(i)＝True Then List2.AddItem Text End If Next End Sub
上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是( )。
A) 将For循环的终值改为List1.ListCount
B) 将List1.Selected(i)＝True 改为List1.List(i).Selected＝True C) 将List2.AddItem Text 改为List2.AddItem List1.List(i) D) 将List2.AddItem Text 改为List2.AddItem List1.ListIndex 参考答案：C
【解析】题目程序不能将List1中的选中项添加到List2中，List2.AddItem Text一行有误，应该改为List2.AddItem List1.List(i)才能使List1中每个选中的行添加到List2中。列表框控件的List属性保存了列表框中所有值的数组，可以通过下标访问数组中的值。
45. 设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是( )。 A) List1.List
B) List1.ListIndex C) List1.Text D) List1.Index 参考答案：C
【解析】List1的List属性是设置或返回列表框中的列表项内容；ListIndex属性设置或返回当前选中的列表项的索引值；Index属性是用来区分列表框控件数组中各List控件；Text属性设置或返回当前所选中列表项的文本内容。故选C。
46. 要想使列表框只允许单选列表项，应设置的属性为( )。 A) Style B) Selected C) MultiSelect D) Enabled 参考答案：C
【解析】列表框的Style属性是设置列表框的外形；
Selected属性在程序运行中设置或返回列表项的选中状态； Enabled属性设置列表框可用不可用；
MultSelect用来设置选择列表项的方式。0为默认，只允许单选列表项；1为复选，可同时选中一个或多个列表项，但要一个一个选中；2也为复选，可一个一个选中列表项，也可连续选中。故选C。
47. 在窗体上画一个组合框，一个命令按钮和一个文本框，其名称分别为Combo1，Command1和Text1，然后编写
第 37 页 共 96 页
如下事件过程：
Private Sub Form_Load() Combo1.AddItem \ Combo1.AddItem \ Combo1.AddItem \ Combo1.AddItem \ Combo1.AddItem \End Sub 程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目\。为了实现该操作，在命令按钮的Click事件过程中应使用的语句为( )。 A) Text1.Text＝Combo1.List(2) B) Text1.Text＝Combo1.Text C) Text1.Text＝Combo1.List(3) D) Text1.Text＝Combo1.ListIndex 参考答案：A
【解析】List属性可以返回组合框中各选项的内容。用下标区分各选项，第1个选项下标为0，依次类推。\为组合框中第3个选项，可以用Combo1.List(2)返回选项内容。故A选项正确，C选项错误。
Text属性返回的是组合框中选中项目的内容；ListIndex属性返回的是选中项目的索引值，即下标。故B、D选项错误。
48. 对于列表框控件List1，能够表示当前被选中列表项内容的是( )。 A) List1.Text B) List1.Index C) List1.ListIndex D) List1.List 参考答案：A
【解析】Text属性可返回当前被选中列表项的内容，故选A。
Index属性是当有列表框控件数组时，区分各列表框用的；ListIndex属性返回的是被选中的列表项的索引值；List属性设置或返回各列表项的内容。
49. 要删除列表框中最后一个列表项，正确的语句是( )。 A) List1.RemoveItem ListCount
B) List1.RemoveItem List1.ListCount C) List1.RemoveItem ListCount－1
D) List1.RemoveItem List1.ListCount－1 参考答案：D
【解析】ListCount属性返回列表框中列表项的个数，列表项的索引号从0开始，所以要删除最后一个列表项，ReMoveItem方法中的索引号就应该是List1.ListCount－1，故D选项正确。
50. )窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击\删除\按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：Private Sub Command1_Click()
Dim n%，k%
n＝Len(Text1.Text)
For k＝0 To Listl.ListCount－1
If Left(List1.List(k)，n)＝Text1.Text Then List1.RemoveItem k End If Next k
第 38 页 共 96 页
End Sub
在调试时发现，如输入\陈\，可以正确删除所有姓\陈\的项目，但输入\刘\，则只删除了\刘邦\、\刘备\项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k＝0 To List1.ListCount－1改为( )。
A) For k＝List1.ListCount－1 To 0 Step－1 B) For k＝0 To List1.ListCount C) For k＝1 To List1.ListCount－1 D) For k＝1 To List1.ListCount 参考答案：A
【解析】错误原因：每一次删除列表框满足项，列表框的项目数目就会相应地减少，所以就出现了漏删内容，如果把循环变量k改成从List1.ListCout－1到0，从最后一个项目往第一个项目查找，满足条件就删除该项目，从而不会出现遗漏现象，所以正确答案为A。
51. 列表框中被选中的数据项的位置可以通过一个属性获得，这个属性是( )。 A) List
B) ListIndex C) Text
D) ListCount 参考答案：B
【解析】列表框控件的ListIndex属性值是已选中的表项的位置。表项位置由索引值指定，第一项的索引值为0，第二项为1，以此类推。如果没有任何项被选中，ListIndex的值将设置为－1。 52. 窗体上有一个列表框控件List1。以下叙述中错误的是( )。 A) List1中有ListCount－1个列表项
B) 当List1.Selected(i)＝True，表明第i项被选中 C) 设置某些属性，可以使列表框显示多列数据
D) List1.Text的值是最后一次被选中的列表项文本 参考答案：A
【解析】列表框控件的列表项个数即为ListCount属性值。如果列表项的某项被选中，则该项的Selected属性值为True。列表框控件的Columns属性用来确定列表框的列数。Text属性的值为最后一次选中的表项的文本，不能直接修改Text属性。
53. 下面列表框属性中，是数组的是( )。 A) ListCount B) Selected C) ListIndex D) MultiSelect 参考答案：B
【解析】在列表框控件中，Selected属性是一个数组，各个元素的值为True或False，每个元素与列表框中
第 39 页 共 96 页
的一项相对应，当元素值为True时表明选择了该项，如为False表示未选择。ListCount属性值是一个数组，它列出列表框中表项的数量；ListIndex属性值表示已选中的表项的位置，表项位置由索引值指定，第一项索引值为0，第二项为1，以此类推；MultiSelect属性用来设置一次可以选择的表项是一项、多项、指定范围。 54. 窗体上有一个名为List1的列表框和一个名为Command1的命令按钮，并有下面的事件过程：
Private Sub Command1_Click() n%＝List1.ListIndex If n>0 Then
ch$＝List1.List(n)
List1.List(n)＝List1.List(n－1) List1.List(n－1)＝ch End If End Sub
程序运行时，选中1个列表项，然后单击Command1按钮，则产生的结果是( )。 A) 若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置 B) 选中的列表项与它前面的列表项互换位置
C) 若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置 D) 选中的列表项与它后面的列表项互换位置 参考答案：A
【解析】当单击Command1按钮后，List1列表框中被选中项的索引值赋给变量n，如果被选中项不是空也不是第1项时，将选中项的项目文字赋值给变量ch，用选中项的上面一项的文字替换选中项的文字，再把变量ch中的文字替换选中项上面一项的文字，简单说就是选中项和它上面一项的文字交换。因此A选项的说法正确。
第5章 控制结构与数组
1. 设工程中有2个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为\，所有菜单都可见；否则看不到\成绩录入\菜单项。为此，某人在Form1窗体文件中编写如下程序：
Private Sub Text11_KeyPress(KeyAscii As Integer) If KeyAscii＝13 Then
If Text1.Text＝\ Form2.input.Visible＝True Else
Form2.input.Visible＝False End If End If Form1.Hide
第 40 页 共 96 页