1、二级 VISUAL+BASIC-79 (1)及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：59，分数：100.00)1.窗体上有名称为 List1 的列表框。以下能够将列表框当前选定的列表项替换为字符串“Basic”的语句是（分数：1.00）A.List1.AddItem“Basic“B.List1.List(List1.ListIndex)=“Basic“C.List1.Text=“Basic“D.以上都可以2.要想不使用 Shift 或 Ctrl 键就能在列表框中国时选择多个项目，则应把该列表框的 MultiSelect 属性设置为（分数：1.00）A.0-No
2、neB.1-SimpleC.2-ExtendedD.33.如果在列表框 List1 中没有选中项目，则 List1.ListIndex 的值为（分数：1.00）A.-1B.0C.1D.24.设 Label1、Command1、Text1、Check1 分别为标签、命令按钮、文本框、复选框的名称，则以下属性设置语句中，运行时不会出错的是（分数：1.00）A.Label1.BackStyle=2B.Command1.Style=1C.Text1.ScrollBars=4D.Check1.Value=25.下列不包含滚动条的控件是（分数：1.00）A.列表框B.标签C.组合框D.文本框6.为了删除列
3、表框中的一个列表项，应使用的列表框方法是（分数：1.00）A.MoveB.RemoveC.ClearD.RemoveItem7.以下不能设置 Picture 属性的控件是（分数：1.00）A.窗体B.列表框C.复选框D.命令按钮8.设窗体上有 1 个名称为 List1 的列表框，程序运行时，如果选中了第 3 个列表项(最上面的列表项为第0 个列表项)，则下面不成立的是（分数：1.00）A.List1.Selected(List1.ListIndex)的值为 TrueB.List1.Selected(3)的值为 TrueC.List1.List(3)的值为 TrueD.List1.ListInd
4、ex 的值为 39.下列控件中，不响应 Click 事件的是（分数：1.00）A.框架B.标签C.图像框D.形状10.设窗体上有一个名称为 Check1 的复选框，并有下面程序代码： Private Sub Check1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Check1.Value=1 End Sub 根据上面的事件过程，可以得出结论（分数：1.00）A.鼠标单击该复选框，复选框的标题被改为“1”B.鼠标右键单击该复选框，可以选中该复选框C.鼠标左键单击该复选框，它被选中，右键单击它，
5、取消选中D.鼠标右键单击该复选框，它被选中，左键单击它，取消选中11.设窗体上有一个名称为 List1 的列表框，并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是（分数：1.00）A.List1.List(List1.ListCount)=“VB 程序“B.List1.List(List1.ListCount-1)=“VB 程序“C.List1.AddItem“VB 程序“D.List1.AddItem“VB 程序“，List1.ListCount12.已知列表框控件 List1 中已放入若干表项，下列关于 List1 的叙述中错误的是（分数：1.00）A.第一个表项的序号为
6、0B.没有选中任何一个表项时，ListIndex 属性的值为-1C.最后一个表项的序号为 ListCountD.可用 MultiSelect 属性设置是否可多选13.判断复选框是否被选中的属性为（分数：1.00）A.SelectedB.CheckedC.ValueD.Index14.窗体上有 1 个名称为 Label1 的标签；1 个名称为 Listl，且含有若干表项的列表框。为了使得单击List1 中某个表项时，在 Label1 中相应地显示该表项，应使用的程序代码为（分数：1.00）A.Private Sub List1_Click()Label1.Caption=List1.IndexE
7、nd SubB.Private Sub List1_Click()Label1.Caption=List1.ListCountEnd SubC.Private Sub List1_Click()Label1.Caption=List1.TextEnd SubD.Private Sub List1_Click()Label1.Caption=List1.SelectedEnd Sub15.以下关于控件的叙述中，正确的是（分数：1.00）A.列表框包含了组合框的全部功能B.列表框兼有组合框和文本框的功能C.列表框和组合框具有完全不同的功能D.组合框兼有列表框和文本框的功能16.判断单选按钮是否被选
8、中的属性为（分数：1.00）A.SelectedB.CheckedC.ValueD.Index17.窗体上有名称为 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 中被选中的列表项添加
9、到 List2 中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是（分数：1.00）A.将 For 循环的终值改为 List1.ListCountB.将 List1.Selected(i)=True 改为 List1.List(i).Selected=TrueC.将 List2.AddItem Text 改为 List2.AddItern List1.List(i)D.将 List2.AddItem Text 改为 List2.AddItem List1.ListIndex18.窗体上有一个名为 List1 的列表框和一个名为 Command1 的命令按钮，并有下面的事件过程：
10、 Private Sub Command1_Click() n%=List1.ListIndex If n0 Then ch$=List1.List(n) List1.List(n)=List1.List(n-1):List1.List(n-1)=ch End If End Sub 程序运行时，选中 1 个列表项，然后单击 Command1 按钮，则产生的结果是（分数：1.00）A.若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置B.选中的列表项与它前面的列表项互换位置C.若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置D.选中的列表项与它后面的列表项互换位
11、置19.窗体上有一个名称为 Combo1 的组合框，一个名称为 Command1 的命令按钮。要求编写程序，在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则将其删除；若没有相同列表项，则将其添加到组合框中。现有人编写如下程序，以期实现上述功能：Private Sub Command1_Click() str1=Trim(Combo1.Text) flag=0 If str1“Then For i=0 To Combo1.ListCount-1 If str1=Combo1.List(i)Then Combo1.RemoveItem i:
12、Combo1.Text=“ flag=1 End If Next If flag=1 Then Combo1.AddItem Combo1.Text End If End Sub 程序中存在问题，以下关于程序问题的叙述中，正确的是（分数：2.00）A.For 循环的循环初值 i 应该从 1 开始B.语句 Combo1.RemoveItem i 有错误C.语句 Combo1.AddItem Combo1.Text 有错，Combo1.Text 的内容已存在于组合框中D.应把程序倒数第 3 行中的 If flag=1 改为 If flag=020.在窗体上画一个名称为 List1 的列表框，然后编
13、写如下程序： Private Sub Form_Click() For i=1 To 10 Item=“Item“ &i:List1.AddItem Item Next i End Sub 程序运行时，单击窗体，所完成的功能是（分数：2.00）A.向列表框中添加 10 个项目B.向列表框中添加 11 个项目C.向列表框中添加 10 个数字D.向列表框中添加 110 的和21.设窗体上有一个名称为 List1 的列表框和一个名称为 Check1 的复选框数组(下标从 0 开始)。程序运行时，单击某个复选框，如果列表框中没有该复选框的标题，则把该复选框的标题添加到列表框中，否则从列表框中把该复选框
14、标题删除。 Private Sub Check1_Click(Index As Integer) For k=0 To List1.ListCount-1 If Check1(Index).Caption=List1.List(k) Then Exit For Next k If kList1.ListCount Then List1.RemoveItem k Else List1.AddItem_ End If End Sub 为使上面程序可以实现该功能，程序代码中横线上应该填入的代码是（分数：2.00）A.kB.Check1.CaptionC.Check1(k)D.Check1(Index
15、).Caption22.在窗体上画一个水平滚动条，其属性值 Min 满足（分数：2.00）A.增加一个 SmallChange 量B.减少一个 SmallChange 量C.增加一个 LargeChange 量D.减少一个 LargeChange 量23.关于水平滚动条，如下叙述中错误的是（分数：2.00）A.当滚动框的位置改变时，触发 Change 事件B.当拖动滚动条中的滚动框时，触发 Scroll 事件C.LargeChange 属性是滚动条的最大值D.Value 是滚动条中滚动框的当前值24.窗体上有一个名称为 VScroll1 的滚动条，当用鼠标拖动滚动条中的滚动块时，触发的事件是（
16、分数：2.00）A.ClickB.KeyDownC.DragDropD.Scroll25.以下不能触发滚动条 Change 事件的操作是（分数：2.00）A.拖动滚动框B.单击两端的滚动箭头C.单击滚动框D.单击滚动箭头与滚动框之间的滚动条26.窗体上有一个名称为 VScroll1 的垂直滚动条，要求程序运行时，滚动块的初始位置在最下端，应该使VScroll1.Value 的值等于（分数：2.00）A.VScroll1.LargeChangeB.VScroll1.SmallChangeC.VScroll1.MaxD.VScroll1.Min27.窗体上有一个名称为 HScroll1 的滚动条，
17、程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是（分数：2.00）A.Private Sub HScroll1_Change()Print HScroll1.ValueEnd SubB.Private Sub HScroll1_Change()Print HScroll1.SmallChangeEnd SubC.Private Sub HScroll1_Scroll()Print HScroll1.ValueEnd SubD.Private Sub HScroll1_Scroll()Print HScroll1.SmallChan
18、geEnd Sub28.设窗体上有 1 个水平滚动条，已经通过属性窗口把它的 Max 属性设置为 1，Min 属性设置为 100。下面叙述中正确的是（分数：2.00）A.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就增加B.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就减少C.由于滚动条的 Max 属性值小于 Min 属性值，程序会出错D.由于滚动条的 Max 属性值小于 Min 属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动29.设窗体上有一个水平滚动条 HScroll1 和一个命令按钮 Command1，及下面的事件过程： Private Sub
19、Form_Load() HScroll1.Min=0 HScroll1.Max=100 End Sub Private Sub Command1_Click() HScroll1.Value=70 End Sub 程序运行时单击命令按钮，则滚动条上滚动块位置的图示是 A B C D （分数：2.00）A.B.C.D.30.窗体上有一个名称为 VScroll1 的垂直滚动条，为了设定单击滚动条两端箭头时的 Value 增量值，应设置的属性是（分数：2.00）A.LargeChangeB.SmallChangeC.MaxD.Min31.程序运行时，拖动滚动条上的滚动框，则所触发的事件是（分数：2.
20、00）A.MoveB.ScrollC.DragD.DragDrop32.设窗体上有一个 Text1 文本框和一个 HScroll1 水平滚动条，并有下面的事件过程： Private Sub HScroll1_Change() Text1=HScroll1 End Sub 在程序运行时，当把滚动框移动到最左边时，文本框中显示的是 100；当把滚动框移动到最右边时，文本框中显示的是 1。根据这些信息，下面的判断中错误的是（分数：2.00）A.滚动条的 Max 和 Min 属性的值分别是 1 和 100B.滚动条的 Max 和 Min 属性的值分别是 100 和 1C.文本框中显示的是滚动条 Val
21、ue 属性的值D.如果把滚动框移动到中间位置，文本框中将显示 5033.设窗体上有 1 个名称为 HScroll1 的水平滚动条，其 Max、Min 属性分别设置为 100、1；有 2 个名称分别为 Option1、Option2 的单选按钮，其标题分别为“30”、“50”；还有下面程序代码： Private Sub Option1_Click() HScroll1=Val(Option1.Caption) End Sub Private Sub Option2_Click() HScroll1=Val(Option2.Caption) End Sub 程序运行时，单击 Option2 单选按
22、钮，则滚动条上滚动框的位置是（分数：2.00）A.在最左边B.在最右边C.在中间D.在中间偏左的位置34.下列关于水平滚动条的叙述中，错误的是（分数：2.00）A.Value 属性值表示单击滚动条两端的箭头时，滚动框向左或向右移动的增量B.Scroll 事件在鼠标拖动滚动框时产生C.用鼠标拖动滚动框后，会触发 Change 事件D.单击滚动条两端箭头时，会触发 Change 事件35.下列关于滚动条的叙述中，错误的是（分数：2.00）A.在滚动条内单击滚动框前面或后面的部位时，会触发 Scroll 事件B.在滚动条内拖动滚动框时，会触发 Scroll 事件C.在滚动条内拖动滚动框后，会触发 C
23、hange 事件D.单击滚动条两端的箭头时，会触发 Change 事件36.定时器的 Interval 属性的值是一个整数，它表示的是（分数：2.00）A.毫秒数B.秒数C.分钟数D.小时数37.为了使每秒钟发生一次计时器事件，可以将其 Interval 属性设置为（分数：2.00）A.1B.10C.100D.100038.窗体上有 1 个名称为 Text1 的文本框，1 个名称为 Timer1 的计时器，且已在属性窗口将 Timer1 的Interval 属性设置为 2000、Enabled 属性设置为 False。以下程序的功能是，单击窗体，则每隔 2 秒钟在Text1 中显示一次当前时间
24、。 Private Sub Form_Click() Timer1._ End Sub Private Sub Timer1_Timer() Text1.Text=Time() End Sub 为了实现上述功能，应该在横线处填入的内容为（分数：2.00）A.Enabled=TrueB.Enabled=FalseC.Visible=TrueD.Visible=False39.设窗体上有一个标签 Label1 和一个计时器 Timer1，Timer1 的 Interval 属性被设置为 1000，Enabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述
25、要求的事件过程是（分数：2.00）A.Private Sub Timer1_Timer()Label1.Caption=TrueEnd SubB.Private Sub Timer1_Timer()Label1.Caption=Time$End SubC.Private Sub Timer1_Timer()Label1.Interval=1End SubD.Private Sub Timer1_Timer()For k=1 To Timer1.IntervalLabel1.Caption=TimerNext kEnd Sub40.窗体上有 1 个名称为 Text1 的文本框；1 个名称为 Ti
26、mer1 的计时器控件，其 Interval 属性值为5000，Enabled 属性值是 True。Timer1 的事件过程如下： Private Sub Timer1_Timer() Static flag As Integer If flag=0 Then flag=1:flag=-flag End If If flag=1 Then Text1.ForeColor=&HFF&“&HFF&为红色 Else Text1.ForeColor=&HC000&“&HC000&为绿色 End If End Sub 以下叙述中正确的是（分数：2.00）A.每次执行此事件过程时，flag 的初始值均为
27、0B.flag 的值只可能取 0 或 1C.程序执行后，文本框中的文字每 5 秒改变一次颜色D.程序有逻辑错误，Else 分支总也不能被执行41.为了暂时关闭计时器，应把它的一个属性设置为 False，这个属性是（分数：2.00）A.VisibleB.TimerC.EnabledD.Interval42.设窗体上有一个名称为 Timer1 的计时器控件，其 Interval 属性被设置为 500，Enabled 属性被设置为True；还有一个名称为 Text1 的文本框和下面的事件过程： Private Sub Timer1_Timer() Static x As Long x=x+1:Tex
28、t1=x End Sub 程序运行一段时间后，文本框中显示的是 100，则表示（分数：2.00）A.程序已经运行了 100 秒B.程序已经运行了 100 毫秒C.程序已经运行了 50 秒D.文本框到窗体左边框的距离是 10043.下列不属于计时器控件属性的是（分数：2.00）A.EnabledB.IntervalC.IndexD.Visible44.下列不属于计时器控件属性的是（分数：2.00）A.EnabledB.IntervalC.NameD.Timer45.窗体上有一个名称为 Timer1 的计时器控件，一个名称为 Shape1 的形状控件，其 Shape 属性值为3(Circle)。编
29、写程序如下： Private Sub Form_Load() Shape1.ToP=0:Timer1.Interval=100 End Sub Private Sub Timer1_Timer() Static x As Integer Shape1.Top=Shape1.Top+100 x=x+1 If x Mod 10=0 Then Shape1.Top=0 End If End Sub 以下关于上述程序的叙述中，错误的是（分数：2.00）A.每执行一次 Timer1_Timer 事件过程，x 的值都在原有基础上增加 1B.Shape1 每移动 10 次回到起点，重新开始C.窗体上的 Sh
30、ape1 由下而上移动D.Shape1 每次移动 10046.窗体上有一个名称为 Label1 的标签；一个名称为 Timer1 的计时器，其 Enabled 和 Interval 属性分别为 True 和 1000。编写如下程序： Dim n As Integer Private Sub Timer1_Timer() ch=Chr(n+Asc(“A“):Label1.Caption=ch:n=n+1:n=n Mod 4 End Sub 运行程序，将在标签中（分数：2.00）A.不停地依次显示字符“A”、“B”、“C”、“D”，直至窗体被关闭B.依次显示字符“A”、“B”、“C”、“D”各一次
31、C.每隔 1 秒显示字符“A”一次D.每隔 1 秒依次显示 26 个英文字母中的一个47.窗体上有一个名称为 Shape1 并显示为圆的形状控件(其 Width 和 Height 属性值相等)，一个名称为Timer1 的计时器，并有下面程序代码： Dim r As Single, flag As Integer Private Sub Form_Load() r=Shape1.Width Timer1.Enabled=True Timer1.Interval=500 End Sub Private Sub Timer1_Timer() If flag=0 Then Shape1.Width=S
32、hape1.Width-10 If Shape1.Width=100 Then flag=1 End If Else Shape1.Width=Shape1.Width+10 If Shape1.Width=r Then flag=0 End If End If End Sub 运行程序后产生的结果是（分数：2.00）A.圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复B.圆一直在缩小C.圆每隔 0.5 秒向右移动一次D.圆每隔 1 秒向下移动一次48.下列针对框架控件的叙述中，错误的是（分数：2.00）A.框架是一个容器控件B.框架也有 Click 和 DblClick 事件C.框架也可以接
33、受用户的输入D.使用框架的主要目的是对控件进行分组49.要使两个单选按钮属于同一个框架，下面三种操作方法中正确的是先画一个框架，再在框架中画两个单选按钮先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中先画两个单选按钮，再画框架将单选按钮框起来（分数：2.00）A.B.C.D.和50.下面哪个属性肯定不是框架控件的属性（分数：2.00）A.TextB.CaptionC.LeftD.Enabled51.如果在框架中画了 2 个复选框，且框架的 Enabled 属性被设置为 False，2 个复选框的 Enabled 属性被设置为 True，则下面叙述中正确的是（分数：2.00）A.
34、2 个复选框可用B.2 个复选框不可用C.2 个复选框不显示D.上述都不对52.如果要在窗体上使用 2 组单选按钮，每组都可以有一个被选中，则应该做的是（分数：2.00）A.把 l 组单选按钮画在窗体的左边，另 1 组画在右边B.先画 2 组单选按钮，再画 2 个框架控件把 2 组单选按钮分别框起来C.先画 2 个框架控件，再把 2 组单选按钮分别画在不同的框架中D.因为 1 个窗体中只有 1 个单选按钮可以被选中，所以需要使用 2 个窗体53.以下关于框架的叙述中，错误的是（分数：2.00）A.框架能够响应 Click 事件B.框架是一个容器C.框架的 Enabled 属性为 False 时
35、，框架内的控件均被屏蔽D.框架可以获得焦点54.以下可以作为“容器”的控件是（分数：2.00）A.框架B.图像框C.标签D.命令按钮55.窗体上有名称为 Command1 的命令按钮和名称为 Text1 的文本框 Private Sub Command1_Click() Text1.Text=“程序设计“ Text1.SetFocus End Sub Private Sub Text1_GotFocus() Text1.Text=“等级考试“ End Sub 运行以上程序，单击命令按钮后（分数：2.00）A.文本框中显示的是“程序设计”，且焦点在文本框中B.文本框中显示的是“等级考试”，且焦点
36、在文本框中C.文本框中显示的是“程序设计”，且焦点在命令按钮上D.文本框中显示的是“等级考试”，且焦点在命令按钮上56.以下能够设置控件焦点的方法是（分数：2.00）A.SetFocusB.GotFocusC.LostFocusD.TabStop57.设窗体中有一个文本框 Text1，若在程序中执行了 Text1.SetFocus，则触发（分数：2.00）A.Text1 的 SetFocus 事件B.Text1 的 GotFocus 事件C.Text1 的 LostFocus 事件D.窗体的 GotFocus 事件58.对于能够获得焦点的控件，若要使其不能接收焦点，应该（分数：2.00）A.将
37、 TabStop 属性值设为 TrueB.将 TabStop 属性值设为 FalseC.将 TabIndex 属性值设为 0D.将 Enabled 属性值设为 False59.以下能接收焦点的控件是（分数：2.00）A.图像框B.框架C.命令按钮D.标签二级 VISUAL+BASIC-79 (1)答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：59，分数：100.00)1.窗体上有名称为 List1 的列表框。以下能够将列表框当前选定的列表项替换为字符串“Basic”的语句是（分数：1.00）A.List1.AddItem“Basic“B.List1.List(List
38、1.ListIndex)=“Basic“ C.List1.Text=“Basic“D.以上都可以解析：解析 列表框的 ListIndex 属性用于返回或设置控件中当前选择项目的索引(下标)，设计时不可用。当前选定的列表项表示成 List1.List(List1.ListIndex)。2.要想不使用 Shift 或 Ctrl 键就能在列表框中国时选择多个项目，则应把该列表框的 MultiSelect 属性设置为（分数：1.00）A.0-NoneB.1-Simple C.2-ExtendedD.3解析：解析 列表框的 MultiSelect 属性用于设置是否可在列表项中做多个选择。值为 0-Non
39、e(缺省设置)表示不允许做多项选择；值为 1-Simple 表示允许做简单多项选择；值为 2-Extended 表示允许配合使用 Shift 键、Ctrl 键做多项选择。3.如果在列表框 List1 中没有选中项目，则 List1.ListIndex 的值为（分数：1.00）A.-1 B.0C.1D.2解析：解析 列表框的 ListIndex 属性用于返回或设置控件中当前选择项目的索引(下标)，设计时不可用。当 ListIndex 的值设置为-1 时，表示未选定项目，第一项的索引值为 0，最后一项的索引值为ListCount-1。4.设 Label1、Command1、Text1、Check1
40、 分别为标签、命令按钮、文本框、复选框的名称，则以下属性设置语句中，运行时不会出错的是（分数：1.00）A.Label1.BackStyle=2B.Command1.Style=1C.Text1.ScrollBars=4D.Check1.Value=2 解析：解析 标签的 BackStyle 属性用于设置是否让标签覆盖背景，可以取 0(标签不覆盖背景，以透明方式显示)和 1(默认值，标签覆盖背景)；按钮的 Style 属性用来设置命令按钮的外观，可设置成Standard，按钮以标准的形式显示，即文字形式，为默认值，值为 Graphical，按钮将以图形的方式显示；文本框的 ScrollBars
41、 属性用于设置文本框是否有水平或垂直滚动条，可设置成 4 种值，0-None，表示没有滚动条(默认值)；1-Horizontal，表示只有水平滚动条；2-Vertical：表示只有垂直滚动条：3-Both：表示有水平和垂直滚动条；复选框的 Value 属性可设置为以下 3 种值：值 0-Unchecked 表示未选(默认值)，“”消失；值 1-checked 表示选中，复选框将显示“”；值 2-Grayed 表示以灰色呈现。5.下列不包含滚动条的控件是（分数：1.00）A.列表框B.标签 C.组合框D.文本框解析：解析 列表框和组合框当其项目较多时均会自动出现滚动条以便用户能够查看每一项；文本
42、框可以通过设置 ScrollBars 属性来设置滚动条，标签没有滚动条。6.为了删除列表框中的一个列表项，应使用的列表框方法是（分数：1.00）A.MoveB.RemoveC.ClearD.RemoveItem 解析：解析 AddItem 方法可以向列表框中添加一个列表项，RemoveItem 方法可删除列表框中的一列表项；Clear 方法可以删除列表框中的所有列表项。7.以下不能设置 Picture 属性的控件是（分数：1.00）A.窗体B.列表框 C.复选框D.命令按钮解析：解析 窗体的 Picture 属性用于设置窗体的背景图形；复选框的 Style 属性为 1 时将以图形方式显示，此时
43、可以设置 Picture 属性来设置显示的图形；命令按钮的 Picture 可以设置图形显示，列表框不具备 Picture 属性。8.设窗体上有 1 个名称为 List1 的列表框，程序运行时，如果选中了第 3 个列表项(最上面的列表项为第0 个列表项)，则下面不成立的是（分数：1.00）A.List1.Selected(List1.ListIndex)的值为 TrueB.List1.Selected(3)的值为 TrueC.List1.List(3)的值为 True D.List1.ListIndex 的值为 3解析：解析 列表框的 List 属性是一个字符串数组，数组的一项就是一个列表项目
44、，可以通过下标访问数组中的值 Selected 属性是一个数组，用于设置或返回指定索引号列表项的选中状态。值为 True 表示被选中；值为 False 表示未被选中。ListIndex 属性可返回当前所选项目的索引号，其起始值为 0，最后一项的值为 ListCount-1。当 ListIndex 的值为-1 时，表示未选定项目。9.下列控件中，不响应 Click 事件的是（分数：1.00）A.框架B.标签C.图像框D.形状 解析：解析 输入型控件一般都能响应 Click 事件，但本题的选项均不是输入型控件。框架、标签和图片框、图像框虽然不是输入型控件，但是也能响应 Click 事件，形状不能响
45、应 Click 事件。10.设窗体上有一个名称为 Check1 的复选框，并有下面程序代码： Private Sub Check1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Check1.Value=1 End Sub 根据上面的事件过程，可以得出结论（分数：1.00）A.鼠标单击该复选框，复选框的标题被改为“1”B.鼠标右键单击该复选框，可以选中该复选框 C.鼠标左键单击该复选框，它被选中，右键单击它，取消选中D.鼠标右键单击该复选框，它被选中，左键单击它，取消选中解析：解析 在复选框的鼠
46、标按下事件中，将复选框的 Value 属性设置为 1。复选框的 Value 属性可设置为以下 3 种值：值 0-Unchecked 表示未选(默认值)，“”消失；值 1-Checked 表示选中，复选框将显示“”；值 2-Grayed 表示以灰色呈现。11.设窗体上有一个名称为 List1 的列表框，并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是（分数：1.00）A.List1.List(List1.ListCount)=“VB 程序“B.List1.List(List1.ListCount-1)=“VB 程序“ C.List1.AddItem“VB 程序“D.List1.A
47、ddItem“VB 程序“，List1.ListCount解析：解析 列表框的 List 属性是一个字符串数组，数组的一项就是一个列表项目，可以通过下标访问数组中的值。ListIndex 属性可返回当前所选项目的索引号，其起始值为 0，最后一项的值为 ListCount-1。所以 A 选项为 List1.List(List1.ListCount)赋值，是在最后追加了一项；C 选项使用 AddItem 方法在最后追加一项；D 选项是在 List1.ListCount 的位置追加一项，其实也是在最后追加；B 选项将会把现有列表的最后一项值改为“VB 程序“。12.已知列表框控件 List1 中已放
48、入若干表项，下列关于 List1 的叙述中错误的是（分数：1.00）A.第一个表项的序号为 0B.没有选中任何一个表项时，ListIndex 属性的值为-1C.最后一个表项的序号为 ListCount D.可用 MultiSelect 属性设置是否可多选解析：解析 列表框的 List 属性是一个字符串数组，数组的一项就是一个列表项目，可以通过下标访问数组中的值。ListIndex 属性可返回当前所选项目的索引号，其起始值为 0，最后一项的值为 ListCount-1。当 ListIndex 的值为-1 时，表示未选定项目。可用 MultiSelect 属性设置是否可多选。13.判断复选框是否被
49、选中的属性为（分数：1.00）A.SelectedB.CheckedC.Value D.Index解析：解析 复选框的 Value 属性可设置为以下 3 种值：值 0-Unchecked 表示未选(默认值)，“”消失；值 1-Checked 表示选中，复选框将显示“”；值 2-Grayed 表示以灰色呈现。14.窗体上有 1 个名称为 Label1 的标签；1 个名称为 Listl，且含有若干表项的列表框。为了使得单击List1 中某个表项时，在 Label1 中相应地显示该表项，应使用的程序代码为（分数：1.00）A.Private Sub List1_Click()Label1.Caption=List1.IndexEnd SubB.Private Sub List1_Click()Label1.Caption=List1.ListCountEnd SubC.Private Sub List1_Click()Label1.Caption=List1.TextEnd Sub D.Private Sub List1_Click()Label1.Caption=List1.SelectedEnd Sub解析：解析 标签控件(L
