1、国家二级 VB机试（常用标准控件）-试卷 10及答案解析(总分：64.00，做题时间：90 分钟)一、选择题(总题数：32，分数：64.00)1.在窗体上画一个文本框(名称为 Text1)和一个标签(名称为 Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是（分数：2.00）A.Private Sub Text 1_Change() Label 1Caption=Str(Len(Text 1Text) End SubB.Private Sub Text 1_C lick() Label 1Caption=Str(Len
2、(Text 1Text)1 End SubC.Private Sub Text 1_Change() Label 1Caption=Text 1Text End SubD.Private Sub Label 1_Change() Label 1Caption=Str(Len(Text 1Text) End Sub2.为了使标签控件在显示其内容时不覆盖其背景内容，需进行设置的属性为（分数：2.00）A.BackColorB.BorderStyleC.ForeColorD.BackStyle3.以下能够触发文本框 Change事件的操作是（分数：2.00）A.文本框失去焦点B.文本框获得焦点C.设
3、置文本框的焦点D.改变文本框的内容4.为了使标签 Labell透明且不具有边框，以下正确的属性设置是（分数：2.00）A.Label 1BackStyle=0：Label 1BorderStyle=1B.Label 1BackStyle=0：Label 1BorderStyle=0C.Label 1BackStyle=1：Label 1BorderStyle=1D.Label 1BackStyle=1：Label 1BorderStyle=05.文本框的 Locked属性被设置为 True后产生的效果是（分数：2.00）A.光标不能进入文本框B.不能使文本框中的文本左右滚动C.不能修改文本框中
4、的文本D.在程序中不能引用文本框的内容6.窗体上有 2个名称分别为 Text1和 Text2的文本框。编写如下程序： Private Sub Form_Load() Private Sub Command 1_Click() Text1Text=“ Print Text1Text+Text2Text Text2Text=“ End Sub End Sub 程序运行后，在 Text1和 Text2中依次输入 100和 200，单击 Command 1，则输出结果为（分数：2.00）A.100B.200C.300D.1002007.为了调整图像框的大小以与其中的图形相适应，必须把它的 Stretc
5、h属性设置为（分数：2.00）A.TrueB.FALSEC.1D.28.要使图像框(Image)中的图像能随着图像框的大小伸缩，应该设置的属性及值是（分数：2.00）A.AutoSize值为 TrueB.AutoRedraw值为 TrueC.Stretch值为 TrueD.BorderStyle值为 09.下面关于直线控件的叙述中正确的是（分数：2.00）A.它的 X1、X2 属性值必须满足 X10 Then ch$=List 1List(n) List 1List(n)=List 1List(n 一 1)：List 1List(n-1)=ch End If End Sub 程序运行时，选中
6、1个列表项，然后单击 Command 1按钮，则产生的结果是（分数：2.00）A.若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置B.选中的列表现与它前面的列表项互换位置C.若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置D.选中的列表项与它后面的列表项互换位置23.在窗体上画一个水平滚动条，其属性值 Min满足（分数：2.00）A.增加一个 SmallChange量B.减少一个 SmallChange量C.增加一个 LargeChange量D.减少一个 LargeChange量24.窗体上有一个名称为 VScrol11的垂直滚动条，要求程序运行时，滚动块的
7、初始位置在最下端，应该使VScrol11Value 的值等于（分数：2.00）A.VScrol11LargeChangeB.VScrol11SmallChangeC.VScrol11MaxD.VScrol11Min25.窗体上有一个名称为 VScrol11的垂直滚动条，为了设定单击滚动条两端箭头时的 Value增量值，应设置的属性是（分数：2.00）A.LargeChangeB.SmallChangeC.MaxD.Min26.下列关于水平滚动条的叙述中，错误的是（分数：2.00）A.Value属性值表示单击滚动条两端的箭头时，滚动框向左或向右移动的增量B.Scroll事件在鼠标拖动滚动框时产生
8、C.用鼠标拖动滚动框后，会触发 Change事件D.单击滚动条两端箭头时，会触发 Change事件27.窗体上有 1个名称为 Text1的文本框，1 个名称为 Timerl的计时器，且已在属性窗口将 Timerl 的Interval属性设置为 2000、Enabled 属性设置为 False。以下程序的功能是，单击窗体，则每隔 2秒钟在Text1中显示一次当前时间。 Private Sub Form_Click() Private Sub Timerl_Timer()Timerl_ Text1Text=Time() End Sub End Sub 为了实现上述功能，应该在横线处填入的内容为（分
9、数：2.00）A.Enabled=TrueB.Enabled=FalseC.Visible=TrueD.Visible=False28.设窗体上有一个名称为 Timerl的计时器控件，其 Interval属性被设置为 500，Enabled 属性被设置为True；还有一个名称为 Text1的文本框和下面的事件过程： Private Sub Timer 1Timer() Static xAs Long x=x+l：Text1=x End Sub 程序运行一段时间后，文本框中显示的是 100，则表示（分数：2.00）A.程序已经运行了 100秒B.程序已经运行了 100毫秒C.程序已经运行了 50
10、秒D.文本框到窗体左边框的距离是 10029.窗体上有一个名称为 Labell的标签；一个名称为 Timerl的计时器，其 Enabled和 Interval 属性分别为 True和 1000。编写如下程序： Dim n As Integer Private Sub Timer 1_Timer() ch=Chr(n+Asc(“A“)：LabellCaption=ch：n=n+1：n=n Mod 4 End Sub 运行程序，将在标签中（分数：2.00）A.不停地依次显示字符“A”、“B”、“C”、“D”，直至窗体被关闭B.依次显示字符“A”、 “B”、 “C”、 “D”各一次C.每隔 1秒显示
11、字符“A”一次D.每隔 1秒依次显示 26个英文字母中的一个30.下面哪个属性肯定不是框架控件的属性（分数：2.00）A.TextB.CaptionC.LeftD.Enabled31.以下可以作为“容器”的控件是（分数：2.00）A.框架B.图像框C.标签D.命令按钮32.对于能够获得焦点的控件，若要使其不能接收焦点，应该（分数：2.00）A.将 TabStop属性值设为 TrueB.将 TabStop属性值设为 FalseC.将 TabIndeX属性值设为 0D.将 Enabled属性值设为 False国家二级 VB机试（常用标准控件）-试卷 10答案解析(总分：64.00，做题时间：90
12、分钟)一、选择题(总题数：32，分数：64.00)1.在窗体上画一个文本框(名称为 Text1)和一个标签(名称为 Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是（分数：2.00）A.Private Sub Text 1_Change() Label 1Caption=Str(Len(Text 1Text) End Sub B.Private Sub Text 1_C lick() Label 1Caption=Str(Len(Text 1Text)1 End SubC.Private Sub Text 1_Cha
13、nge() Label 1Caption=Text 1Text End SubD.Private Sub Label 1_Change() Label 1Caption=Str(Len(Text 1Text) End Sub解析：解析：小题考查的考点是有关文本框处理的。首先，如果想要在文本框中每输入一个字符就会触发一次事件，应该编写文本框的 Change事件；文本框中的字符个数由 Len函数可以取得。2.为了使标签控件在显示其内容时不覆盖其背景内容，需进行设置的属性为（分数：2.00）A.BackColorB.BorderStyleC.ForeColorD.BackStyle 解析：解析：标签
14、的 Backstyle属性用于设置是否让标签覆盖背景，可以取 0(标签不覆盖背景，以透明方式显示)和 1(默认值，标签覆盖背景)。3.以下能够触发文本框 Change事件的操作是（分数：2.00）A.文本框失去焦点B.文本框获得焦点C.设置文本框的焦点D.改变文本框的内容 解析：解析：文本框中文本内容改变时将触发其 Change事件，失去焦点时将触发其 LostFocus事什，获得焦点时将触发其 GotFocus事件。4.为了使标签 Labell透明且不具有边框，以下正确的属性设置是（分数：2.00）A.Label 1BackStyle=0：Label 1BorderStyle=1B.Labe
15、l 1BackStyle=0：Label 1BorderStyle=0 C.Label 1BackStyle=1：Label 1BorderStyle=1D.Label 1BackStyle=1：Label 1BorderStyle=0解析：解析：标签的 Borderstyle属性用来设置标签的边框，可以取两种值，即 0(无边框，为默认值)和1(有边框)；BackStyle 属性用于设置是否让标签覆盖背景，口丁以取 0(标签不覆盖背景，以透明方式显示)和 1(默认值，标签覆盖背景)。5.文本框的 Locked属性被设置为 True后产生的效果是（分数：2.00）A.光标不能进入文本框B.不能使
16、文本框中的文本左右滚动C.不能修改文本框中的文本 D.在程序中不能引用文本框的内容解析：解析：文本框的 Locked属性用于设置控件是否允许进行文本编辑，值为 False(默认值)时允许编辑，值为 True时不允许编辑。6.窗体上有 2个名称分别为 Text1和 Text2的文本框。编写如下程序： Private Sub Form_Load() Private Sub Command 1_Click() Text1Text=“ Print Text1Text+Text2Text Text2Text=“ End Sub End Sub 程序运行后，在 Text1和 Text2中依次输入 100和
17、 200，单击 Command 1，则输出结果为（分数：2.00）A.100B.200C.300D.100200 解析：解析：文本框的 Text属性将会返回或设置文本框中的内容，该属性是一个字符串。两个字符串做“+”运算，即字符串的连接。7.为了调整图像框的大小以与其中的图形相适应，必须把它的 Stretch属性设置为（分数：2.00）A.TrueB.FALSE C.1D.2解析：解析：stretch 属性用于设定载入图像框中的图片是否需要自动调整大小，以适应图像框的大小。值为 True时，图片将自动调整大小，以适应图像框的大小；值为 False时，图像框会自动缩放以与图片大小一致。图片框没有
18、 Stretch属性，它通过 Autosize属性来设置是否需要调整自身大小，以显示载入图片的所有内容，当值为 True，图片框会随图片调整大小；值为 False，图片框一般将保持大小不变，但对“wmf”格式图片文件除外。8.要使图像框(Image)中的图像能随着图像框的大小伸缩，应该设置的属性及值是（分数：2.00）A.AutoSize值为 TrueB.AutoRedraw值为 TrueC.Stretch值为 True D.BorderStyle值为 0解析：解析：Stretch 属性用于设定载入图像框中的图片是否需要自动调整大小，以适应图像框的大小。值为 True时，图片将自动调整大小，以
19、适应图像框的大小；值为 False时，图像框会自动缩放以与图片大小一致。图片框没有 stretch属性，它通过 AutoSize属性来设置是否需要调整自身大小，以显示载入图片的所有内容，当值为 True，图片框会随图片调整大小；值为 False，图片框一般将保持大小不变，但对“wmf”格式图片文件除外。9.下面关于直线控件的叙述中正确的是（分数：2.00）A.它的 X1、X2 属性值必须满足 X10 Then ch$=List 1List(n) List 1List(n)=List 1List(n 一 1)：List 1List(n-1)=ch End If End Sub 程序运行时，选中
20、1个列表项，然后单击 Command 1按钮，则产生的结果是（分数：2.00）A.若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置 B.选中的列表现与它前面的列表项互换位置C.若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置D.选中的列表项与它后面的列表项互换位置解析：解析：List 属性是一个数组，存放列表框中所有项目的内容；List 1ndex 属性可返回当前所选项目的索引号，第一个项目的索引号为 0。List 1List(n-1)指的是当前选中列表项的前一个列表项。23.在窗体上画一个水平滚动条，其属性值 Min满足（分数：2.00）A.增加一个 Sm
21、allChange量 B.减少一个 SmallChange量C.增加一个 LargeChange量D.减少一个 LargeChange量解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。其 Max属性用于设置或返回滚动条所能表示的最大值，Min 属性用于设置或返回滚动条所能表示的最小值。LargeChange属性用于设置或返回单击滚动条中滚动框前面或后面的部位时，Value 属性增加或减小的增量值：SmallChange属性用于设置或返回单击滚动条两端的箭头时，Value 属性增加或减小的增量值。24.窗体上有一个名称为 VScrol11的垂直滚动条，要求程序运行时
22、，滚动块的初始位置在最下端，应该使VScrol11Value 的值等于（分数：2.00）A.VScrol11LargeChangeB.VScrol11SmallChangeC.VScrol11Max D.VScrol11Min解析：解析：滚动条的 Max属性可返回或设置当滚动框处于垂直滚动条底部或水平滚动条最右位置时Value属性值；Min 属性可返回或设置当滚动框处于垂直滚动条顶部或水平滚动条最左位置时 Value属性值。25.窗体上有一个名称为 VScrol11的垂直滚动条，为了设定单击滚动条两端箭头时的 Value增量值，应设置的属性是（分数：2.00）A.LargeChangeB.Sm
23、allChange C.MaxD.Min解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。其 Max属性用于设置或返回滚动条所能表示的最大值，Min 属性用于设置或返回滚动条所能表示的最小值。LargeChange属性用于设置或返回单击滚动条中滚动框前面或后面的部位时，Value 属性增加或减小的增量值；SmallChange 属性用于设置或返回单击滚动条两端的箭头时，Value 属性增加或减小的增量值。26.下列关于水平滚动条的叙述中，错误的是（分数：2.00）A.Value属性值表示单击滚动条两端的箭头时，滚动框向左或向右移动的增量 B.Scroll事件在鼠标拖
24、动滚动框时产生C.用鼠标拖动滚动框后，会触发 Change事件D.单击滚动条两端箭头时，会触发 Change事件解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。Value 是滚动条中滚动框的当前值，当滚动条的 Value属性值改变时会触发 Change事件。当拖动滚动条中的滚动框时，触发 Scroll事件。27.窗体上有 1个名称为 Text1的文本框，1 个名称为 Timerl的计时器，且已在属性窗口将 Timerl 的Interval属性设置为 2000、Enabled 属性设置为 False。以下程序的功能是，单击窗体，则每隔 2秒钟在Text1中显示一次当
25、前时间。 Private Sub Form_Click() Private Sub Timerl_Timer()Timerl_ Text1Text=Time() End Sub End Sub 为了实现上述功能，应该在横线处填入的内容为（分数：2.00）A.Enabled=True B.Enabled=FalseC.Visible=TrueD.Visible=False解析：解析：常借助计时器来完成有规律性时间间隔执行的任务，Enabled 属性用于控制计时器是否开始启用，True 为启用，False 为停止。28.设窗体上有一个名称为 Timerl的计时器控件，其 Interval属性被设置
26、为 500，Enabled 属性被设置为True；还有一个名称为 Text1的文本框和下面的事件过程： Private Sub Timer 1Timer() Static xAs Long x=x+l：Text1=x End Sub 程序运行一段时间后，文本框中显示的是 100，则表示（分数：2.00）A.程序已经运行了 100秒B.程序已经运行了 100毫秒C.程序已经运行了 50秒 D.文本框到窗体左边框的距离是 100解析：解析：计时器控件用以实现在规则的时问间隔触发其 Timer事件，执行有关事件过程代码，来完成对应功能。Interval 属性用于设置触发计时器的 Timer事件的时间
27、间隔，单位为 ms，值为 0时计时器不启用。使用 Static关键字定义的是静态局部变量，过程执行结束后仍然保留。所以文本框中显示 100代表计时器事件已经执行了 100次，也就是运行了 50秒。29.窗体上有一个名称为 Labell的标签；一个名称为 Timerl的计时器，其 Enabled和 Interval 属性分别为 True和 1000。编写如下程序： Dim n As Integer Private Sub Timer 1_Timer() ch=Chr(n+Asc(“A“)：LabellCaption=ch：n=n+1：n=n Mod 4 End Sub 运行程序，将在标签中（分数
28、：2.00）A.不停地依次显示字符“A”、“B”、“C”、“D”，直至窗体被关闭 B.依次显示字符“A”、 “B”、 “C”、 “D”各一次C.每隔 1秒显示字符“A”一次D.每隔 1秒依次显示 26个英文字母中的一个解析：解析：本题中的变量 n在窗体的声明段使用 Dim声明，是一个窗体级变量；在计时器的 Timer事件中每次令 n加 1，如果超过了 4则将其除 4取余；即最后循环显示字符“A”、“B”、“C”、“D”。30.下面哪个属性肯定不是框架控件的属性（分数：2.00）A.Text B.CaptionC.LeftD.Enabled解析：解析：框架控件的 Caption属性用来显示说明性
29、的文字，Left 属性来指定框架左侧坐标，Enabled属性用来指定框架是否可用。而 Text属性用于返回或设置文本框中的内容，具有该属性的控件有文本框、列表框、组合框等，不包括框架控件。31.以下可以作为“容器”的控件是（分数：2.00）A.框架 B.图像框C.标签D.命令按钮解析：解析：容器控件的特点是内部还能容纳其他的控件，图片框、窗体和框架都可以作为容器。32.对于能够获得焦点的控件，若要使其不能接收焦点，应该（分数：2.00）A.将 TabStop属性值设为 TrueB.将 TabStop属性值设为 FalseC.将 TabIndeX属性值设为 0D.将 Enabled属性值设为 False 解析：解析：可以获得焦点的控件都有 TabStop属性，当该属性值为 Tme(默认)时，表示可以接收焦点停留在该控件上；如果值设为 False，表示焦点不能在该控件上停留，即在用移动焦点时会跳过该控件，但仍然保持着它在 Tab顺序中的实际位置，鼠标选中摔件依然能获得焦点，所以本题的正确选项应该是 D)。
