1、国家二级 VB 机试（常用标准控件）模拟试卷 29 及答案解析(总分：70.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.假定一个滚动条的 LargeChange 属性值为 100，则 100 表示（分数：2.00）A.单击滚动条箭头和滚动狂之间某位置时滚动狂位置的变化B.滚动框位置的最大值C.拖动滚动框时滚动框的位置的变化量D.单击滚动条箭头时滚动框位置的变化量2.在窗体上画一个水平滚动条，其属性值 Min 满足（分数：2.00）A.增加一个 SmallChange 量B.减少一个 SmallChange 量C.增加一个 LargeChange 量D.减少一个
2、LargeChange 量3.关于水平滚动条，如下叙述中错误的是（分数：2.00）A.当滚动框的位置改变时，触发 Change 事件B.当拖动滚动条中的滚动框时，触发 Scroll 事件C.LargeChange 属性是滚动条的最大值D.Value 是滚动条中滚动框的当前值4.窗体上有一个名称为 VScrolll 的滚动条，当用鼠标拖动滚动条中的滚动块时，触发的事件是（分数：2.00）A.ClickB.KeyDownC.DragDropD.Scroll5.以下不能触发滚动条 Change 事件的操作是（分数：2.00）A.拖动滚动框B.单击两端的滚动箭头C.单击滚动框D.单击滚动箭头与滚动框之
3、间的滚动条6.窗体上有一个名称为 VScroll1 的垂直滚动条，要求程序运行时，滚动块的初始位置在最下端，应该使VScroll1Value 的值等于（分数：2.00）A.VScroll1LargeChangeB.VScroll1SmallChangeC.VScroll1MaxD.VScroll1Min7.窗体上有一个名称为 HScroll1 的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是（分数：2.00）A.Private Sub HScroll1_Change() Print HScroll1Value End S
4、ubB.Private Sub HScroll1_Change() Print HScroll1SmallChange End SubC.Private Sub HScroll1_Scroil() Print HScroll1Value End SubD.Private Sub HScroll1_Scroll() Print HScroll1SmallChange End Sub8.设窗体上有 1 个水平滚动条，已经通过属性窗口把它的 Max 属性设置为 1，Min 属性设置为 100。下面叙述中正确的是（分数：2.00）A.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就增加B
5、.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就减少C.由于滚动条的 Max 属性值小于 Min 属性值，程序会出错D.由于滚动条的 Max 属性值小于 Min 属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动9.设窗体上有一个水平滚动条 HScroll1 和一个命令按钮 Command1，及下面的事件过程：Private Sub Form_Load() HScroll1Min=0 HScroll1Max=100End SubPrivate Sub Command1Click() HScrolllValue=70End Sub 程序运行时单击命令按钮，则滚动条上滚动块位
6、置的图示是 （分数：2.00）A.B.C.D.10.窗体上有一个名称为 VScroll1 的垂直滚动条，为了设定单击滚动条两端箭头时的 Value 增量值，应设置的属性是（分数：2.00）A.LargeChangeB.SmallChangeC.MaxD.Min11.程序运行时，拖动滚动条上的滚动框，则所触发的事件是（分数：2.00）A.MoveB.Scrol1C.DragD.DragDrop12.设窗体上有一个 Text1 文本框和一个 HScroll1 水平滚动条，并有下面的事件过程： Private Sub HScroll1_Change() Textl=HScroll1 End Sub
7、在程序运行时，当把滚动框移动到最左边时，文本框中显示的是 100；当把滚动框移动到最右边时，文本框中显示的是 1。根据这些信息，下面的判断中错误的是（分数：2.00）A.滚动条的 Max 和 Min 属性的值分别是 1 和 100B.滚动条的 Max 和 Min 属性的值分别是 100 和 1C.文本框中显示的是滚动条 Value 属性的值D.如果把滚动框移动到中间位置，文本框中将显示 5013.设窗体上有 1 个名称为 HScroll1 的水平滚动条，其 Max、Min 属性分别设置为 100、1；有 2 个名称分别为 Option1、Option2 的单选按钮，其标题分别为“30”、“50
8、”；还有下面程序代码：Private Sub Option1_Click() HScroll1=Val(Option1Caption)End SubPrivate Sub Option2_Click() HScroll1=Val(Option2Caption)End Sub 程序运行时，单击 Option2 单选按钮，则滚动条上滚动框的位置是（分数：2.00）A.在最左边B.在最右边C.在中间D.在中间偏左的位置14.下列关于水平滚动条的叙述中，错误的是（分数：2.00）A.Value 属性值表示单击滚动条两端的箭头时，滚动框向左或向右移动的增量B.Scroll 事件在鼠标拖动滚动框时产生C.
9、用鼠标拖动滚动框后，会触发 Change 事件D.单击滚动条两端箭头时，会触发 Change 事件15.下列关于滚动条的叙述中，错误的是（分数：2.00）A.在滚动条内单击滚动框前面或后面的部位时，会触发 Scroll 事件B.在滚动条内拖动滚动框时，会触发 Scroll 事件C.在滚动条内拖动滚动框后，会触发 Change 事件D.单击滚动条两端的箭头时，会触发 Change 事件16.定时器的 Interval 属性的值是一个整数，它表示的是（分数：2.00）A.毫秒数B.秒数C.分钟数D.小时数17.为了使每秒钟发生一次计时器事件，可以将其 Interval 属性设置为（分数：2.00）
10、A.1B.10C.100D.1 00018.窗体上有 1 个名称为 Text1 的文本框，1 个名称为 Timerl 的计时器，且己在属性窗口将 Timer1 的Interval 属性设置为 2000、Enabled 属性设置为 False。以下程序的功能是，单击窗体，则每隔 2 秒钟在Text1 中显示一次当前时间。Private Sub Form_Click() Timer1_End SubPrivate Sub Timer1_Timer() Text1Text=Time()End Sub 为了实现上述功能，应该在横线处填入的内容为（分数：2.00）A.Enabled=TrueB.Enab
11、led=FalseC.Visible=TrueD.Visible=False19.设窗体上有一个标签 Label1 和一个计时器 Timer1，Timer1 的 Interval 属性被设置为 1 000，Enabled 属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是（分数：2.00）A.Private Sub Timer1_Timer() Label1Caption=True End SubB.Private Sub Timer1_Timer() Label1Caption=TimeS End SubC.Private Sub Tim
12、er1_Timer() Label1Interval=1 End SubD.Private Sub Timerl_Timer() For k=1 To Timer1Interval Label1Caption=Timer Next k End Sub20.窗体上有 1 个名称为 Text1 的文本框；1 个名称为 Timer1 的计时器控件，其 Interval 属性值为5000，Enabled 属性值是 True。Timer1 的事件过程如下： Private Sub Timer1_Timer() Static flag As Integer Ifflag=0 Then flag=1：fla
13、g=一 flag End If Ifflag=1 Then Text 1ForeColor=&HFF&HFF&为红色 Else Text 1ForeColor=&HC000&HCOOO&为绿色 End If End Sub 以下叙述中正确的是（分数：2.00）A.每次执行此事件过程时，flag 的初始值均为 0B.flag 的值只可能取 0 或 1C.程序执行后，文本框中的文字每 5 秒改变一次颜色D.程序有逻辑错误，Else 分支总也不能被执行21.设窗体上有一个名称为 Timer1 的计时器控件，其 Interval 属性被设置为 500，Enabled 属性被设置为True；还有一个名称
14、为 Text1 的文本框和下面的事件过程： Private Sub Timer1_Timer() Static x As Long x=x+1：Text1=x End Sub 程序运行一段时间后，文本框中显示的是 100，则表示（分数：2.00）A.程序已经运行了 100 秒B.程序已经运行了 100 毫秒C.程序已经运行了 50 秒D.文本框到窗体左边框的距离是 10022.窗体上有一个名称为 Timer1 的计时器控件，一个名称为 Shapel 的形状控件，其 Shape 属性值为3(Circle)。编写程序如下：Private Sub Form_Load() Shape1Top=0：Ti
15、mer1Interval=1 00End SubPrivate Sub Timer1 Timer() Static x As Integer Shape1Top=Shape1Top+100 x=x+1 If x Mod 10=0 Then Shape1Top=0End If End Sub 以下关于上述程序的叙述中，错误的是（分数：2.00）A.每执行一次 Timer1 Timer 事件过程，X 的值都在原有基础上增加 1B.Shape1 每移动 10 次回到起点，重新开始C.窗体上的 Shape1 由下而上移动D.Shape1 每次移动 10023.窗体上有一个名称为 Label1 的标签；
16、一个名称为 Timer1 的计时器，其 Enabled 和 Interval 属性分别为 True 和 1000。编写如下程序： Dim nAs Integer Private Sub Timer1 Timer() ch：Chr(n+Asc(”A”)：Label1Caption=ch：n=n+1：n=n Mod 4 End Sub 运行程序，将在标签中（分数：2.00）A.不停地依次显示字符“A”、“B”、“C”、“D”，直至窗体被关闭B.依次显示字符“A”、 “B”、 “C”、 “D”各一次C.每隔 1 秒显示字符“A”一次D.每隔 1 秒依次显示 26 个英文字母中的一个24.窗体上有一个
17、名称为 Shape1 并显示为圆的形状控件(其 Width 和 Height 属性值相等)，一个名称为Timer1 的计时器，并有下面程序代码： Dim r As Single，flag As Integer Private Sub Form Load() r=Shape1Width Timer1Enabled=Tme Timer1Interval=500 End SUb Private SUb Timer1_Timer() Ifflag=0 Then Shape1Width=Shape1.Width-10 If Shape1Width=r Then flag=0 End If End If
18、End Sub 运行程序后产生的结果是（分数：2.00）A.圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复B.圆一直在缩小C.圆每隔 05 秒向右移动一次D.圆每隔 1 秒向下移动一次25.下列针对框架控件的叙述中，错误的是（分数：2.00）A.框架是一个容器控件B.框架也有 Click 和 DblClick 事件C.框架也可以接受用户的输入D.使用框架的主要目的是对控件进行分组26.要使两个单选按钮属于同一个框架，下面三种操作方法中正确的是先画一个框架，再在框架中画两个单选按钮先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中先画两个单选按钮，再画框架将单选按钮框起来（分数：
19、2.00）A.B.C.D.和27.下面哪个属性肯定不是框架控件的属性（分数：2.00）A.TextB.CaptionC.LeftD.Enabled28.如果在框架中画了 2 个复选框，且框架的 Enabled 属性被设置为 False，2 个复选框的 Enabled 属性被设置为 True，则下面叙述中正确的是（分数：2.00）A.2 个复选框可用B.2 个复选框不可用C.2 个复选框不显示D.上述都不对29.如果要在窗体上使用 2 组单选按钮，每组都可以有一个被选中，则应该做的是（分数：2.00）A.把 1 组单选按钮匦在窗体的左边，另 1 组画在右边B.先画 2 组单选按钮，再画 2 个框
20、架控件把 2 组单选按钮分别框起来C.先画 2 个框架控件，再把 2 组单选按钮分别画在不同的框架中D.因为 1 个窗体中只有 1 个单选按钮可以被选中，所以需要使用 2 个窗体30.以下关于框架的叙述中，错误的是（分数：2.00）A.框架能够响应 Click 事件B.框架是一个容器C.框架的 Enabled 属性为 False 时，框架内的控件均被屏蔽D.框架可以获得焦点31.以下可以作为“容器”的控件是（分数：2.00）A.框架B.图像框C.标签D.命令按钮32.窗体上有名称为 Command1 的命令按钮和名称为 Text1 的文本框 Private Sub Commandl_Click
21、() Text1Text=“程序设计” Text1SerFocus End Sub Private Sub Text1_GotFocus() Text1Text=”等级考试” End Sub 运行以上程序，单击命令按钮后（分数：2.00）A.文本框中显示的是“程序设计”，且焦点在文本框中B.文本框中显示的是“等级考试”，且焦点在文本框中C.文本框中显示的是“程序设计”，且焦点在命令按钮上D.文本框中显示的是“等级考试”，且焦点在命令按钮上33.以下能够设置控件焦点的方法是（分数：2.00）A.SetFocusB.GotFocusC.LostFocusD.TabStop34.设窗体中有一个文本框
22、 Text1，若在程序中执行了 Text1SetFocus，则触发（分数：2.00）A.Text1 的 SetFocus 事件B.Text1 的 GotFocus 事件C.Text1 的 LostFocus 事件D.窗体的 GotFocus 事件35.对于能够获得焦点的控件，若要使其不能接收焦点，应该（分数：2.00）A.将 TabStop 属性值设为 TrueB.将 TabStop 属性值设为 FalseC.将 Tablndex 属性值设为 0D.将 Enabled 属性值设为 False国家二级 VB 机试（常用标准控件）模拟试卷 29 答案解析(总分：70.00，做题时间：90 分钟)一
23、、选择题(总题数：35，分数：70.00)1.假定一个滚动条的 LargeChange 属性值为 100，则 100 表示（分数：2.00）A.单击滚动条箭头和滚动狂之间某位置时滚动狂位置的变化 B.滚动框位置的最大值C.拖动滚动框时滚动框的位置的变化量D.单击滚动条箭头时滚动框位置的变化量解析：解析：本题考查滚动条的基本知识。滚动条的 SmalIChange 决定在滚动条两端的箭头钮上单击时改变的值，LargeChange 决定在滑块上方或下方区域单击时改变的值。2.在窗体上画一个水平滚动条，其属性值 Min 满足（分数：2.00）A.增加一个 SmallChange 量 B.减少一个 Sm
24、allChange 量C.增加一个 LargeChange 量D.减少一个 LargeChange 量解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。其 Max 属性用于设置或返回滚动条所能表示的最大值，Min 属性用于设置或返回滚动条所能表示的最小值。LargeChange属性用于设置或返回单击滚动条中滚动框前面或后面的部位时，Value 属性增加或减小的增量值；SmaIlChange 属性用于设置或返回单击滚动条两端的箭头时，Value 属性增加或减小的增量值。3.关于水平滚动条，如下叙述中错误的是（分数：2.00）A.当滚动框的位置改变时，触发 Change
25、 事件B.当拖动滚动条中的滚动框时，触发 Scroll 事件C.LargeChange 属性是滚动条的最大值 D.Value 是滚动条中滚动框的当前值解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。Value 是滚动条中滚动框的当前值，当滚动条的 Value 属性值改变时会触发 Change 事件。当拖动滚动条中的滚动框时，触发 Scroll 事件。LargeChange 属性用于设置或返回单击滚动条中滚动框前面或后面的部位时，Value 属性增加或减小的增量值；Max 属性是滚动条的最大值。4.窗体上有一个名称为 VScrolll 的滚动条，当用鼠标拖动滚动条中
26、的滚动块时，触发的事件是（分数：2.00）A.ClickB.KeyDownC.DragDropD.Scroll 解析：解析：当滚动条的 Value 属性值改变时会触发 Change 事件。当拖动滚动条中的滚动框时，触发Scroll 事件。5.以下不能触发滚动条 Change 事件的操作是（分数：2.00）A.拖动滚动框B.单击两端的滚动箭头C.单击滚动框 D.单击滚动箭头与滚动框之间的滚动条解析：解析：滚动条的 Change 事件发生在通过以下方式使滚动条上滚动框的位置改变时。这些方式包括：单击滚动条两端的箭头、单击滚动条中滚动框前面或后面的部位、拖动滚动框后释放时以及通过代码改变滚动条的 V
27、alue 属性值6.窗体上有一个名称为 VScroll1 的垂直滚动条，要求程序运行时，滚动块的初始位置在最下端，应该使VScroll1Value 的值等于（分数：2.00）A.VScroll1LargeChangeB.VScroll1SmallChangeC.VScroll1Max D.VScroll1Min解析：解析：滚动条的 Max 属性可返回或设置当滚动框处于垂直滚动条底部或水平滚动条最右位置时Value 属性值；Min 属性可返回或设置当滚动框处于垂直滚动条顶部或水平滚动条最左位置时 Value 属性值。7.窗体上有一个名称为 HScroll1 的滚动条，程序运行后，当单击滚动条两端
28、的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是（分数：2.00）A.Private Sub HScroll1_Change() Print HScroll1Value End Sub B.Private Sub HScroll1_Change() Print HScroll1SmallChange End SubC.Private Sub HScroll1_Scroil() Print HScroll1Value End SubD.Private Sub HScroll1_Scroll() Print HScroll1SmallChange End Sub
29、解析：解析：本题考查的考点是有关滚动条的属性和事件的。单击滚动条的箭头时将触发 Change 事件，而滚动块的位置由 Value 属性返回。8.设窗体上有 1 个水平滚动条，已经通过属性窗口把它的 Max 属性设置为 1，Min 属性设置为 100。下面叙述中正确的是（分数：2.00）A.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就增加 B.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就减少C.由于滚动条的 Max 属性值小于 Min 属性值，程序会出错D.由于滚动条的 Max 属性值小于 Min 属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动解析：
30、解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。其 Max 属性用于设置或返回滚动条所能表示的最大值，Min 属性用于设置或返回滚动条所能表示的最小值。默认情况下，Max 的值大于 Min 的值，即当滚动块向右移动时，其 Value 属性值增加。如果希望滚动条显示的信息从较大数值向较小数值变化，可将 Min 设置成大于 Max 的值，此时当滚动块向左移动时，其 Value 属性值增加。9.设窗体上有一个水平滚动条 HScroll1 和一个命令按钮 Command1，及下面的事件过程：Private Sub Form_Load() HScroll1Min=0 HScrol
31、l1Max=100End SubPrivate Sub Command1Click() HScrolllValue=70End Sub 程序运行时单击命令按钮，则滚动条上滚动块位置的图示是 （分数：2.00）A.B.C. D.解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。其 Max 属性用于设置或返回滚动条所能表示的最大值，Min 属性用于设置或返回滚动条所能表示的最小值。默认情况下，Max 的值大于 Min 的值，即当滚动块向右移动时，其 Value 属性值增加。本题中 Max-Min=100，则 Value值为 70 的话，滚动块应该位于右侧三分之一处。10
32、.窗体上有一个名称为 VScroll1 的垂直滚动条，为了设定单击滚动条两端箭头时的 Value 增量值，应设置的属性是（分数：2.00）A.LargeChangeB.SmallChange C.MaxD.Min解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。其 Max 属性用于设置或返回滚动条所能表示的最大值，Min 属性用于设置或返回滚动条所能表示的最小值。LargeChange属性用于设置或返回单击滚动条中滚动框前面或后面的部位时，Value 属性增加或减小的增量值；SmallChange 属性用于设置或返回单击滚动条两端的箭头时，Value 属性增加或减小
33、的增量值。11.程序运行时，拖动滚动条上的滚动框，则所触发的事件是（分数：2.00）A.MoveB.Scrol1 C.DragD.DragDrop解析：解析：当滚动条的 Value 属性值改变时会触发 Change 事件。当拖动滚动条中的滚动框时，触发Scroll 事件。12.设窗体上有一个 Text1 文本框和一个 HScroll1 水平滚动条，并有下面的事件过程： Private Sub HScroll1_Change() Textl=HScroll1 End Sub 在程序运行时，当把滚动框移动到最左边时，文本框中显示的是 100；当把滚动框移动到最右边时，文本框中显示的是 1。根据这些
34、信息，下面的判断中错误的是（分数：2.00）A.滚动条的 Max 和 Min 属性的值分别是 1 和 100B.滚动条的 Max 和 Min 属性的值分别是 100 和 1 C.文本框中显示的是滚动条 Value 属性的值D.如果把滚动框移动到中间位置，文本框中将显示 50解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。其 Max 属性用于设置或返回滚动条所能表示的最大值，Min 属性用于设置或返回滚动条所能表示的最小值。默认情况下，Max 的值大于 Min 的值，即当滚动块向右移动时，其 Value 属性值增加。滚动条的默认属性是 Value 属性。13.设窗体
35、上有 1 个名称为 HScroll1 的水平滚动条，其 Max、Min 属性分别设置为 100、1；有 2 个名称分别为 Option1、Option2 的单选按钮，其标题分别为“30”、“50”；还有下面程序代码：Private Sub Option1_Click() HScroll1=Val(Option1Caption)End SubPrivate Sub Option2_Click() HScroll1=Val(Option2Caption)End Sub 程序运行时，单击 Option2 单选按钮，则滚动条上滚动框的位置是（分数：2.00）A.在最左边B.在最右边C.在中间 D.在中
36、间偏左的位置解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。其 Max 属性用于设置或返回滚动条所能表示的最大值，Min 属性用于设置或返回滚动条所能表示的最小值。滚动块向右移动时，其 Value 属性值增加。Option2 单选按钮的单击事件中，将把 Option2 的标题即 50 赋值给滚动条的 Value 属性，使滚动框位于正中间。14.下列关于水平滚动条的叙述中，错误的是（分数：2.00）A.Value 属性值表示单击滚动条两端的箭头时，滚动框向左或向右移动的增量 B.Scroll 事件在鼠标拖动滚动框时产生C.用鼠标拖动滚动框后，会触发 Change 事
37、件D.单击滚动条两端箭头时，会触发 Change 事件解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。Value 是滚动条中滚动框的当前值，当滚动条的 Value 属性值改变时会触发 Change 事件。当拖动滚动条中的滚动框时，触发 Scroll 事件。15.下列关于滚动条的叙述中，错误的是（分数：2.00）A.在滚动条内单击滚动框前面或后面的部位时，会触发 Scroll 事件 B.在滚动条内拖动滚动框时，会触发 Scroll 事件C.在滚动条内拖动滚动框后，会触发 Change 事件D.单击滚动条两端的箭头时，会触发 Change 事件解析：解析：滚动条通常用
38、来帮助观察数据或确定位置，也可用来作为数据输入的工具。Value 是滚动条中滚动框的当前值，当滚动条的 Value 属性值改变时会触发 Change 事件。当拖动滚动条中的滚动框时，触发 Scroll 事件。16.定时器的 Interval 属性的值是一个整数，它表示的是（分数：2.00）A.毫秒数 B.秒数C.分钟数D.小时数解析：解析：计时器控件用以实现在规则的时间间隔触发其 Timer 事件，执行有关事件过程代码，来完成对应功能。Interval 属性用于设置触发计时器的 Timer 事件的时间间隔，单位为 ms，值为 0 时计时器不启用。17.为了使每秒钟发生一次计时器事件，可以将其
39、Interval 属性设置为（分数：2.00）A.1B.10C.100D.1 000 解析：解析：计时器控件(Timer)用来完成有规律性时间间隔执行的任务，Interval 属性用于设置计时器事件之间的间隔，以毫秒为单位。18.窗体上有 1 个名称为 Text1 的文本框，1 个名称为 Timerl 的计时器，且己在属性窗口将 Timer1 的Interval 属性设置为 2000、Enabled 属性设置为 False。以下程序的功能是，单击窗体，则每隔 2 秒钟在Text1 中显示一次当前时间。Private Sub Form_Click() Timer1_End SubPrivate
40、Sub Timer1_Timer() Text1Text=Time()End Sub 为了实现上述功能，应该在横线处填入的内容为（分数：2.00）A.Enabled=True B.Enabled=FalseC.Visible=TrueD.Visible=False解析：解析：常借助计时器来完成有规律性时间间隔执行的任务，Enabled 属性用于控制计时器是否开始启用，True 为启用，False 为停止。19.设窗体上有一个标签 Label1 和一个计时器 Timer1，Timer1 的 Interval 属性被设置为 1 000，Enabled 属性被设置为 True。要求程序运行时每秒在标
41、签中显示一次系统当前时间。以下可以实现上述要求的事件过程是（分数：2.00）A.Private Sub Timer1_Timer() Label1Caption=True End SubB.Private Sub Timer1_Timer() Label1Caption=TimeS End Sub C.Private Sub Timer1_Timer() Label1Interval=1 End SubD.Private Sub Timerl_Timer() For k=1 To Timer1Interval Label1Caption=Timer Next k End Sub解析：解析：本题
42、考查的考点是有关计时器的。计时器的 Interval 属性决定了每隔多长时间触发一次Timer 事件。本题中 Interval 设置为 1000，即每 1 秒触发一次 Timer 事件。在事件中把标签的 Caption属性设置成为当前时间，用 Time 函数可以得到当前时间。20.窗体上有 1 个名称为 Text1 的文本框；1 个名称为 Timer1 的计时器控件，其 Interval 属性值为5000，Enabled 属性值是 True。Timer1 的事件过程如下： Private Sub Timer1_Timer() Static flag As Integer Ifflag=0 Th
43、en flag=1：flag=一 flag End If Ifflag=1 Then Text 1ForeColor=&HFF&HFF&为红色 Else Text 1ForeColor=&HC000&HCOOO&为绿色 End If End Sub 以下叙述中正确的是（分数：2.00）A.每次执行此事件过程时，flag 的初始值均为 0B.flag 的值只可能取 0 或 1C.程序执行后，文本框中的文字每 5 秒改变一次颜色 D.程序有逻辑错误，Else 分支总也不能被执行解析：解析：计时器控件(Timer)用来完成有规律性时间间隔执行的任务，Interval 属性用于设置计时器事件之间的间隔
44、，以毫秒为单位。本题在每 5 秒执行一次的 Timer 事件过程中，通过静态变量 flag 值的交替变换(即一 1 和 1 之间)来控制文本框中文字的颜色，值为-1 时为绿色，值为 1 时为红色。除程序刚启动第一次执行 Timer 事件过程时，静态变量 flag 的初始值为 0 外，其余各次均为-1 或 1。21.设窗体上有一个名称为 Timer1 的计时器控件，其 Interval 属性被设置为 500，Enabled 属性被设置为True；还有一个名称为 Text1 的文本框和下面的事件过程： Private Sub Timer1_Timer() Static x As Long x=x+
45、1：Text1=x End Sub 程序运行一段时间后，文本框中显示的是 100，则表示（分数：2.00）A.程序已经运行了 100 秒B.程序已经运行了 100 毫秒C.程序已经运行了 50 秒 D.文本框到窗体左边框的距离是 100解析：解析：计时器控件用以实现在规则的时间间隔触发其 Timer 事件，执行有关事件过程代码，来完成对应功能。Interval 属性用于设置触发计时器的 Timer 事件的时间间隔，单位为 ms，值为 0 时计时器不启用。使用 Static 关键字定义的是静态局部变量，过程执行结束后仍然保留。所以文本框中显示 100 代表计时器事件已经执行了 100 次，也就是
46、运行了 50 秒。22.窗体上有一个名称为 Timer1 的计时器控件，一个名称为 Shapel 的形状控件，其 Shape 属性值为3(Circle)。编写程序如下：Private Sub Form_Load() Shape1Top=0：Timer1Interval=1 00End SubPrivate Sub Timer1 Timer() Static x As Integer Shape1Top=Shape1Top+100 x=x+1 If x Mod 10=0 Then Shape1Top=0End If End Sub 以下关于上述程序的叙述中，错误的是（分数：2.00）A.每执行一
47、次 Timer1 Timer 事件过程，X 的值都在原有基础上增加 1B.Shape1 每移动 10 次回到起点，重新开始C.窗体上的 Shape1 由下而上移动 D.Shape1 每次移动 100解析：解析：在计时器事件中的变量 x 是一个静态变量，事件结束后其值仍然会保留，所以每执行一次Timer1_Timer 事件过程，x 的值都在原有基础上增加 1；每次 x 能被 10 整除均令形状的。Top 属性为 0，即回到起点；形状控件在计时器事件中每次 Top 值均增加 100，即自上而下进行移动，每次 100。23.窗体上有一个名称为 Label1 的标签；一个名称为 Timer1 的计时器
48、，其 Enabled 和 Interval 属性分别为 True 和 1000。编写如下程序： Dim nAs Integer Private Sub Timer1 Timer() ch：Chr(n+Asc(”A”)：Label1Caption=ch：n=n+1：n=n Mod 4 End Sub 运行程序，将在标签中（分数：2.00）A.不停地依次显示字符“A”、“B”、“C”、“D”，直至窗体被关闭 B.依次显示字符“A”、 “B”、 “C”、 “D”各一次C.每隔 1 秒显示字符“A”一次D.每隔 1 秒依次显示 26 个英文字母中的一个解析：解析：本题中的变量 n 在窗体的声明段使用
49、Dim 声明，是一个窗体级变量；在计时器的 Timer 事件中每次令 n 加 1，如果超过了 4 则将其除 4 取余；即最后循环显示字符“A”、“B”、“C”、“D”。24.窗体上有一个名称为 Shape1 并显示为圆的形状控件(其 Width 和 Height 属性值相等)，一个名称为Timer1 的计时器，并有下面程序代码： Dim r As Single，flag As Integer Private Sub Form Load() r=Shape1Width Timer1Enabled=Tme Timer1Interval=500 End SUb Private SUb Timer1_Timer() Ifflag=0 Then Shape1Width=Shape1.Width-10 If Shape1Width=r Then flag=0 End If End If End Sub 运行程序后产生的结果是（分数：2.00）A.圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复 B.圆一直在缩小C.圆每隔 05 秒向右
