Question

vb写代码的问题~ 谢谢啦~

4、如右图所示，将滚动条的范围设置为0~1000，在文本框中输入一个数后按下“移动”按钮。如果文本框中是正数则滚动条向右移动相应刻度，但若超过最大刻度则MsgBox提示“输入值太大”； 如果文本框中是负数则滚动条向左移，超过最小刻度则不再动，并MsgBox提示。
【提示】假定滚动条当前位置的Value值为200，在文本框输入300，单击“移动”按钮，则滚动条的值应变为500；再输入-800，再单击“移动”按钮，则滚动条的值应变为0，并用MsgBox提示“已移动到最左边”.

Answer 1

Private Sub Form_Load()
HScroll1.Max = 2000
HScroll1.Value = 200
Text1 = ""
End Sub

Private Sub Command1_Click()
Dim n As Integer, i As Integer
n = Val(Text1.Text)
i = Sgn(n)
Select Case i
Case 1
HScroll1.Value = HScroll1.Value + n
If HScroll1.Value > 1000 Then
MsgBox ("输入的值超出范围")
End If
Case -1
HScroll1.Value = HScroll1.Value + n
If HScroll1.Value < 0 Then
MsgBox ("已到最左边")
End If
Case 0
HScroll1.Value = HScroll1.Value
End Select
End Sub