注意：下面出现的“”均为c:\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体中建立一个名称为Cmd1，标题为“显示”的命令按钮，如图2-1所示。要求程序运行后，如果单击“显示”按钮，则执行语句Form1.Print“显示”：如果单击窗体，则执行语句 Form1.Cls。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。
(2)在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。要求程序运行后，每次移动滚动框时，都执行语句Forml．Print HSl．Value，如图2-2所示(程序中不能使用任何变量)。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。
参考答案：在窗体上建立好控件后，先设置控件属性，再编写事件过程。命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件。在窗体上打印信息用Print方法，清除窗体上的打印信息使用Cls方法，这两条语句在题目中已经给出，只要将其放入适当的事件过程中即可。解题步骤：
第一步：建立界面并设置控件属性。
本题只用到了1个命令按钮，将其Caption属性设置为“显示”，Name属性设置为Cmd1。
第二步：编写代码。
参考代码：
Private Sub Cmd1_Click()
Form1.Print“显示”
End Sub
Private Sub Form_Click()
Form1.Cls
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。
滚动条表示的最大值由Max属性设置，最小值由Min属性设置，滚动条的当前值由Value属性设置；当滚动框的位置改变时，触发Change事件。清除窗体上原来的显示的值可以用Cls方法来实现。解题步骤：
第一步：建立界面并没置控件属性。本程序中用到1个滚动框，将其名称即Name属性设置为HS1，Min和Max属性属性分别设置为0和100。
第二步：编写程序代码。
参考代码：
Private Sub HS1_Change()
Cls
Form1.Print HS1
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
答案考生文件夹