1、国家二级 VB机试（常用标准控件）-试卷 16及答案解析(总分：64.00，做题时间：90 分钟)一、选择题(总题数：32，分数：64.00)1.为了使文本框只具有垂直滚动条，应先把 MultiLine属性设置为 True，然后再把 ScrollBars属性设置为（分数：2.00）A.0B.1C.2D.32.若要使文本框能够输入多行文本，应该设置的属性是（分数：2.00）A.MultiLineB.WordWrapC.ScrollBarsD.AutoSize3.窗体上有一个名称为 Command1的命令按钮，一个名称为 Text1的文本框，其 Text属性值为“VB Programming”。运
2、行程序后，选中其中的“VB”，并执行如下事件过程：Private Sub Command1_Click()Text1.SelText=“C+“End Sub则文本框中显示的内容为（分数：2.00）A.VBB.VB ProgrammingC.文本框被清空D.C+Programming4.决定标签内容显示位置的属性是（分数：2.00）A.TextB.NameC.AlignmentD.Caption5.为使文本框具有初始值“VB”，在设计阶段正确的操作是（分数：2.00）A.选中该文本框，在属性窗口中把 Text属性的值改为“VB”B.选中该文本框，在属性窗口中把 Caption属性的值改为“VB”
3、C.双击该文本框，在弹出的窗口中输入“VB”D.单击该文本框，在该文本框中直接输入“VB”6.使用 Line控件在窗体上画一条从(0，0)到(600，700)的直线，则其相应属性的值应是（分数：2.00）A.X1=0,X2=600,Y1=0,Y2=700B.Y1=0,Y2=600,X1=0,X2=700C.X1=0,X2=0,Y1=600,Y2=700D.Y1=0,Y2=0,X1=600,X2=700,7.已知图片框 Picture1中已装入一个图形，为了在不删除图片框的前提下，清除该图形，应采取的正确操作是（分数：2.00）A.在设计阶段选择图片框 Picture1，并按 Delete键B.
4、在运行期间执行语句 Picture1.Picture=LoadPicture(“)C.在运行期间执行语句 Picture1.Picture=“D.在设计阶段先选中图片框 Picture1，再在属性窗口中选择 Picture属性，最后按 Enter键8.设窗体上有 2个直线控件 Line1和 Line2，若使两条直线相连接，需满足的条件是（分数：2.00）A.Line1.X1=Line2.X2且 Line1.Y1=Line2.Y2B.Line1.X1=Line2.Y1且 Line1.Y1=Line2.X1C.Line1.X2=Line2.X1且 Line1.Y1=Line2.Y2D.Line1.
5、X2=Line2.X1且 Line1.Y2=Line2.Y29.设窗体上有一个 Picture1图片框，要求在图片框中的指定位置(坐标为(500，300)输出“OK”，下面可以实现这一功能的事件过程是（分数：2.00）A.Private Sub Form_Click() Picture1.CurrentX=500 Picture1.CurrentY=300 Picture1.Print“OK“ End SubB.Private Sub Form_Click() Picture1.Left=500 Picture1.Top=300 Picture1.Print“OK“ End SubC.Priv
6、ate Sub Form_Click() Picture1.CurrentX=500 Picture1.CurrentY=300 Print“OK“ End SubD.Private Sub Form_Click() Picture1.Left=500 Picture1.Top=300 Print“OK“ End Sub10.如果把命令按钮的 Cancel属性设置为 True，则程序运行后（分数：2.00）A.按 Esc键与单击该命令按钮的作用相同B.按回车键与单击该命令按钮的作用相同C.按 Esc键将停止程序的运行D.按回车键将中断程序的运行11.若已把一个命令按钮的 Default属性设置
7、为 True，则下面可导致按钮的 Click事件过程被调用的操作是（分数：2.00）A.用鼠标右键单击此按钮B.按键盘上的 Esc键C.按键盘上的回车键D.用鼠标右键双击此按钮12.如果将命令按钮的访问键设置为“D”，以下不会触发命令按钮 Click事件的操作是（分数：2.00）A.在命令按钮上单击鼠标左键B.在命令按钮上单击鼠标右键C.将焦点移至命令按钮上，并按 Enter键D.按组合键“Alt+D”13.对于列表框控件 List1，能够表示当前被选中列表项内容的是（分数：2.00）A.List1.TextB.List1.IndexC.List1.ListIndexD.List1.List1
8、4.为了清除列表框中指定的项目，应使用的方法是（分数：2.00）A.ClsB.ClearC.RemoveD.RemoveItem15.窗体上有一个列表框控件 List1。以下叙述中错误的是（分数：2.00）A.List1中有 ListCount-1个列表项B.当 List1.Selected(i)=True，表明第 i项被选中C.设置某些属性，可以使列表框显示多列数据D.List1.Text的值是最后一次被选中的列表项文本16.要想使列表框只允许单选列表项，应设置的属性为（分数：2.00）A.StyleB.SelectedC.MultiSelectD.Enabled17.窗体上有一个名称为 T
9、ext1的文本框，一个名称为 Combo1的组合框。将文本框中的内容添加到组合框中所使用的命令是（分数：2.00）A.Text1.AddItem Combo1.TextB.Combo1.AddItem Text1.TextC.Combo1.Text=Text1.TextD.Text1.Text=Combo1.Text18.如果在列表框 List1中没有选中项目，则 List1.ListIndex的值为（分数：2.00）A.-1B.0C.1D.219.以下不能设置 Picture属性的控件是（分数：2.00）A.窗体B.列表框C.复选框D.命令按钮20.设窗体上有一个名称为 List1的列表框，
10、并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是（分数：2.00）A.List1.List(List1.ListCount)=“VB程序“B.List1.List(List1.ListCount-1)=“VB程序“C.List1.AddItem“VB程序“D.List1.AddItem“VB程序“,List1.ListCount21.以下关于控件的叙述中，正确的是（分数：2.00）A.列表框包含了组合框的全部功能B.列表框兼有组合框和文本框的功能C.列表框和组合框具有完全不同的功能D.组合框兼有列表框和文本框的功能22.窗体上有一个名称为 Combo1的组合框，一个名称为 Co
11、mmand1的命令按钮。要求编写程序，在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则将其删除；若没有相同列表项，则将其添加到组合框中。现有人编写如下程序，以期实现上述功能：Private Sub Command1_Click()str1=Trim(Combo1.Text)flag=0If str1“ThenFor i=0 To Combo1.ListCount-1If str1=Combo1.List(i)ThenCombo1.RemoveItemi:Combo1.Text=“flag=1End IfNextIf flag=1Then
12、Combo1.AddItem Combo1.TextEnd IfEnd Sub程序中存在问题，以下关于程序问题的叙述中，正确的是（分数：2.00）A.For循环的循环初值 i应该从 1开始B.语句 Combo1.RemoveItemi有错误C.语句 Combo1.AddItemCombo1.Text有错，Combo1.Text 的内容已存在于组合框中D.应把程序倒数第 3行中的 If flag=1改为 If flag=023.关于水平滚动条，如下叙述中错误的是（分数：2.00）A.当滚动框的位置改变时，触发 Change事件B.当拖动滚动条中的滚动框时，触发 Scroll事件C.LargeCh
13、ange属性是滚动条的最大值D.Value是滚动条中滚动框的当前值24.窗体上有一个名称为 HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是（分数：2.00）A.Private Sub HScroll1_Change() Print HScroll1.Value End SubB.Private Sub HScroll1_Change() Print HScroll1.SmallChange End SubC.Private Sub HScroll1_Scroll() Print HScroll1.Val
14、ue End SubD.Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub25.程序运行时，拖动滚动条上的滚动框，则所触发的事件是（分数：2.00）A.MoveB.ScrollC.DragD.DragDrop26.下列关于滚动条的叙述中，错误的是（分数：2.00）A.在滚动条内单击滚动框前面或后面的部位时，会触发 Scroll事件B.在滚动条内拖动滚动框时，会触发 Scroll事件C.在滚动条内拖动滚动框后，会触发 Change事件D.单击滚动条两端的箭头时，会触发 Change事件27.设窗体上有一个标签 Labe
15、l1和一个计时器 Timer1，Timer1 的 Interval属性被设置为 1000，Enabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是（分数：2.00）A.Private Sub Timer1_Timer() Label1.Caption=True End SubB.Private Sub Timer1_Timer() Label1.Caption=Time$ End SubC.Private Sub Timer1_Timer() Label1.Interval=1 End SubD.Private Sub Timer1
16、_Timer() For k=1ToTimer1.Interval Label1.Caption=Timer Next k End Sub28.下列不属于计时器控件属性的是（分数：2.00）A.EnabledB.IntervalC.IndexD.Visible29.窗体上有一个名称为 Shape1并显示为圆的形状控件(其 Width和 Height属性值相等)，一个名称为Timer1的计时器，并有下面程序代码：Dim r As Single,flag As IntegerPrivate Sub Form_Load()r=Shape1.WidthTimer1.Enabled=TrueTimer1
17、.Interval=500End SubPrivate Sub Timer1_Timer()If flag=0ThenShape1.Width=Shape1.Width-10If Shape1.Width=100Thenflag=1End IfElseShape1.Width=Shape1.Width+10If Shape1.Width=rThenflag=0End IfEnd IfEnd Sub 运行程序后产生的结果是（分数：2.00）A.圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复B.圆一直在缩小C.圆每隔 0.5秒向右移动一次D.圆每隔 1秒向下移动一次30.如果在框架中画了 2个复
18、选框，且框架的 Enabled属性被设置为 False，2 个复选框的 Enabled属性被设置为 True，则下面叙述中正确的是（分数：2.00）A.2个复选框可用B.2个复选框不可用C.2个复选框不显示D.上述都不对31.窗体上有名称为 Command1的命令按钮和名称为 Text1的文本框 Private Sub Command1_Click()Text1.Text=“程序设计“Text1.SetFocusEnd SubPrivate Sub Text1_GotFocus()Text1.Text=“等级考试“End Sub运行以上程序，单击命令按钮后（分数：2.00）A.文本框中显示的是
19、“程序设计”，且焦点在文本框中B.文本框中显示的是“等级考试”，且焦点在文本框中C.文本框中显示的是“程序设计”，且焦点在命令按钮上D.文本框中显示的是“等级考试”，且焦点在命令按钮上32.以下能接收焦点的控件是（分数：2.00）A.图像框B.框架C.命令按钮D.标签国家二级 VB机试（常用标准控件）-试卷 16答案解析(总分：64.00，做题时间：90 分钟)一、选择题(总题数：32，分数：64.00)1.为了使文本框只具有垂直滚动条，应先把 MultiLine属性设置为 True，然后再把 ScrollBars属性设置为（分数：2.00）A.0B.1C.2 D.3解析：解析：本题考查的考点
20、是有关文本框的滚动条的。ScrollBars 属性用于设置文本框是否有水平或垂直滚动条，可设置成 4种值： 0-表示没有滚动条(默认值)； 1-表示只有水平滚动条； 2-表示只有垂直滚动条； 3-表示有水平和垂直滚动条。设置 0以外的值时 MultiLine属性值必须为 True。2.若要使文本框能够输入多行文本，应该设置的属性是（分数：2.00）A.MultiLine B.WordWrapC.ScrollBarsD.AutoSize解析：解析：文本框的 MultiLine属性用于设置文本框是否能以多行方式显示文本，值为 False(默认值)时不可以显示，值为 True时可以显示。3.窗体上有
21、一个名称为 Command1的命令按钮，一个名称为 Text1的文本框，其 Text属性值为“VB Programming”。运行程序后，选中其中的“VB”，并执行如下事件过程：Private Sub Command1_Click()Text1.SelText=“C+“End Sub则文本框中显示的内容为（分数：2.00）A.VBB.VB ProgrammingC.文本框被清空D.C+Programming 解析：解析：文本框的 SelText属性用于返回含有当前选中的字符串，在代码中可以改变其值，在本题中相当于在代码中用“C+”替换了“VB”。4.决定标签内容显示位置的属性是（分数：2.00
22、）A.TextB.NameC.Alignment D.Caption解析：解析：标签的 Alignment属性用来确定标签中标题的放置方式，可设置为 0(靠左，默认)、1(靠右)或2(居中)。5.为使文本框具有初始值“VB”，在设计阶段正确的操作是（分数：2.00）A.选中该文本框，在属性窗口中把 Text属性的值改为“VB” B.选中该文本框，在属性窗口中把 Caption属性的值改为“VB”C.双击该文本框，在弹出的窗口中输入“VB”D.单击该文本框，在该文本框中直接输入“VB”解析：解析：文本框的 Text属性用于返回或设置文本框中的内容，该属性可以在运行时设置，也可以在属性窗口设置。6
23、.使用 Line控件在窗体上画一条从(0，0)到(600，700)的直线，则其相应属性的值应是（分数：2.00）A.X1=0,X2=600,Y1=0,Y2=700 B.Y1=0,Y2=600,X1=0,X2=700C.X1=0,X2=0,Y1=600,Y2=700D.Y1=0,Y2=0,X1=600,X2=700,解析：解析：Line 控件有四个属性分别为 X1、Y1，X2、Y2，分别代表两个端点的横坐标和纵坐标。7.已知图片框 Picture1中已装入一个图形，为了在不删除图片框的前提下，清除该图形，应采取的正确操作是（分数：2.00）A.在设计阶段选择图片框 Picture1，并按 Del
24、ete键B.在运行期间执行语句 Picture1.Picture=LoadPicture(“) C.在运行期间执行语句 Picture1.Picture=“D.在设计阶段先选中图片框 Picture1，再在属性窗口中选择 Picture属性，最后按 Enter键解析：解析：图片框的 Picture属性用于在设计阶段设置窗体、图片框和图像框上显示的图片，可以通过属性窗口中的 Pictrue属性装入，也可以在运行期间通过 LoadPicture函数装入图片，其语法格式为对象.Picture=LoadPicture(“文件名“)，若要清除图形则参数设置为空字符串。8.设窗体上有 2个直线控件 Lin
25、e1和 Line2，若使两条直线相连接，需满足的条件是（分数：2.00）A.Line1.X1=Line2.X2且 Line1.Y1=Line2.Y2 B.Line1.X1=Line2.Y1且 Line1.Y1=Line2.X1C.Line1.X2=Line2.X1且 Line1.Y1=Line2.Y2D.Line1.X2=Line2.X1且 Line1.Y2=Line2.Y2解析：解析：Line 控件有四个属性分别为 X1、Y1，X2、Y2，分别代表两个端点的横坐标和纵坐标。若使两条直线相连接，需要让两条直线的一个 X坐标和一个 Y坐标重合。9.设窗体上有一个 Picture1图片框，要求在图
26、片框中的指定位置(坐标为(500，300)输出“OK”，下面可以实现这一功能的事件过程是（分数：2.00）A.Private Sub Form_Click() Picture1.CurrentX=500 Picture1.CurrentY=300 Picture1.Print“OK“ End Sub B.Private Sub Form_Click() Picture1.Left=500 Picture1.Top=300 Picture1.Print“OK“ End SubC.Private Sub Form_Click() Picture1.CurrentX=500 Picture1.Cur
27、rentY=300 Print“OK“ End SubD.Private Sub Form_Click() Picture1.Left=500 Picture1.Top=300 Print“OK“ End Sub解析：解析：图片框的 CurrentX和 CurrentY属性会在程序运行时，返回或设置下一次打印或绘图位置的水平坐标和垂直坐标；如果不指定 Print方法的主体，将会默认在窗体上进行输出。10.如果把命令按钮的 Cancel属性设置为 True，则程序运行后（分数：2.00）A.按 Esc键与单击该命令按钮的作用相同 B.按回车键与单击该命令按钮的作用相同C.按 Esc键将停止程序的
28、运行D.按回车键将中断程序的运行解析：解析：命令按钮的 Cancel属性用来设置窗体的“取消”按钮，程序运行时，按下Esc键将执行该命令按钮的单击事件过程。11.若已把一个命令按钮的 Default属性设置为 True，则下面可导致按钮的 Click事件过程被调用的操作是（分数：2.00）A.用鼠标右键单击此按钮B.按键盘上的 Esc键C.按键盘上的回车键 D.用鼠标右键双击此按钮解析：解析：本题考查的考点是有关 Default属性的。当某控件 Default属性设置为 True时，运行状态下按下回车键等同于左键单击，即触发其 Click事件。12.如果将命令按钮的访问键设置为“D”，以下不会
29、触发命令按钮 Click事件的操作是（分数：2.00）A.在命令按钮上单击鼠标左键B.在命令按钮上单击鼠标右键 C.将焦点移至命令按钮上，并按 Enter键D.按组合键“Alt+D”解析：解析：访问键就是按钮标题中加了下划线的字母，只要同时按下Alt键和加了下划线的字母键，就可以触发按钮的单击事件。在命令按钮上单击鼠标左键和将焦点移至命令按钮上，并按 Enter键都可以触发单击事件，在命令按钮上单击鼠标右键不能触发单击事件。13.对于列表框控件 List1，能够表示当前被选中列表项内容的是（分数：2.00）A.List1.Text B.List1.IndexC.List1.ListIndexD
30、.List1.List解析：解析：列表框的 Text属性可返回列表框中所选项目的内容。除此之外，属性 ListIndex返回当前所选项目的索引号，List(Index)属性返回指定索引号的列表项内容，因此返回当前选定的列表项也可以使用 List1.List(List1.ListIndex)。14.为了清除列表框中指定的项目，应使用的方法是（分数：2.00）A.ClsB.ClearC.RemoveD.RemoveItem 解析：解析：在程序运行时删除列表框中的项目可以使用 RemoveItem方法，其语法为：列表框.RemoveItem索引号。15.窗体上有一个列表框控件 List1。以下叙述中
31、错误的是（分数：2.00）A.List1中有 ListCount-1个列表项 B.当 List1.Selected(i)=True，表明第 i项被选中C.设置某些属性，可以使列表框显示多列数据D.List1.Text的值是最后一次被选中的列表项文本解析：解析：列表框的 ListCount属性返回列表框中当前列表项条数；Selected 属性用于设置或返回指定索引号列表项的选中状态，值为 True表示被选中，值为 False表示未被选中；Columns 属性用于设置ListBox控件以几列方式显示列表项，其值为 0n，值为 0时默认值，以单列方式显示；List1.Text 的值是最后一次被选中的
32、列表项文本。16.要想使列表框只允许单选列表项，应设置的属性为（分数：2.00）A.StyleB.Selected C.MultiSelectD.Enabled解析：解析：列表框的 List属性是一个字符串数组，数组的一项就是一个列表项目，可以通过下标访问数组中的值。ListCount 属性是一个整型值，代表数组中的项目个数。Selected 属性是一个数组，用于设置或返回指定索引号列表项的选中状态。值为 True表示被选中；值为 False表示未被选中。ListIndex属性：可返回当前所选项目的索引号，其起始值为 0，最后一项的值为 ListCount-1。当 ListIndex的值为-1
33、 时，表示未选定项目。MultiSelect 属性用于表示是否能够在控件中进行复选以及如何进行复选。MultiSelect属性可取 0、1、2 这 3种值，默认时为 0，表示不允许复选。17.窗体上有一个名称为 Text1的文本框，一个名称为 Combo1的组合框。将文本框中的内容添加到组合框中所使用的命令是（分数：2.00）A.Text1.AddItem Combo1.TextB.Combo1.AddItem Text1.Text C.Combo1.Text=Text1.TextD.Text1.Text=Combo1.Text解析：解析：组合框的 AddItem方法可以将指定的字符串加入到组
34、合框的尾部，本题要求加入的是文本框的值，即文本框的 Text属性值。18.如果在列表框 List1中没有选中项目，则 List1.ListIndex的值为（分数：2.00）A.-1 B.0C.1D.2解析：解析：列表框的 ListIndex属性用于返回或设置控件中当前选择项目的索引(下标)，设计时不可用。当 ListIndex的值设置为-1 时，表示未选定项目，第一项的索引值为 0，最后一项的索引值为ListCount-1。19.以下不能设置 Picture属性的控件是（分数：2.00）A.窗体B.列表框 C.复选框D.命令按钮解析：解析：窗体的 Picture属性用于设置窗体的背景图形；复选
35、框的 Style属性为 1时将以图形方式显示，此时可以设置 Picture属性来设置显示的图形；命令按钮的 Picture可以设置图形显示，列表框不具备 Picture属性。20.设窗体上有一个名称为 List1的列表框，并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是（分数：2.00）A.List1.List(List1.ListCount)=“VB程序“B.List1.List(List1.ListCount-1)=“VB程序“ C.List1.AddItem“VB程序“D.List1.AddItem“VB程序“,List1.ListCount解析：解析：列表框的 List
36、属性是一个字符串数组，数组的一项就是一个列表项目，可以通过下标访问数组中的值。ListIndex 属性可返回当前所选项目的索引号，其起始值为 0，最后一项的值为 ListCount-1。所以 A选项为 List1.List(List1.ListCount)赋值，是在最后追加了一项；C 选项使用 AddItem方法在最后追加一项；D 选项是在 List1.ListCount的位置追加一项，其实也是在最后追加；B 选项将会把现有列表的最后一项值改为“VB 程序“。21.以下关于控件的叙述中，正确的是（分数：2.00）A.列表框包含了组合框的全部功能B.列表框兼有组合框和文本框的功能C.列表框和组合
37、框具有完全不同的功能D.组合框兼有列表框和文本框的功能 解析：解析：组合框(ComboBox)将文本框与列表框的特性组合在一起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目。22.窗体上有一个名称为 Combo1的组合框，一个名称为 Command1的命令按钮。要求编写程序，在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则将其删除；若没有相同列表项，则将其添加到组合框中。现有人编写如下程序，以期实现上述功能：Private Sub Command1_Click()str1=Trim(Combo1.Text)flag=0If
38、 str1“ThenFor i=0 To Combo1.ListCount-1If str1=Combo1.List(i)ThenCombo1.RemoveItemi:Combo1.Text=“flag=1End IfNextIf flag=1ThenCombo1.AddItem Combo1.TextEnd IfEnd Sub程序中存在问题，以下关于程序问题的叙述中，正确的是（分数：2.00）A.For循环的循环初值 i应该从 1开始B.语句 Combo1.RemoveItemi有错误C.语句 Combo1.AddItemCombo1.Text有错，Combo1.Text 的内容已存在于组合
39、框中D.应把程序倒数第 3行中的 If flag=1改为 If flag=0 解析：解析：本题中首先用一个循环遍历组合框的所有列表项，依次取出每一个列表项与 str1进行比较，若相同则删除该项，将 flag置为 1，否则 flag为 0；循环结束后如果 flag的值为 0则说明没有任何一个现有的列表项与 str1相同，需要将 str1添加到组合框中，否则不需添加。23.关于水平滚动条，如下叙述中错误的是（分数：2.00）A.当滚动框的位置改变时，触发 Change事件B.当拖动滚动条中的滚动框时，触发 Scroll事件C.LargeChange属性是滚动条的最大值 D.Value是滚动条中滚动
40、框的当前值解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。Value 是滚动条中滚动框的当前值，当滚动条的 Value属性值改变时会触发 Change事件。当拖动滚动条中的滚动框时，触发 Scroll事件。LargeChange 属性用于设置或返回单击滚动条中滚动框前面或后面的部位时，Value 属性增加或减小的增量值；Max 属性是滚动条的最大值。24.窗体上有一个名称为 HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是（分数：2.00）A.Private Sub HScr
41、oll1_Change() Print HScroll1.Value End Sub B.Private Sub HScroll1_Change() Print HScroll1.SmallChange End SubC.Private Sub HScroll1_Scroll() Print HScroll1.Value End SubD.Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub解析：解析：本题考查的考点是有关滚动条的属性和事件的。单击滚动条的箭头时将触发 Change事件，而滚动块的位置由 Value属性
42、返回。25.程序运行时，拖动滚动条上的滚动框，则所触发的事件是（分数：2.00）A.MoveB.Scroll C.DragD.DragDrop解析：解析：当滚动条的 Value属性值改变时会触发 Change事件。当拖动滚动条中的滚动框时，触发Scroll事件。26.下列关于滚动条的叙述中，错误的是（分数：2.00）A.在滚动条内单击滚动框前面或后面的部位时，会触发 Scroll事件 B.在滚动条内拖动滚动框时，会触发 Scroll事件C.在滚动条内拖动滚动框后，会触发 Change事件D.单击滚动条两端的箭头时，会触发 Change事件解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用
43、来作为数据输入的工具。Value 是滚动条中滚动框的当前值，当滚动条的 Value属性值改变时会触发 Change事件。当拖动滚动条中的滚动框时，触发 Scroll事件。27.设窗体上有一个标签 Label1和一个计时器 Timer1，Timer1 的 Interval属性被设置为 1000，Enabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是（分数：2.00）A.Private Sub Timer1_Timer() Label1.Caption=True End SubB.Private Sub Timer1_Timer()
44、Label1.Caption=Time$ End Sub C.Private Sub Timer1_Timer() Label1.Interval=1 End SubD.Private Sub Timer1_Timer() For k=1ToTimer1.Interval Label1.Caption=Timer Next k End Sub解析：解析：本题考查的考点是有关计时器的。计时器的 Interval属性决定了每隔多长时间触发一次Timer事件。本题中 Interval设置为 1000，即每 1秒触发一次 Timer事件。在事件中把标签的 Caption属性设置成为当前时间，用 Tim
45、e函数可以得到当前时间。28.下列不属于计时器控件属性的是（分数：2.00）A.EnabledB.IntervalC.IndexD.Visible 解析：解析：计时器具有 Name和 Enabled两个标准属性。另外一个重要属性，Interval 属性用于设置触发计时器事件之间的间隔，以毫秒为单位，取值范围为 064767，当值为 0或为负值时计时器不启用。计时器本身是不能显示出来的，故此没有 Visible属性。29.窗体上有一个名称为 Shape1并显示为圆的形状控件(其 Width和 Height属性值相等)，一个名称为Timer1的计时器，并有下面程序代码：Dim r As Singl
46、e,flag As IntegerPrivate Sub Form_Load()r=Shape1.WidthTimer1.Enabled=TrueTimer1.Interval=500End SubPrivate Sub Timer1_Timer()If flag=0ThenShape1.Width=Shape1.Width-10If Shape1.Width=100Thenflag=1End IfElseShape1.Width=Shape1.Width+10If Shape1.Width=rThenflag=0End IfEnd IfEnd Sub 运行程序后产生的结果是（分数：2.00）
47、A.圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复 B.圆一直在缩小C.圆每隔 0.5秒向右移动一次D.圆每隔 1秒向下移动一次解析：解析：本题在计时器的 Timer事件中，如果 flag为 0，让圆的宽度逐渐减小，一直到 100以下，将 flag置为 1；如果 flag为 1，让圆的宽度逐渐增大，一直到大于原来的宽度 r则将 flag置为 0；则圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复。30.如果在框架中画了 2个复选框，且框架的 Enabled属性被设置为 False，2 个复选框的 Enabled属性被设置为 True，则下面叙述中正确的是（分数：2.00）A.2个复选框可用B
48、.2个复选框不可用 C.2个复选框不显示D.上述都不对解析：解析：框架是一个容器控件，若其 Enabled属性被设置为 False，则无论其内部的控件的 Enabled属性被设置为何值，控件都不可用。31.窗体上有名称为 Command1的命令按钮和名称为 Text1的文本框 Private Sub Command1_Click()Text1.Text=“程序设计“Text1.SetFocusEnd SubPrivate Sub Text1_GotFocus()Text1.Text=“等级考试“End Sub运行以上程序，单击命令按钮后（分数：2.00）A.文本框中显示的是“程序设计”，且焦点在文本框中B.文本框中显示的是“等级考试”，且焦点在文本框中 C.文本框中显示的是“程序设计”，且焦点在命令按钮上D.文本框中显示的是“等级考试”，且焦点在命令按钮上解析：解析：SetFocus 方法用于将焦点移到指定的对象上，而当一个对象获得焦点时将触发其 GotFocus事件过程。32.以下能接收焦点的控件是（分数：2.00）A.图像框B.框架C.命令按钮 D.标签解析：解析：只有能输入的输入型控件才能够接收焦点，本题四个选项中只有命令按钮是输入型控件，可以接收焦点。
