在名为Form1的窗体上绘制一个垂直滚动条(名称为VS1)和一个水平滚动条(名称

为HS1)。在属性窗口中对两个滚动条设置如下属性：

Min 2000

Max 8000

LargeChange 500

SmallChange 50

编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小窗体。运行后的窗体如下图所示。

注意：

程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise22.vbp，窗体文件名为exeeise22.frm。

[试题]在名为Form1的窗体上绘制一个水平滚动条，其名称为HS1，设置滚动框Min属性为 1000，Max属性为2000，LargeChange属性为100，SmailChange属性为2；然后再绘制一个文本框，其名称为Text1，初始内容为空白。编写适当的事件过程，使程序运行后，移动滚动框，则在文本框中显示滚动框的当前位置。程序的运行情况如下图所示。注意：不得使用任何变量：文件必须存放在考生文件夹中，工程文件名为execise98.vbp，窗体文件名为execise98.frm。

[试题]在名为Form1的窗体上绘制一个列表框，其名称为List1；一个水平滚动条，其名称为 HS1，smallChange属性为2，LargeChange属性为10，Min属性为0，Max属性为100。编写适当的事件过程，使程序运行后，若把滚动框滚到某个位置，然后单击窗体，则在列表框中添加一个项目，其内容是“××”，其中××是滚动框所在的位置，如下图所示。注意：程序中不要使用变量：文件必须存放在考生文件夹中，工程文件名为execise97.vbp，窗体文件名为execise97.frm。

[试题]在名为Form1的窗体上绘制一个名为HS1的水平滚动条，请在属性窗口中设置它的属性值，满足以下要求：它的最大刻度值为200，最小刻度值为100，在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面绘制两个名称分别为Lab1和Lab2的标签，并分别显示100和200，运行时的窗体如下图所示。注意：文件必须存放在考生文件夹中，工程文件名为execise113.vbp，窗体文件名为 execiSe113.frm。

[试题]（ 7 ） 设窗体上有一个名称为 HScroIII 的水平滚动条 ， 要求当滚动块移动位置后 ， 能够在窗体上输出移动的距离 （ 即新位置与原位置的刻度值之差 ， 向右移动为正数 ， 向左移动为负数 ） 。 下面是可实现此功能的程序，请填写。D．im [7] As IntegerPrivate Sub Form_Load()pos=HScroIII.ValueE．nd SubPrivate Sub HScroIII_Change()Print [8] -pospos=HScroIII.ValueE

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

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

[单选题]在窗体上画一个名称为Text1的文本框和名称为HScrolll的水平滚动条(Max属性为 10，Min属性为0)，然后画两个标题分别为“慢”和“快”的标签。程序运行后，移动滚动块，如果滚动块位于滚动条的正中间位置，则在文本框中显示“适中”；如果滚动块位于滚动条的正中间位置的左侧，则在文本框中显示“慢”；如果滚动块位于滚动条的正中间位置的右侧，则在文本框中显示“快”，如下图所示。请填空。Private Sub HScolll ______()If (HScrolll.Value = 50) The

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

[单选题]在窗体上画一个名称为Text1的文体框，然后画一个名称为HScrolll的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示。以下能实现上述操作的程序段是A．Private Sub Hscroll1_Change( ) Text1．Text=Hscroll1．Value End SubB．Private Sub Hscroll1_Click( ) Text1．Text=Hscroll1．Value End SubC．Private

[单选题]在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示。 以下能实现上述操作的程序段是（ ）。A．Private Sub Hscroll1_Change（）Text1.Text=HScroll1.ValueE．nd SubB．Private Sub Hscroll1_Click（）Text1.Text=HScroll1.ValueE．nd SubC．Private