国家二级VB机试（常用标准控件）模拟试卷21
(总分58,考试时间90分钟)
1. 选择题
1. 窗体上有一个名称为HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是
A. Private Sub HScroll1_Change() Print HScroll1．Vahe End Sub
B. Private Sub HScroll1_Change() Print HScroll1．SmallChange End Sub
C. Private Sub HScroll1_Scroll() Print HScroll1．Value End Sub
D. Private Sub HScroll1_Scroll() Print HScroll1．SmallChange End Sub
2. 设窗体上有1个水平滚动条，己经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是
A. 程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加
B. 程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少
C. 由于滚动条的Max属性值小于Min属性值，程序会出错
D. 由于滚动条的Max属性值小于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动
3. 设窗体上有一个水平滚动条HScroll1和一个命令按钮Command1，及下面的事件过程：    Private Sub Form_Load()        Private Sub Command1_Click()    HScroll1．Min=0                  HScroll1．Value=70    HScroll1．Max=100              End Sub    End Sub程序运行时单击命令按钮，则滚动条上滚动块位置的图示是
A.          B.
C.          D.
4. 窗体上有一个名称为VScroll1的垂直滚动条，为了设定单击滚动条两端箭头时的Value增量值，应设置的属性是
A. LargeChange        B. SmallChange
C. Max        D. Min
5. 程序运行时，拖动滚动条上的滚动框，则所触发的事件是
A. Move        B. Scroll
C. Drag        D. DragDrop
6. 设窗体上有一个Text1文本框和一个HScroll1水平滚动条，并有下面的事件过程：    Private Sub HScroll1_Change()    Text1=HScroll1    End Sub    在程序运行时，当把滚动框移动到最左边时，文本框中显示的是100；当把滚动框移动到最右边时，文本框中显示的是1。根据这些信息，下面的判断中错误的是
A. 滚动条的Max和Min属性的值分别是1和100
B. 滚动条的Max和Min属性的值分别是100和1
C. 文本框中显示的是滚动条Value属性的值
D. 如果把滚动框移动到中间位置，文本框中将显示50
7. 设窗体上有1个名称为HScroll1的水平滚动条，其Max、Min属性分别设置为100、1：有2个名称分别为Option1、Option2的单选按钮，其标题分别为“30”、“50”；还有下面程序代码：    Private Sub Optionl_Click()      Private Sub Option2_Click()    HScroll1=Val(Optionl．Caption)        HScroll1=Val(Option2．Caption)    End Sub                          End Sub    程序运行时，单击Option2单选按钮，则滚动条上滚动框的位置是
A. 在最左边        B. 在最右边
C. 在中间        D. 在中间偏左的位置
8. 下列关于水平滚动条的叙述中，错误的是
A. Value属性值表示单击滚动条两端的箭头时，滚动框向左或向右移动的增量
textbox控件边框设置
B. Scroll事件在鼠标拖动滚动框时产生
C. 用鼠标拖动滚动框后，会触发Change事件
D. 单击滚动条两端箭头时，会触发Change事件
9. 下列关于滚动条的叙述中，错误的是
A. 在滚动条内单击滚动框前面或后面的部位时，会触发Scroll事件
B. 在滚动条内拖动滚动框时，会触发Scroll事件
C. 在滚动条内拖动滚动框后，会触发Change事件
D. 单击滚动条两端的箭头时，会触发Change事件
10. 定时器的Interval属性的值是一个整数，它表示的是
A. 毫秒数        B. 秒数
C. 分钟数        D. 小时数
11. 为了使每秒钟发生一次计时器事件，可以将其Interval属性设置为
A. l        B. 10
C. 100        D. 1000
12. 窗体上有1个名称为Text1的文本框，1个名称为Timer1的计时器，且已在属性窗口将Timer1的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是，单击窗体，则每隔2秒钟在Text1中显示一次当前时间。    Private Sub Form_Click()      Private Sub Timer1_Timer()  Timer1．________                    Text1．Text=Time()    End Sub                        End Sub    为了实现上述功能，应该在横线处填入的内容为
A. Enabled=True        B. Enabled=False
C. Visible=True        D. Visible=False
13. 设窗体上有一个标签Label1和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是
A. Private Sub Timer1_Timer() Label1．Caption=True End Sub
B. Private Sub Timer1_Timer() Label1．Caption=TimeS End Sub
C. Private Sub Timer1_Timer() Label1．Interval=1 End Sub
D. Private Sub Timer1_Timer() For k=1 To Timer1．Interval Label 1．Caption=Timer Next k End Sub
14. 窗体上有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    Text1．ForeColor=＆HFF＆'＆HFF＆为红    Else    Text1．ForeColor=＆HC000＆'＆HC000＆为绿    End If    End Sub    以下叙述中正确的是
A. 每次执行此事件过程时，flag的初始值均为0
B. flag的值只可能取0或1
C. 程序执行后，文本框中的文字每5秒改变一次颜
D. 程序有逻辑错误，Else分支总也不能被执行
15. 设窗体上有一个名称为Timer1的计时器控件，其Interval属性被设置为500，Enabled属性被设置为True；还有一个名称为Text1的文本框和下面的事件过程：    Private Sub Timer1_Timer()    Static x As Long    x=x+1：Text1=x    End Sub    程序运行一段时间后，文本框中显示的是100，则表示

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。