1、国家二级 VB机试（选择题）模拟试卷 141及答案与解析 一、选择题 1 窗体上有一个名称为 VScrolll的滚动条，当用鼠标拖动滚动条中的滚动块时，触发的事件是 （ A） Click （ B） KeyDown （ C） DragDrop （ D） Scroll 2 以下不能触发滚动条 Change事件的操作是 （ A）拖动滚动框 （ B）单击两端的滚动箭头 （ C）单击滚动框 （ D）单击滚动箭头与滚动框之间的滚动条 3 窗体上有一个名称为 VScrolll的垂直滚动条，要求程序运行时，滚动块的初始位置在 最下端，应该使 VScrolll Value的值等于 （ A） VScroll 1
2、LargeChange （ B） VScroll 1 SmallChange （ C） VScrolll Max （ D） VScrolll Min 4 窗体上有一个名称为 HScrolll的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置 (即刻度值 )。下面能够实现上述操作的事件过程是 （ A） Private Sub HScroll l Change( ) （ B） Private Sub HScroll l Change() Print HScroll 1 Value Print HScroll 1 SmallChange End SubEnd Sub （ C
3、） Private Sub HScrolll Scroll( ) （ D） PriVate Sub HScrolll Scroll() Print HScroll 1 Value Print HScroll 1 SmallChange End SubEnd Sub 5 设窗体上有 1个水平滚动条，已经通过属性窗口把它的 Max属性设置为 1， Min属性设置为 100。下面叙述中正确的是 （ A）程序运行时，若使滚动块向左移动，滚动条的 Value属性值就增加 （ B）程序运行时，若使滚动块向左移动，滚动条的 Value属性值就减少 （ C）由于滚动条的 Max属性值小于 Min属性值，程序会
4、出错 （ D）由于滚动条的 Max属性值小于 Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动 6 设窗体上有一个水平滚动条 HScrolll和一个命令按钮 Commandl，及下面的事件过程： Private Sub Form_Load()Private Sub Command l_Click() HScrolll Min=0 HScrolll Value=70 HScrolll.Max=100End Sub End Sub 程序辱行时单击命令按钮，则滚动条上滚动块位置的图示是 （ A） （ B） （ C） （ D） 7 窗体上有一个名称为 VSerolll的垂直滚动条，为了设
5、定单击滚动条两端箭头时的Value增量值， 应设置的属性是 （ A） LargeChange （ B） SmallChange （ C） Max （ D） Min 8 程序运 行时，拖动滚动条上的滚动框，则所触发的事件是 （ A） Move （ B） Scroll （ C） Drag （ D） DragDrop 9 设窗体上有一个 Textl文本框和一个 HScrolll水平滚动条，并有下面的事件过程： Private Sub HScrolll Shange( ) Textl=HScrolll End Sub 在程序运行时，当把滚动框移动到最左边时，文本框中显示的是 100；当把滚动框移动到最
6、右边时，文本框中显示的是 1。根据这些信息，下面的判断中错误的是 （ A）滚动条的 Max和 Min属性的值分别是 1和 100 （ B）滚动条的 Max和 Min属性的值分别是 100和 1 （ C）文本框中显示的是滚动条 Value属性的值 （ D）如果把滚动框移动到中间位置，文本框中将显示 50 10 设窗体上有 1个名称为 HScrolll的水平滚动条，其 Max、 Min属性分别设置为100、 1；有 2个名称分别为 Optionl、 Option2的单选按钮，其标题分别为 “30”、“50”；还有下面程序代码： Private Sub Option 1 Click()Private
7、 Sub Option2 Click() HScro111=Val(Optionl Caption)HScrolll=Val(Option2 Caption) End SubEnd Sub 程序运行时，单击 Option2单选按钮，则滚动条 （ A）在最左边 （ B）在最右边 （ C）在中间 （ D）在中间偏左的位置 11 下列关于水平滚动条的叙述中，错误的是 （ A） Value属性值表示单击滚动条两端的箭头时，滚动框向左或向右移动的增量 （ B） Scroll事件在鼠标拖动滚动框时产生 （ C）用鼠标拖动滚动框后，会触发 Change事件 （ D）单击滚动条两端箭头时，会触发 Change
8、事件 12 下列关于滚动条的叙述中，错误的是 （ A）在滚动条内单击滚动框前面或后面的部位时，会触发 Scroll事件 （ B）在滚动条内拖动滚动框时，会触发 Scroll事件 （ C）在滚动条内拖动滚动框后，会触发 Change事件 （ D）单击滚动条两端的箭头时，会触发 Change事件 13 定时器的 Interval属性的值是一个整数，它表示的是 （ A）毫秒数 （ B）秒数 （ C）分钟数 （ D）小时数 14 为了使每秒钟发生一次计时器事件，可以将 其 Interval属性设置为 （ A） l （ B） 10 （ C） 100 （ D） 1000 15 窗体上有 1个名称为 Tex
9、tl的文本框， 1个名称为 Timerl的计时器，且已在属性窗口将 Timer1的 Interval属性设置为 2000、 Enabled属性设置为 False。以下程序的功能是，单击窗体，则每隔 2秒钟在 Text1中显示一次当前时间。 Private Sub Form_Click0 Private Sub Timer 1_Timer() Timer1 Text1 Text=Time() End SubEnd Sub 为了实现上述功能，应该在横线处填入的内容为 （ A） Enabled=True （ B） Enabled=False （ C） Visible=True （ D） Visibl
10、e=False 16 设窗体占有一个标签 Label1和一个计时器 Timer1， Timerl的 Interval属性被设置为 1000， Enabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是 （ A） Private Sub Timerl Timer( ) （ B） Private Sub Timerl_Timer() Labell Caption=True Labell Caption=Times End SubEnd Sub （ C） Private Sub Timerl_Timer( ) （ D） Private Su
11、b Timerl Timer() Labell Interval=1For k=1 To Timerl_Interval End Sub Label 1 Caption=Timer Next k End Sub 17 窗体上 有 1个名称为 Text1的文本框； 1个名称为 Timerl的计时器控件，其Interval属性值为 5000， Enabled属性值是 True。 Timer1的事件过程如下： Private Sub Timerl_Timer() Static flag As Integer Ifflag=0 Then flag=1： flag=-flag End If Ifflag
12、=1 Then Text1 ForeColor=&HFF&HFF&为红色 Else Text1 ForeColor=&HC000&HC000 （ A）每次执行此事件过程时， flag的初始值均为 0 （ B） flag的值只可能取 0或 1 （ C）程序执行后，文本框中的文字每 5秒改变一次颜色 （ D）程序有逻辑错误， Else分支总也不能被执行 18 为了暂时关闭计时器，应把它的一个属性设置为 False，这个属性是 （ A） Visible （ B） Timer （ C） Enabled （ D） Interval 19 设窗体上有一个名称为 Timerl的计时器控件，其 Interva
13、l属性被设置为 500，Enabled属性被设置为 True；还有一个名称为 Textl的文本框和下面的事件过程： Private Sub Timer1 _Timer0 Static x As Long x=x+1： Textl=x End Sub 程序运行一段时间后，文本框中显示的是 100，则表示 （ A）程序已经运行了 100秒 （ B）程序已经运行了 100毫秒 （ C）程序已经运行了 50秒 （ D）文本框到窗体左边框的距离是 100 20 下列不属于计时器控件属性的是 （ A） Enabled （ B） Interval （ C） Index （ D） Visible 21 下列不
14、属 于计时器控件属性的是 （ A） Enabled （ B） Interval （ C） Name （ D） Timer 22 窗体上有一个名称为 Timer1的计时器控件，一个名称为 Shapel的形状控件，其 Shape属性值为 3(Circle)。编写程序如下： Private Sub Form Load()Private Sub Timer1 Timer() Shapel Top=0： Timer1 Interval=100Static x As Integer End SubShapel ToP=Shapel Top+100 x=x+1 If x Mod 10=0 Then Shap
15、el Top=0 End If End Sub （ A）每执行一次 Timerl Timer事件过程， X的值都在原有基础上增加 1 （ B） Shapel每移动 10次回到起点，重新开始 （ C）窗体上的 Shapel由下而上移动 （ D） Shapel每次移动 100 23 窗体上有一个名称为 Labell的标签；一个名称为 Timerl的计时器，其 Enabled和 Interval属性分别为 True和 1000。编写如下程序： Dim n As Integer Private Sub Timer 1Timer() ch： Chr(n+Asc(“A”)： Labell Caption=
16、ch： n=n+1： n=n Mod 4 End Sub 运行程序，将在标签中 （ A）不停地依次显示字符 “A”、 “B”、 “C”、 “D”，直至窗体被关闭 （ B）依次显示字符 “A”、 “B”、 “C”、 “D”各一次 （ C）每隔 1秒显示字符 “A”一次 （ D）每隔 1秒依次显示 26个英文字母中的一个 24 窗体上有一个名称为 Shapel并显示为圆的形状控件 (其 Width和 Height属性值相等 )，一个名称为 Timerl的计时器，并有下面程序代码： Dim r As Single， flag As Integer Private Sub Timer l Timer() Private Sub Form Load()If flag=0 Then r=Shapel WidthShapel Width=Shapel Width 10 Timer 1 Enabled： TrueIf Shape 1 Width移动焦点时会跳过该控件，但仍然保持着它在 1曲顺序中的实际位置，鼠标选中控件依然能 获得焦点，所以本题的正确选项应该是 D。 【知识模块】 常用标准控件 36 【正确答案】 C 【试题解析】 只有能输入的输入型控件才能够接收焦点，本题四个选项中只有命令按钮是输入型控件，可以接收焦点 【知识模块】 常用标准控件
