计算机二级
窗体上有一个名称为HScroll 1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )。A． Private Sub HScroll 1_Change() Print HScroll1.Value End SubB．Private Sub HScroll 1_Change() Print HScroll1.SmallChange End SubC．Private Sub HScroll1 Scroll() Print HScro
题目
窗体上有一个名称为HScroll 1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )。
A． Private Sub HScroll 1_Change() Print HScroll1.Value End Sub
B．Private Sub HScroll 1_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
相似问题和答案
第1题：
A、PrivateSubHScroll_Change()Label1.Caption=HScroll1.ValueEndSub
B、PrivateSubHScroll_Click()Label1.Caption=HScroll1.ValueEndSub
C、PrivateSubHScroll_Change()Label1.Text=HScroll.CaptionEndSub
D、PrivateSubHScroll_Click()Label1.Text=HScroll.CaptionEndSub
第2题：
在名为Form1的窗体上绘制一个垂直滚动条(名称为VS1)和一个水平滚动条(名称
为HS1)。在属性窗口中对两个滚动条设置如下属性：
Min 2000
Max 8000
LargeChange 500
SmallChange 50
编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小窗体。运行后的窗体如下图所示。
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise22.vbp，窗体文件名为exeeise22.frm。
第3题：
在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，在窗体上有一个名称为HScroll1的水平滚动条(Min为400，Max为2000)和三个名称分别为Command1、Com mand2和Command3，标题分别为“减200”、“显示”和“加200”的命令按钮。程序运行后，如果单击“减200”命令按钮，则滚动块向左滚动200单位；如果单击“显示”命令按钮，则显示当前滚动条的值；如果单击“加200”命令按钮，则滚动块向右滚动200单位。程序运行时效果如图5-4昕示。
注意：请在有“?”的地方正确内容，然后删除“?”及代码前的所有注释符(即“”’号)，但不能修改其他部分。编写程序使程序运行时满足下列的条件。存盘时不得改变文件名和文件夹。
滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其Value属性的值。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围，在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。
根据题意，将一个水平滚动条控件和3个命令按钮添加到窗体中，水平滚动条的名称为HScroll1、Min属性为400、Max属性为2 000，命令按钮的名称分别为Command1、Command2和Command3，Caption属性分别为“减200”、“显示”和“加200”。双击Command1进入代码窗口，编写如下代码：
Private Sub Ccmmand1_lick
If HScroll1．Value-200<HScroll1．Min Then
如果移动后小于最小值
HScroll1．Value=HScroll1．Min
则HScrell1的值为最小值
Else否则
HScroll1．Value=HScroll1．Value-200
HSeroll1的值减200
End If
End Sub
Private Sub Command2 Click
Cls先清空窗体
Print HScroll1．Value
在窗口上显示HScroll1的当前值
End Sub
Private Sub Command3_Click
If HScroll1．Value+200>HScroll1．Max Then
如果移动后大于最大值
HScroll1．Value=HScroll1．Max
则HScroll1的值为最大值
Else否则
HSeroll1．Value=HScroll1．Value+200
HSeroll1的值加200
End If
End Sub
单击
按钮运行程序，并按要求保存。第4题：
在名为Form1的窗体上绘制一个命令按钮(标题为Cmd1)和一个垂直滚动条，其名称分别为Cmd1和VS1。编写适当的事件过程，使程序运行后，若单击命令按钮，则按如下要求设置垂直滚动条的属性：
Max=窗体高度
Min=0
LargeChange=50
SmallChange=10
如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如下图所示。
注意：
不得使用任何变量：文件必须存放在考生文件夹中，工程文件名为execise74.vbp，窗体文件名为execise74.frm。
第5题：
在名为Form1的窗体上绘制一个命令按钮(标题为Cmd1)和一个水平滚动条，其名称分别为Cmd1和HS1。编写适当的事件过程，使程序运行后，若单击命令按钮，则按如下要求设置水平滚动条的属性：
Max=窗体宽度
Min=0
LargeChange=50
SmallChange=10
如果移动水平滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如下图所示。
注意：
不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为execise99.vbp，窗体文件名为execise99.frm。
第6题：
在窗体上画一个名称为Text1的文体框，然后画一个名称为HScrolll的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示。
以下能实现上述操作的程序段是
A．Private Sub Hscroll1_Change( ) Text1．Text=Hscroll1．Value End Sub
B．Private Sub Hscroll1_Click( ) Text1．Text=Hscroll1．Value End Sub
C．Private Sub Hscroll1_Change( ) Text1．Text=Hscroll1．Caption End Sub
D．Private Sub Hscroll1_Click( ) Text1．Text=Hscroll1．Caption End Sub
解析：题目中移动滚动框将触发滚动框的Change属性，所以选项 B)和选项D)可以先排除，另外滚动条的当前值可以用Value属性来表示，如果在文本框中显示滚动条的当前值语句应为：Text1．Text=Hscrolll. Value。所以排除选项C)，正确答案为选项A)。
第7题：
在窗体上画一个名称为Text1的文本框．然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图16-6所示。 以下能实现上述操作的程序段是______。
A．Private Sub HScroll1_Change() Text1.Text=HScroll1. Value End Sub
B．Private Sub HScroll1_Click() Text1. Text=HScroll1. Value End Sub
C．Private Sub HScroll1_Change() Text1. Text=HScroll1. Caption End Sub
D．Private Sub HScroll1_Click() Text1. Text=HScroll1. Caption End Sub
解析：移动HScrollBar(水平滚动条)和VScrollBar(垂直滚动条)滚动框部分或通过代码改变Value属性的设置时，将激括Chang事件。其Value属性(默认值为0)是一个整数，它对应于滚动框在滚动条中的位置。当滚动框位置在最小值时，它将移动到滚动条的最左端位置(水平滚动条)或顶端位置(垂直滚动条)。当滚动框在最大值时，它将移动到滚动条的最右端或底端位置。
第8题：
在窗体上画一一个名称为Text1的文本框，然后画一个名称为Hscroll1的滚动条，其Min和Max属性分别为0和1 000。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是（ ）。
A) 【解析】本题考查滚动条的事件和属性。滚动条上滑块的位置决定了其Value属性的值，当滑块的位置发生改变时，
将触发滚动条的Change事件。日此，要想在移动滑块时，在文本框中显示滚动条的当前值，可通过在滚动条的Change事件中将滚动条的Value属性值赋值给文本框的Text属性来实现。
第9题：
在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示。 以下能实现上述操作的程序段是（ ）。
A．Private Sub Hscroll1_Change（）
Text1.Text=HScroll1.Value
End Sub
B．Private Sub Hscroll1_Click（）
Text1.Text=HScroll1.Value
End Sub
C．Private Sub Hscroll1_Change（）
Text1.Text=Hscroll1.Caption
End Sub
D．Private Sub Hscroll1_Click（）
Text1.Text=Hscroll1.Caption
End Sub