（ 7 ） 设窗体上有一个名称为 HScroIII 的水平滚动条 ， 要求当滚动块移动位置后 ， 能够在窗体上输出移动的距离 （ 即新位置与原位置的刻度值之差 ， 向右移动为正数 ， 向左移动为负数 ） 。 下面是可实现此功能的程序，请填写。

D．im [7] As Integer

Private Sub Form_Load()

pos=HScroIII.Value

E．nd Sub

Private Sub HScroIII_Change()

Print [8] -pos

pos=HScroIII.Value

E．nd Sub

[主观题]设窗体有上一个名称为HScroll1的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填空。 Dim (7) AsInteger Private Sub Form_Load Pos＝HScrol1．Value End Sub Private Sub HScroll1_Change Print (8) - pos Pos＝HScrolll．Value End Sub

[单选题]窗体上有一个名称为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

[单选题]设窗体上有一个名称为HSl的水平滚动条，如果执行了语句：H．SI．Value=(HSl．Max—HSI．Min)／2+HSl．Min则：A．滚动块处于最左端B．滚动块处于最右端C．滚动块处于中间位置D．滚动块可能处于任何位置，具体位置取决于Max、Min属性的值

[单选题]窗体上有一个名称为VScroll1的滚动条，当用鼠标拖动滚动条中的滚动块时，触发的事件是（　　）。A.ClickB.KeyDownC.DragDrop

[试题]在名为Form1的窗体上绘制一个垂直滚动条(名称为VS1)和一个水平滚动条(名称为HS1)。在属性窗口中对两个滚动条设置如下属性：Min 2000Max 8000LargeChange 500SmallChange 50编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小窗体。运行后的窗体如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise22.vbp，窗体文件名为exeeise22.frm。

[单选题]设窗体上有一个滚动条，要求单击滚动条右端的(图片)按钮一次，滚动块移动一定的刻度值，决定此刻度值的属性是______。A．MaxB．MinC．SmallChangeD．LargeChange

[单选题]设窗体上有一个滚动条，要求单击滚动条右端的按钮一次，滚动块移动一定的刻度值，决定此刻度值属性的是A． ） MaxB． ） MinC． ） SmallChangeD． ） LargeChang

[单选题]设窗体上有1个滚动条,要求单击滚动条右端的◢按钮一次,滚动条移动一定的刻度值,决定此刻度的属性是（ ）。A．MaxB．MinC．SmallChangeD．）LargeChang

[单选题]（15）设窗体上有一个名称为HS1的水平滚动条，如果执行了语句：H．S 1．Value=(HS 1．Max-HS l .Min）／2＋HS1．Min则：A．）滚动块处于最左端B．）滚动块处于最右端C．) 滚动块处于中间位置D．) 滚动块可能处于任何位置，具体位置取决于Max、Min属性的值

[单选题]（ 21 ） 设窗体上有 1 个水平滚动条 ， 已经通过属性窗口把它的 Max 属性设置为 1 ， Min 属性设置为 100。下面叙述正确的是A． ）程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就增加B． ）程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就减少C． ）由于滚动条的 Max 属性值下于 Min 属性值，程序会出错D． ）由于滚动条的 Max 属性值下于 Min 属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动