[问答题] 有一个工程文件ylc6.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并

11 查阅

[问答题] 有一个工程文件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 Sub

注意：不能修改程序中的其他部分，不能修改控件的属性，最后把修改后的程序以原来的文件名存盘。存盘时必须存放在考生文件夹下。

参考答案:

操作步骤 (1)在Visual Basic集成环境中选择“文件”→“打开工程”命令，在对话框中选择 ylc6.vbp工程文件，单击“确定”按钮打开。 (2)选择工具箱中的TextBox控件，在窗口上拖动，创建该控件命名为Text1，设置属性为空。 (3)选择工具箱中的CommandButton控件，在窗口中拖动并画出该控件。在属性编辑框命名为Command1，标题设置为“移动”。 (4)选择工具箱中的HScrollBar控件，在窗口上拖动创建该控件，命名为HScroll1，在属性窗口根据题目的要求

(1)本题考查考生对HScrollBar相关属性的设置，包括对HScrollBar控件的最大、最小值的设置，滚动设置，以及判断语句的运用和实现显示用户提示信息。 (2)注意HScrollBar控件的最大、最小值设置，滚动条的值设置，CommandButton控件的Click事件处理的功能。 (3)在每次单击“移动”按钮后，将文本框中的数值与HScrollBar的Max属性值和Min属性值进行比较。若超出HScrollBar的值域范围则弹出太大或太小提示信息，否则移动滚动条。

计算机考试