[问答题] 在考生文件夹下有工程文件si5．vbp及窗体文件sj5．frm，该程序是不完整的。窗体Forml中有一命令按钮与一个水平滚动条。命令按钮的名称为Command1，标题为“移动”；水平滚动条

[问答题] 在考生文件夹下有工程文件si5．vbp及窗体文件sj5．frm，该程序是不完整的。窗体Forml中有一命令按钮与一个水平滚动条。命令按钮的名称为Command1，标题为“移动”；水平滚动条的名称为HScroll1。单击“移动”按钮后，在弹出的对话框中输人数值。输入一个整数后，单击“移动”，滚动条中的滚动块移动到指定的刻度，如果超过了滚动条的最大刻度，则不再移动，并且在窗体上显示“输入的数值太大”，如果超过了滚动条的最小刻度，则不再移动，并且在窗体上显示“输入的数值太小”，如图1—5所示。

注意：请在有“”的地方填入正确内容，然后删除“”及代码前的所有注释符(即“¨’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

参考答案：

本题主要考查滚动条的属性和IF语句的使用。 　　滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其Value属性的值。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围，在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。 　　InputBox()函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类型。在代码窗口编写如下代码： 　　Private Sub Command1_Click() 　　 Dim a As Integer 　　 a=Val(InputBox("请输入数值")) 　　 ’通过输入对话框输入数值 　　 If a>HScroll1．Max Then 　　’如果数值大于滚动条的最大值 　　 C1s 　　 Print"输入的数值太大" 　　 ’在窗件上显示“输入的数值太大” 　　Elself a　　’如果数值小于滚动条的最小值 　　 Cls 　　 Print"输入的数值太小" 　　 ’在窗件上显示“输入的数值太小” 　　Else 　　 C1s 　　 HScroll1．Value=a 　　 ’如果在范围内，则将滚动条移动指定的距离 　　End If 　　End Sub 　　单击 按钮运行程序，并按要求保存。

问题解析:

解析无