问答题

有一个工程文件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
注意：不能修改程序中的其他部分，不能修改控件的属性，最后把修改后的程序以原来的文件名存盘。存盘时必须存放在考生文件夹下。