（15）设窗体上有一个名称为HS1的水平滚动条，如果执行了语句：HS 1．Value=（HS 1．Max-HS l .Min）／2＋H

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

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

Min 2000

Max 8000

LargeChange 500

SmallChange 50

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

注意：

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

设窗体上有一个名称为HSI的水平滚动条，如果执行了语句：HS1．Value=(HS1．Max·HS1．Min)2+HS1．Min，则（）。

A.滚动块处于最左端

B.滚动块处于最右端

C.滚动块处于中间位置

D.滚动块可能处于任何位置。具体位置取决于Max、Min属性的值

，名称为“Command1”，标题为“显示位置”。编写一个事件过程，要求程序运行后将滚动块移到某个位置后，如果单击“显示”按钮，则在窗体上显示滚动框当前所在位置的值。程序中不得使用任何变量。程序运行结果如图11所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为ylc3.vbp，窗体文件名为ylc3.frm。

在名为Form1的窗体上绘制一个文本框(名称为Text1，Text属性为“京”，Font属性为“宋体”)和一个水平滚动条(名称为HS1)。在属性窗口中对滚动条设置如下属性：

Min 10

Max 100

LargeChange 5

SmallChange 2

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

注意：

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

A.滚动块处于最左端

B.滚动块处于最右端

C.滚动块处于中间位置

D.滚动块可能处于任何位置，具体位置取决于Max、Min属性的值

在窗体上画1个水平滚动条(名称为HS1，最小值为0，最大值为80)和3个命令按钮(名称分别为C1、C2、C3，标题分别为“左端”、“居中”和“右端”)，然后编写适当的事件过程。程序运行后，如果单击“左端”命令按钮，则滚动框位于滚动条最左端处；如果单击“居中”命令按钮，则滚动框位于滚动条中间；如果单击“右端”命令按钮，则滚动框位于滚动条最右端处。程序的运行情况如图1—1所示(单击“左端”命令按钮)。

存盘时，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

2．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

在窗体上画一个命令按钮，其名称为C1，标题为“清除”，编写适当的事件过程。程序运行后，如果单击命令按钮，则清除窗体的标题，程序运行结果如图1—2所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sit2.vbp，窗体文件名为sjt2.frm。

出移动的距离 （即新位置与原位置的刻度值之差 ， 向右移动为正数 ， 向左移动为负数 ） 。 下面是可实现此功能的程序，请填写。

Dim [7] As Integer

Private Sub Form_Load()

pos=HScroIII.Value

End Sub

Private Sub HScroIII_Change()

Print [8] -pos

pos=HScroIII.Value

End Sub

A.A.k

B.B.Checkl.Caption

C.C.Checkl（k）

D.D.Checkl（Index）.Caption

A.A.在最左边

B.B.在最右边

C.C.在中间

D.D.在中间偏左的位置

一个水平滚动条(名称为HS1)，一个文本框(名称为Text1，初始内容为0)，一个命令按钮(名称为Cmd1，标题为Move)。它的功能是在文本框中输入一个整数，单击Move按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且在文本框中显示TooBig；如果输入的是负数，滚动条中的滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且在文本框中显示TooSmall，如下图所示。

要求：

去掉程序中的注释符(“'”，把程序中的问号“？”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的属性。最后把修改过的程序按原名保存。