问答题
在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即'号)，但不能修改其他部分。编写程序使程序运行时满足下列的条件。存盘时不得改变文件名和文件夹。
本题描述如下：在窗体上有一个名称为HScroll1的水平滚动条(Min为400，Max为2000)和3个名称分别为Command1、Command2和Command3，标题分别为“减200”、“显示”和“加200”的命令按钮。程序运行后，如果单击“减200”命令按钮，则滚动块向左滚动200单位；如果单击“显示”命令按钮，则显示当前滚动条的值；如果单击“加200”命令按钮，则滚动块向右滚动200单位。程序运行时效果如下图所示。
本题描述如下：在窗体上有一个名称为HScroll1的水平滚动条(Min为400，Max为2000)和3个名称分别为Command1、Command2和Command3，标题分别为“减200”、“显示”和“加200”的命令按钮。程序运行后，如果单击“减200”命令按钮，则滚动块向左滚动200单位；如果单击“显示”命令按钮，则显示当前滚动条的值；如果单击“加200”命令按钮，则滚动块向右滚动200单位。程序运行时效果如下图所示。
【正确答案】滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置，即可改变其Value属性的值。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围，在程序中改变Value属性的值。滚动条滑块会随之移动到相应位置。
根据题意，将一个水平滚动条控件和3个命令按钮添加到窗体中，水平滚动条的名称为HScroll1、Min属性为400、Max属性为2000，命令按钮的名称分别为Command1、Command2和Command3，Caption属性分别为“减200”、“显示”和“加200”。双击Command1进入代码窗口，编写如下代码：
Private Sub Command1_Click()
If HScroll1.Value-200＜HScroll1.Min Then '如果移动后小于最小值
HScroll1.Value=HScroll1.Min '则HScroll1的值为最小值
Else '否则
HScroll1.Value=HScroll1.Value-200 'HScroll1的值减200
End If
End Sub
Private Sub Command2_Click()
Cls '先清空窗体
Print HScroll1.Value '在窗口上显示HScroll1的当前值
End Sub
Private Sub Command3_Click()
If HScroll1.Value+200＞HScroll1.Max Then '如果移动后大于最大值
HSeroll1.Value=HScroll1.Max '则HScroll1的值为最大值
Else '否则
HSeroll1.Value=HSeroll1.Value+200 'HScroll1的值加200
End If
End Sub
单击
根据题意，将一个水平滚动条控件和3个命令按钮添加到窗体中，水平滚动条的名称为HScroll1、Min属性为400、Max属性为2000，命令按钮的名称分别为Command1、Command2和Command3，Caption属性分别为“减200”、“显示”和“加200”。双击Command1进入代码窗口，编写如下代码：
Private Sub Command1_Click()
If HScroll1.Value-200＜HScroll1.Min Then '如果移动后小于最小值
HScroll1.Value=HScroll1.Min '则HScroll1的值为最小值
Else '否则
HScroll1.Value=HScroll1.Value-200 'HScroll1的值减200
End If
End Sub
Private Sub Command2_Click()
Cls '先清空窗体
Print HScroll1.Value '在窗口上显示HScroll1的当前值
End Sub
Private Sub Command3_Click()
If HScroll1.Value+200＞HScroll1.Max Then '如果移动后大于最大值
HSeroll1.Value=HScroll1.Max '则HScroll1的值为最大值
Else '否则
HSeroll1.Value=HSeroll1.Value+200 'HScroll1的值加200
End If
End Sub
单击
【答案解析】