在名称为Form1的窗体上画一个垂直滚动条和一个命令按钮,其名称分别为VScroll1和Command1,编写适当的事件过程。程序运行后,如果单击命令按钮,则按如下要求设置垂直滚动条的属性:
Max=窗体高度
Min=0
LargeChange=50
SmallChange=10
如果移动垂直滚动条的滚动框,则在窗体上显示滚动框的刻度值。
程序的运行情况如图所示。
要求:不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt2. vbp,窗体文件名保存为sjt2. frm。
参考答案:[解题思路] 根据题意,在命令按钮的单击事件过程中用代码动态设置垂直滚动条的属性,并且在垂直滚动条的Change事件过程中,用Print方法将垂直滚动条滑块位置的Value属性值输出到窗体上。
[操作步骤]
步骤A:建立界面,并设置控件的属性。程序中用到的控件及属性见表C。
步骤B:编写程序代码。 表C 控件 命令按钮 垂直滚动条 属性 Name Caption Name 设置值 CommandA CommandA VScrollA
参考答案:
Private Sub CommandA_Click()
VScrollA. Max = FormA. Height
VScrollA. Min = 0
VScrollA. LargeChange = E0
VScrollA. SmallChange = A0
End Sub
Private Sub VScrollA_Change()
Print VScrollA, Value
End Sub
步骤C:调试并运行程序,关闭程序后按题目要求存盘。