(1)在名称为Form1,标题为"滚动条属性设置"的窗体上画1个名称为VScroll1的垂直滚动条,设置属性,使得滚动块在最上面时,其位置值为10;滚动块在最下面时,其位置值为30;窗体刚显示时,滚动...
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
(2)在名称为Form1的窗体上,画1个名称为Label1的标签,其标题为"等级考试",显示为宋体10号字,且能根据标题内容自动调整标签的大小,并有凹陷效果,如图2所示。再画1个名称为Timer1的计时器控件,通过属性窗口设置有关属性,使其不可用,时间间隔为1秒。
要求:编写适当的事件过程,使得程序运行时,单击Label1标签,则每隔1秒,Label1中所显示的内容在原有基础上增大1个字号;单击窗体,Label1中的内容停止增大。
注意:要求程序中不得使用变量,事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
参考解析: (1)【解题思路】垂直滚动条的最大刻度值和最小刻度值分别由Max和Min属性设置, 垂直滚动条位置值由Value属性设置。
【操作步骤】
步骤1:新建一个窗体,按照题目要求添加一个垂直滚动条控件,并按表在属性窗口中设置相应属性。
控件 垂直滚动条 窗体
属性 Max Min Value Caption
设置值 30 10 20 滚动条属性设置
步骤2:调试并运行程序,关闭程序后按题目要求存盘。
(2)【解题思路】Label标签字体由Font属性设置,内容由Caption属性设置,自动调整属性由AutoSize设置,凹陷效果由BorderStyle设置,计时器控件不可用由Enabled属性设置,时间间隔属性由Interval属性设置。
【操作步骤】
步骤1:新建一个窗体,按照题目要求添加Label控件和Timer控件,并按表在属性窗口中设置相应属性。
控件 Label控件 Timer控件
属性 Caption Font AutoSize BorderStyle Enabled Interval
设置值 等级考试 宋体,10号 true 1 false 1000
步骤2:打开代码编辑窗口,在指定位置编写如下代码。
参考答案
Private Sub Form_Click()
Timer1.Enabled = False '设置计时器控件的Enabled属性使其不可用
End Sub
Private Sub Label1_Click()
Timer1.Enabled = True '单击Label1时使控件可用
End Sub
Private Sub Timer1_Timer()
Label1.Font.Size = Label1.Font.Size + 1 '字号增大1个
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。