有一个工程文件ylc6.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，则滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”，如图18所示。
题目中提供的“移动”按钮控件Command1的Click事件的源代码如下：
Private Sub Command1_Click()
Dim nCount As Integer
nCount=CInt(Text1.Text)
If(nCount＞=)Then
HScroll1.Value=HScroll1.Max
Else
If (nCount＜=HScroll1.Min) Then
=HScroll1.Min
MsgBox("文本框中的数字太小")
Else
HScroll1.Value=
End If
End If
End Sub
注意：不能修改程序中的其他部分，不能修改控件的属性，最后把修改后的程序以原来的文件名存盘。存盘时必须存放在考生文件夹下。
参考答案：操作步骤
(1)在Visual Basic集成环境中选择“文件”→“打开工程”命令，在对话框中选择 ylc6.vbp工程文件，单击“确定”按钮打开。
(2)选择工具箱中的TextBox控件，在窗口上拖动，创建该控件命名为Text1，设置属性为空。
(3)选择工具箱中的CommandButton控件，在窗口中拖动并画出该控件。在属性编辑框命名为Command1，标题设置为“移动”。
(4)选择工具箱中的HScrollBar控件，在窗口上拖动创建该控件，命名为HScroll1，在属性窗口根据题目的要求设置Value属性值为0。
(5)题目要求在移动到最左或最右边时，停止移动并显示提示信息。因此，在属性中设置它的最大最小值，即设置Max属性为256，设置Min属性的值为-256。
2．行为编码
Cormnand1的Click事件，代码如下：
Private Sub Command1_Click()
Dim nCount As Integer
nCount=CInt(Text1. Text)
’当前值与最大值比较
If (nCount＞=HScroll1.Max) Then
HScroll1.Value=HScroll1.Max
’信息提示框提示
MsgBox("文本框中的数字太大")
Else
’当前值与最小值比较
If (nCount＜=HScroll1.Min) Then
HScroll1.Value=HScrell1.Min
’信息提示框提示
MsgBox("文本框中的数字太小")
Else
’把当前值赋给滚动条
HScroll1.Value=nCount
End If
End If
End Sub
3．存盘保存
执行“文件”→“保存工程”命令，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。
解析： (1)本题考查考生对HScrollBar相关属性的设置，包括对HScrollBar控件的最大、最小值的设置，滚动设置，以及判断语句的运用和实现显示用户提示信息。
(2)注意HScrollBar控件的最大、最小值设置，滚动条的值设置，CommandButton控件的Click事件处理的功能。
(3)在每次单击“移动”按钮后，将文本框中的数值与HScrollBar的Max属性值和Min属性值进行比较。若超出HScrollBar的值域范围则弹出太大或太小提示信息，否则移动滚动条。