1、国家二级 VB 机试（常用标准控件）模拟试卷 21 及答案解析(总分：58.00，做题时间：90 分钟)一、选择题(总题数：29，分数：58.00)1.窗体上有一个名称为 HScroll1 的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是（分数：2.00）A.Private Sub HScroll1_Change() Print HScroll1Vahe End SubB.Private Sub HScroll1_Change() Print HScroll1SmallChange End SubC.Private Su
2、b HScroll1_Scroll() Print HScroll1Value End SubD.Private Sub HScroll1_Scroll() Print HScroll1SmallChange End Sub2.设窗体上有 1 个水平滚动条，己经通过属性窗口把它的 Max 属性设置为 1，Min 属性设置为 100。下面叙述中正确的是（分数：2.00）A.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就增加B.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就减少C.由于滚动条的 Max 属性值小于 Min 属性值，程序会出错D.由于滚动条的 Max
3、属性值小于 Min 属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动3.设窗体上有一个水平滚动条 HScroll1 和一个命令按钮 Command1，及下面的事件过程： Private Sub Form_Load() Private Sub Command1_Click() HScroll1Min=0 HScroll1Value=70 HScroll1Max=100 End Sub End Sub 程序运行时单击命令按钮，则滚动条上滚动块位置的图示是（分数：2.00）A.B.C.D.4.窗体上有一个名称为 VScroll1 的垂直滚动条，为了设定单击滚动条两端箭头时的 Value 增量
4、值，应设置的属性是（分数：2.00）A.LargeChangeB.SmallChangeC.MaxD.Min5.程序运行时，拖动滚动条上的滚动框，则所触发的事件是（分数：2.00）A.MoveB.ScrollC.DragD.DragDrop6.设窗体上有一个 Text1 文本框和一个 HScroll1 水平滚动条，并有下面的事件过程： Private Sub HScroll1_Change() Text1=HScroll1 End Sub 在程序运行时，当把滚动框移动到最左边时，文本框中显示的是 100；当把滚动框移动到最右边时，文本框中显示的是 1。根据这些信息，下面的判断中错误的是（分数：
5、2.00）A.滚动条的 Max 和 Min 属性的值分别是 1 和 100B.滚动条的 Max 和 Min 属性的值分别是 100 和 1C.文本框中显示的是滚动条 Value 属性的值D.如果把滚动框移动到中间位置，文本框中将显示 507.设窗体上有 1 个名称为 HScroll1 的水平滚动条，其 Max、Min 属性分别设置为 100、1：有 2 个名称分别为 Option1、Option2 的单选按钮，其标题分别为“30”、“50”；还有下面程序代码： Private Sub Optionl_Click() Private Sub Option2_Click() HScroll1=Va
6、l(OptionlCaption) HScroll1=Val(Option2Caption) End Sub End Sub 程序运行时，单击 Option2 单选按钮，则滚动条上滚动框的位置是（分数：2.00）A.在最左边B.在最右边C.在中间D.在中间偏左的位置8.下列关于水平滚动条的叙述中，错误的是（分数：2.00）A.Value 属性值表示单击滚动条两端的箭头时，滚动框向左或向右移动的增量B.Scroll 事件在鼠标拖动滚动框时产生C.用鼠标拖动滚动框后，会触发 Change 事件D.单击滚动条两端箭头时，会触发 Change 事件9.下列关于滚动条的叙述中，错误的是（分数：2.00）
7、A.在滚动条内单击滚动框前面或后面的部位时，会触发 Scroll 事件B.在滚动条内拖动滚动框时，会触发 Scroll 事件C.在滚动条内拖动滚动框后，会触发 Change 事件D.单击滚动条两端的箭头时，会触发 Change 事件10.定时器的 Interval 属性的值是一个整数，它表示的是（分数：2.00）A.毫秒数B.秒数C.分钟数D.小时数11.为了使每秒钟发生一次计时器事件，可以将其 Interval 属性设置为（分数：2.00）A.lB.10C.100D.100012.窗体上有 1 个名称为 Text1 的文本框，1 个名称为 Timer1 的计时器，且已在属性窗口将 Timer
8、1 的Interval 属性设置为 2000、Enabled 属性设置为 False。以下程序的功能是，单击窗体，则每隔 2 秒钟在Text1 中显示一次当前时间。 Private Sub Form_Click() Private Sub Timer1_Timer() Timer1_ Text1Text=Time() End Sub End Sub 为了实现上述功能，应该在横线处填入的内容为（分数：2.00）A.Enabled=TrueB.Enabled=FalseC.Visible=TrueD.Visible=False13.设窗体上有一个标签 Label1 和一个计时器 Timer1，Ti
9、mer1 的 Interval 属性被设置为 1000，Enabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是（分数：2.00）A.Private Sub Timer1_Timer() Label1Caption=True End SubB.Private Sub Timer1_Timer() Label1Caption=TimeS End SubC.Private Sub Timer1_Timer() Label1Interval=1 End SubD.Private Sub Timer1_Timer() For k=1 To
10、Timer1Interval Label 1Caption=Timer Next k End Sub14.窗体上有 1 个名称为 Text1 的文本框；1 个名称为 Timer1 的计时器控件，其 Interval 属性值为5000，Enabled 属性值是 True。Timer1 的事件过程如下： Private Sub Timer1_Timer() Static flag As Integer Ifflag=0 Then flag=l：flag=-flag End If If flag=l Then Text1ForeColor=HFFHFF为红色 Else Text1ForeColor=
11、HC000HC000为绿色 End If End Sub 以下叙述中正确的是（分数：2.00）A.每次执行此事件过程时，flag 的初始值均为 0B.flag 的值只可能取 0 或 1C.程序执行后，文本框中的文字每 5 秒改变一次颜色D.程序有逻辑错误，Else 分支总也不能被执行15.设窗体上有一个名称为 Timer1 的计时器控件，其 Interval 属性被设置为 500，Enabled 属性被设置为True；还有一个名称为 Text1 的文本框和下面的事件过程： Private Sub Timer1_Timer() Static x As Long x=x+1：Text1=x End
12、 Sub 程序运行一段时间后，文本框中显示的是 100，则表示（分数：2.00）A.程序已经运行了 100 秒B.程序已经运行了 100 毫秒C.程序已经运行了 50 秒D.文本框到窗体左边框的距离是 10016.窗体上有一个名称为 Timer1 的计时器控件，一个名称为 Shapel 的形状控件，其 Shape 属性值为3(Circle)。编写程序如下： Private Sub Form Load() Private Sub Timer1 Timer() ShapelTop=0：Timer1Interval=100 Static X As Integer End Sub Shape1Top=
13、Shape1Top+100 x=x+1 If x Mod 10=0 Then ShapelTop=0 End If End Sub 以下关于上述程序的叙述中，错误的是（分数：2.00）A.每执行一次 Timer1 Timer 事件过程，x 的值都在原有基础上增加 1B.Shapel 每移动 10 次回到起点，重新开始C.窗体上的 Shapel 由下而上移动D.Shapel 每次移动 10017.窗体上有一个名称为 Label1 的标签；一个名称为 Timer1 的计时器，其 Enabled 和 Interval 属性分别为 True 和 1000。编写如下程序： Dim n As Intege
14、r 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 个英文字母中的一个18.窗体上有一个名称为 Shapel 并显示为圆的形状控件(其 width 和 Height 属性值相等)，一个名称为Timer1 的计时器，并有下面程序代码： Dim r
15、As Single，flag As Integer Private Sub Form Load() r=ShapelWidth Timer1Enabled=True Timer1Interval=500 End Sub Private Sub Timer1_Timer() Ifflag=0 Then ShapelWidth=ShapelWidth-10 IfShapelWidth=r Then flag=0 End If End If End Sub 运行程序后产生的结果是（分数：2.00）A.圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复B.圆一直在缩小C.圆每隔 05 秒向右移动一次D.
16、圆每隔 1 秒向下移动一次19.下列针对框架控件的叙述中，错误的是（分数：2.00）A.框架是一个容器控件B.框架也有 Click 和 DblClick 事件C.框架也可以接受用户的输入D.使用框架的主要目的是对控件进行分组20.要使两个单选按钮属于同一个框架，下面三种操作方法中正确的是先画一个框架，再在框架中画两个单选按钮先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中先画两个单选按钮，再画框架将单选按钮框起来（分数：2.00）A.B.C.D.和21.下面哪个属性肯定不是框架控件的属性（分数：2.00）A.TextB.CaptionC.LeftD.Enabled22.如果在框
17、架中画了 2 个复选框，且框架的 Enabled 属性被设置为 False，2 个复选框的 Enabled 属性被设置为 True，则下面叙述中正确的是（分数：2.00）A.2 个复选框可用B.2 个复选框不可用C.2 个复选框不显示D.上述都不对23.如果要在窗体上使用 2 组单选按钮，每组都可以有一个被选中，则应该做的是（分数：2.00）A.把 1 组单选按钮画在窗体的左边，另 l 组画在右边B.先画 2 组单选按钮，再画 2 个框架控件把 2 组单选按钮分别框起来C.先画 2 个框架控件，再把 2 组单选按钮分别画在不同的框架中D.因为 1 个窗体中只有 1 个单选按钮可以被选中，所以需
18、要使用 2 个窗体24.以下关于框架的叙述中，错误的是（分数：2.00）A.框架能够响应 Click 事件B.框架是一个容器C.框架的 Enabled 属性为 False 时，框架内的控件均被屏蔽D.框架可以获得焦点25.以下可以作为“容器”的控件是（分数：2.00）A.框架B.图像框C.标签D.命令按钮26.窗体上有名称为 Command1 的命令按钮和名称为 Text1 的文本框 Private Sub Command1_Click() Text1Text=“程序设计“ Text1SetFocus End Sub Private Sub Text1_GotFocus() Text1Text
19、=“等级考试“ End Sub 运行以上程序，单击命令按钮后（分数：2.00）A.文本框中显示的是“程序设计”，且焦点在文本框中B.文本框中显示的是“等级考试”，且焦点在文本框中C.文本框中显示的是“程序设计”，且焦点在命令按钮上D.文本框中显示的是“等级考试”，且焦点在命令按钮上27.以下能够设置控件焦点的方法是（分数：2.00）A.SetFocusB.GotFocusC.LostFocusD.TabStop28.设窗体中有一个文本框 Text1，若在程序中执行了 Text1SetFocus，则触发（分数：2.00）A.Text1 的 SetFocus 事件B.Text1 的 GotFOCU
20、S 事件C.Text1 的 LostFOCUS 事件D.窗体的 GotFOCUS 事件29.对于能够获得焦点的控件，若要使其不能接收焦点，应该（分数：2.00）A.将 TabStop 属性值设为 TrueB.将 TabStop 属性值设为 FalseC.将 TabIndex 属性值设为 0D.将 Enabled 属性值设为 False国家二级 VB 机试（常用标准控件）模拟试卷 21 答案解析(总分：58.00，做题时间：90 分钟)一、选择题(总题数：29，分数：58.00)1.窗体上有一个名称为 HScroll1 的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置
21、(即刻度值)。下面能够实现上述操作的事件过程是（分数：2.00）A.Private Sub HScroll1_Change() Print HScroll1Vahe End Sub B.Private Sub HScroll1_Change() Print HScroll1SmallChange End SubC.Private Sub HScroll1_Scroll() Print HScroll1Value End SubD.Private Sub HScroll1_Scroll() Print HScroll1SmallChange End Sub解析：解析：本题考查的考点是有关滚动条的
22、属性和事件的。单击滚动条的箭头时将触发 Change 事件，而滚动块的位置由 Value 属性返回。2.设窗体上有 1 个水平滚动条，己经通过属性窗口把它的 Max 属性设置为 1，Min 属性设置为 100。下面叙述中正确的是（分数：2.00）A.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就增加 B.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就减少C.由于滚动条的 Max 属性值小于 Min 属性值，程序会出错D.由于滚动条的 Max 属性值小于 Min 属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动解析：解析：滚动条通常用来帮助观察数据或确定位
23、置，也可用来作为数据输入的工具。其 Max 属性用于设置或返回滚动条所能表示的最大值，Min 属性用于设置或返回滚动条所能表示的最小值。默认情况下，Max 的值大于 Min 的值，即当滚动块向右移动时，其 Value 属性值增加。如果希望滚动条显示的信息从较大数值向较小数值变化，可将 Min 设置成大于 Max 的值，此时当滚动块向左移动时，其 Value 属性值增加。3.设窗体上有一个水平滚动条 HScroll1 和一个命令按钮 Command1，及下面的事件过程： Private Sub Form_Load() Private Sub Command1_Click() HScroll1Mi
24、n=0 HScroll1Value=70 HScroll1Max=100 End Sub End Sub 程序运行时单击命令按钮，则滚动条上滚动块位置的图示是（分数：2.00）A.B.C. D.解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。其 Max 属性用于设置或返回滚动条所能表示的最大值，Min 属性用于设置或返回滚动条所能表示的最小值。默认情况下，Max 的值大于 Min 的值，即当滚动块向右移动时，其 Value 属性值增加。本题中 Max-Min=100，则 Value值为 70 的话，滚动块应该位于右侧三分之一处。4.窗体上有一个名称为 VScrol
25、l1 的垂直滚动条，为了设定单击滚动条两端箭头时的 Value 增量值，应设置的属性是（分数：2.00）A.LargeChangeB.SmallChange C.MaxD.Min解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。其 Max 属性用于设置或返回滚动条所能表示的最大值，Min 属性用于设置或返回滚动条所能表示的最小值。LargeChange属性用于设置或返回单击滚动条中滚动框前面或后面的部位时，Value 属性增加或减小的增量值；SmallChange 属性用于设置或返回单击滚动条两端的箭头时，Value 属性增加或减小的增量值。5.程序运行时，拖动滚动
26、条上的滚动框，则所触发的事件是（分数：2.00）A.MoveB.Scroll C.DragD.DragDrop解析：解析：当滚动条的 Value 属性值改变时会触发 Change 事件。当拖动滚动条中的滚动框时，触发Scroll 事件。6.设窗体上有一个 Text1 文本框和一个 HScroll1 水平滚动条，并有下面的事件过程： Private Sub HScroll1_Change() Text1=HScroll1 End Sub 在程序运行时，当把滚动框移动到最左边时，文本框中显示的是 100；当把滚动框移动到最右边时，文本框中显示的是 1。根据这些信息，下面的判断中错误的是（分数：2.
27、00）A.滚动条的 Max 和 Min 属性的值分别是 1 和 100B.滚动条的 Max 和 Min 属性的值分别是 100 和 1 C.文本框中显示的是滚动条 Value 属性的值D.如果把滚动框移动到中间位置，文本框中将显示 50解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。其 Max 属性用于设置或返回滚动条所能表示的最大值，Min 属性用于设置或返回滚动条所能表示的最小值。默认情况下，Max 的值大于 Min 的值，即当滚动块向右移动时，其 Value 属性值增加。滚动条的默认属性是 Value 属性。7.设窗体上有 1 个名称为 HScroll1 的
28、水平滚动条，其 Max、Min 属性分别设置为 100、1：有 2 个名称分别为 Option1、Option2 的单选按钮，其标题分别为“30”、“50”；还有下面程序代码： Private Sub Optionl_Click() Private Sub Option2_Click() HScroll1=Val(OptionlCaption) HScroll1=Val(Option2Caption) End Sub End Sub 程序运行时，单击 Option2 单选按钮，则滚动条上滚动框的位置是（分数：2.00）A.在最左边B.在最右边C.在中间 D.在中间偏左的位置解析：解析：滚动条通
29、常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。其 Max 属性用于设置或返回滚动条所能表示的最大值，Min 属性用于设置或返回滚动条所能表示的最小值。滚动块向右移动时，其 Value 属性值增加。Optiort2 单选按钮的单击事件中，将把 Option2 的标题即 50 赋值给滚动条的 Value 属性，使滚动框位于正中间。8.下列关于水平滚动条的叙述中，错误的是（分数：2.00）A.Value 属性值表示单击滚动条两端的箭头时，滚动框向左或向右移动的增量 B.Scroll 事件在鼠标拖动滚动框时产生C.用鼠标拖动滚动框后，会触发 Change 事件D.单击滚动条两端箭头时，会触
30、发 Change 事件解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。Value 是滚动条中滚动框的当前值，当滚动条的 Value 属性值改变时会触发 Change 事件。当拖动滚动条中的滚动框时，触发 Scroll 事件。9.下列关于滚动条的叙述中，错误的是（分数：2.00）A.在滚动条内单击滚动框前面或后面的部位时，会触发 Scroll 事件 B.在滚动条内拖动滚动框时，会触发 Scroll 事件C.在滚动条内拖动滚动框后，会触发 Change 事件D.单击滚动条两端的箭头时，会触发 Change 事件解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来
31、作为数据输入的工具。Value 是滚动条中滚动框的当前值，当滚动条的 Value 属性值改变时会触发 Change 事件。当拖动滚动条中的滚动框时，触发 Scroll 事件。10.定时器的 Interval 属性的值是一个整数，它表示的是（分数：2.00）A.毫秒数 B.秒数C.分钟数D.小时数解析：解析：计时器控件用以实现在规则的时间间隔触发其 Timer 事件，执行有关事件过程代码，来完成对应功能。Interval 属性用于设置触发计时器的 Timer 事件的时间间隔，单位为 ms，值为 O 时计时器不启用。11.为了使每秒钟发生一次计时器事件，可以将其 Interval 属性设置为（分数
32、：2.00）A.lB.10C.100D.1000 解析：解析：计时器控件(Timer)用来完成有规律性时间间隔执行的任务，Interval 属性用于设置计时器事件之间的间隔，以毫秒为单位。12.窗体上有 1 个名称为 Text1 的文本框，1 个名称为 Timer1 的计时器，且已在属性窗口将 Timer1 的Interval 属性设置为 2000、Enabled 属性设置为 False。以下程序的功能是，单击窗体，则每隔 2 秒钟在Text1 中显示一次当前时间。 Private Sub Form_Click() Private Sub Timer1_Timer() Timer1_ Text
33、1Text=Time() End Sub End Sub 为了实现上述功能，应该在横线处填入的内容为（分数：2.00）A.Enabled=True B.Enabled=FalseC.Visible=TrueD.Visible=False解析：解析：常借助计时器来完成有规律性时间间隔执行的任务，Enabled 属性用于控制计时器是否开始启用，True 为启用，False 为停止。13.设窗体上有一个标签 Label1 和一个计时器 Timer1，Timer1 的 Interval 属性被设置为 1000，Enabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可
34、以实现上述要求的事件过程是（分数：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 Timer1_Timer() For k=1 To Timer1Interval Label 1Caption=Timer Next k End Sub解析：解析：本题考查的考点是有关计时器的。计时
35、器的 Interval 属性决定了每隔多长时间触发一次Timer。事件。本题中 Interval 设置为 1000，即每 1 秒触发一次 Timer 事件。在事件中把标签的 Caption属性设置成为当前时间，用 Time 函数可以得到当前时间。14.窗体上有 1 个名称为 Text1 的文本框；1 个名称为 Timer1 的计时器控件，其 Interval 属性值为5000，Enabled 属性值是 True。Timer1 的事件过程如下： Private Sub Timer1_Timer() Static flag As Integer Ifflag=0 Then flag=l：flag=
36、-flag End If If flag=l Then Text1ForeColor=HFFHFF为红色 Else Text1ForeColor=HC000HC000为绿色 End If End Sub 以下叙述中正确的是（分数：2.00）A.每次执行此事件过程时，flag 的初始值均为 0B.flag 的值只可能取 0 或 1C.程序执行后，文本框中的文字每 5 秒改变一次颜色 D.程序有逻辑错误，Else 分支总也不能被执行解析：解析：计时器控件(Timer)用来完成有规律性时问间隔执行的任务，Interval 属性用于设置计时器事件之间的间隔，以毫秒为单位。 本题在每 5 秒执行一次的
37、Timer 事件过程中，通过静态变量 flag 值的交替变换(即-1 和 1 之间)来控制文本框中文字的颜色，值为-1 时为绿色，值为 l 时为红色。除程序刚启动第一次执行 Timer 事件过程时，静态变量 flag 的初始值为 0 外，其余各次均为-1 或 1。15.设窗体上有一个名称为 Timer1 的计时器控件，其 Interval 属性被设置为 500，Enabled 属性被设置为True；还有一个名称为 Text1 的文本框和下面的事件过程： Private Sub Timer1_Timer() Static x As Long x=x+1：Text1=x End Sub 程序运行一
38、段时间后，文本框中显示的是 100，则表示（分数：2.00）A.程序已经运行了 100 秒B.程序已经运行了 100 毫秒C.程序已经运行了 50 秒 D.文本框到窗体左边框的距离是 100解析：解析：计时器控件用以实现在规则的时间间隔触发其 Timer 事件，执行有关事件过程代码，来完成对应功能。Interval 属性用于设置触发计时器的 Timer 事件的时间间隔，单位为 ms，值为 0 时计时器不启用。使用 Static 关键字定义的是静态局部变量，过程执行结束后仍然保留。所以文本框中显示 100 代表计时器事件已经执行了 100 次，也就是运行了 50 秒。16.窗体上有一个名称为 T
39、imer1 的计时器控件，一个名称为 Shapel 的形状控件，其 Shape 属性值为3(Circle)。编写程序如下： Private Sub Form Load() Private Sub Timer1 Timer() ShapelTop=0：Timer1Interval=100 Static X As Integer End Sub Shape1Top=Shape1Top+100 x=x+1 If x Mod 10=0 Then ShapelTop=0 End If End Sub 以下关于上述程序的叙述中，错误的是（分数：2.00）A.每执行一次 Timer1 Timer 事件过程，
40、x 的值都在原有基础上增加 1B.Shapel 每移动 10 次回到起点，重新开始C.窗体上的 Shapel 由下而上移动 D.Shapel 每次移动 100解析：解析：在计时器事件中的变量 x 是一个静态变量，事件结束后其值仍然会保留，所以每执行一次Timei1-Timer。事件过程，x 的值都在原有基础上增加 1；每次 x 能被 10 整除均令形状的 Top 属性为 0，即回到起点：形状控件在计时器事件中每次 Top 值均增加 100，即自上而下进行移动，每次 100。17.窗体上有一个名称为 Label1 的标签；一个名称为 Timer1 的计时器，其 Enabled 和 Interva
41、l 属性分别为 True 和 1000。编写如下程序： Dim n As 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 在窗体的声明段使用 Dim 声明，是一个窗体级变量；在计时
42、器的 Timer 事件中每次令 n 加 1，如果超过了 4 则将其除 4 取余；即最后循18.窗体上有一个名称为 Shapel 并显示为圆的形状控件(其 width 和 Height 属性值相等)，一个名称为Timer1 的计时器，并有下面程序代码： Dim r As Single，flag As Integer Private Sub Form Load() r=ShapelWidth Timer1Enabled=True Timer1Interval=500 End Sub Private Sub Timer1_Timer() Ifflag=0 Then ShapelWidth=Shape
43、lWidth-10 IfShapelWidth=r Then flag=0 End If End If End Sub 运行程序后产生的结果是（分数：2.00）A.圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复 B.圆一直在缩小C.圆每隔 05 秒向右移动一次D.圆每隔 1 秒向下移动一次解析：解析：本题在计时器的 Timer 事件中，如果 flag 为 0，让圆的宽度逐渐减小，一直到 100 以下，将 flag 置为 1；如果 flag 为 1，让圆的宽度逐渐增大，一直到大于原来的宽度 r 则将 flag 置为 0：则圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复。19.下列针对框架控件
44、的叙述中，错误的是（分数：2.00）A.框架是一个容器控件B.框架也有 Click 和 DblClick 事件C.框架也可以接受用户的输入 D.使用框架的主要目的是对控件进行分组解析：解析：框架(Frame)是一个容器控件，用于将屏幕上的对象分组。框架不能接受用户的输入，也没有 Click 和 DblClick 事件。20.要使两个单选按钮属于同一个框架，下面三种操作方法中正确的是先画一个框架，再在框架中画两个单选按钮先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中先画两个单选按钮，再画框架将单选按钮框起来（分数：2.00）A. B.C.D.和解析：解析：框架(Frame)是一
45、个容器控件，用于将屏幕上的对象分组。在容器中添加控件有两种形式：先画一个容器，再在框架中画控件；先画一个容器，再在容器外画控件，然后选中控件单击工具栏上的“剪切”按钮，接下来选中容器，单击工具栏上的“粘贴”按钮。21.下面哪个属性肯定不是框架控件的属性（分数：2.00）A.Text B.CaptionC.LeftD.Enabled解析：解析：框架控件的 Caption 属性用来显示说明性的文字，Left 属性来指定框架左侧坐标，Enabled属性用来指定框架是否可用。而 Text 属性用于返回或设置文本框中的内容，具有该属性的控件有文本框、列表框、组合框等，不包括框架控件。22.如果在框架中画
46、了 2 个复选框，且框架的 Enabled 属性被设置为 False，2 个复选框的 Enabled 属性被设置为 True，则下面叙述中正确的是（分数：2.00）A.2 个复选框可用B.2 个复选框不可用 C.2 个复选框不显示D.上述都不对解析：解析：框架是一个容器控件，若其 Enabled 属性被设置为 False，则无论其内部的控件的 Enabled属性被设置为何值，控件都不可用。23.如果要在窗体上使用 2 组单选按钮，每组都可以有一个被选中，则应该做的是（分数：2.00）A.把 1 组单选按钮画在窗体的左边，另 l 组画在右边B.先画 2 组单选按钮，再画 2 个框架控件把 2 组
47、单选按钮分别框起来C.先画 2 个框架控件，再把 2 组单选按钮分别画在不同的框架中 D.因为 1 个窗体中只有 1 个单选按钮可以被选中，所以需要使用 2 个窗体解析：解析：框架(Frame)是一个容器控件，用于将屏幕上的对象分组，单选按钮(OptionButton)组用于提供多个选项间的唯一选择，因此若要使得每组中部有一个按钮被选中，需要将其使用框架分组。24.以下关于框架的叙述中，错误的是（分数：2.00）A.框架能够响应 Click 事件B.框架是一个容器C.框架的 Enabled 属性为 False 时，框架内的控件均被屏蔽D.框架可以获得焦点 解析：解析：框架是一个容器控件，可以响
48、应单击事件和双击事件，但是一般不需编写这两个事件：框架的Enabled 属性为 False 时，框架内的控件均被屏蔽：框架不是输入型控件，不能接受焦点。25.以下可以作为“容器”的控件是（分数：2.00）A.框架 B.图像框C.标签D.命令按钮解析：解析：容器控件的特点是内部还能容纳其他的控件，图片框、窗体和框架都可以作为容器。26.窗体上有名称为 Command1 的命令按钮和名称为 Text1 的文本框 Private Sub Command1_Click() Text1Text=“程序设计“ Text1SetFocus End Sub Private Sub Text1_GotFocus
49、() Text1Text=“等级考试“ End Sub 运行以上程序，单击命令按钮后（分数：2.00）A.文本框中显示的是“程序设计”，且焦点在文本框中B.文本框中显示的是“等级考试”，且焦点在文本框中 C.文本框中显示的是“程序设计”，且焦点在命令按钮上D.文本框中显示的是“等级考试”，且焦点在命令按钮上解析：解析：SetFocus 方法用于将焦点移到指定的对象上，而当一个对象获得焦点时将触发其 GotFocus事件过程。27.以下能够设置控件焦点的方法是（分数：2.00）A.SetFocus B.GotFocusC.LostFocusD.TabStop解析：解析：控件的 SetFocus 方法可将焦点移到指定的对象上，GotFocus 是失去焦点事件，LostFocus是得到焦点事件。28.设窗体中有一个文本框 Text1，若在程序中执行了 Text1SetFocus，则触发（分数：2.00）A.Text1 的 SetFocus 事件B.Text1 的 GotFOCUS 事件
