(1)在名称为Form1的窗体上画一个命令按钮,名称为commandl,标题为“缩小一半”。编写事件过程,程序运行后,如果单击Commandl命令按钮,则使Comrnandl按钮的长度和宽度各缩小到原来的一半。要求不得使用任何变量。程序运行时的窗体界面如图

admin2009-03-26  96

问题 (1)在名称为Form1的窗体上画一个命令按钮,名称为commandl,标题为“缩小一半”。编写事件过程,程序运行后,如果单击Commandl命令按钮,则使Comrnandl按钮的长度和宽度各缩小到原来的一半。要求不得使用任何变量。程序运行时的窗体界面如图14—1所示。

    注意:保存时必须存放在考生文件夹下,窗体文件名为sjl.frm,工程文件名为sj1.vbp。
    (2)在名称为Form1的窗体上画一个命令按钮和一个水平滚动条,其名称分别为Commandl和HScrolll。命令按钮的标题为“滚动条变长”。编写适当的事件过程,使得程序运行后,如果单击Commandl命令按钮,则使HScrolll水平滚动条的Width属性减小1000,Min属性为0,LargeChange的属性为100,SmallChange的属性为20,且Commandl不可用,移动滚动条,在窗体上显示滚动条的位置值。不得使用任何变量。程序运行时的窗体界面如图14—2所示。
    注意:保存时必须存放在考生文件夹下,窗体文件名为sj2.frm,工程文件名为sj2.vbp。

选项

答案(1)根据题意,新建“标准EXE”工程,将一个Command添加到窗体中,其名称为Commandl、Caption属性为“缩小一半”。双击Commandl进入代码窗口,编写如下代码: Private Sub Commandl_Click() Commandl.Width=Commandl.Width\2 ’宽度变为原来的一半 Commandl.Height=Commandl.Height\2’长度变为原来的一半 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)根据题意,新建“标准EXE”工程,将一个水平滚动条控件和一个命令按钮添加到窗体中,水平滚动条的名称为HScrolll,命令按钮的名称为Commandl、Caption属性为“滚动条变长”。双击Command,进入代码窗口.编写如下代码: Private Sub Commandl_Click() HScrolll.Width=Forml.HScrolll.Width-1000’HScroll的宽度变为窗体宽度减1000 HScrolll.LargeChange=100 HScrolll.SmallChange=20 HScrolll.Min=0 Command1.Enabled=False’Commandl变为不可用 End Sub Private Sub HScrolll_Change() Forml.Cls’清空窗体显示 Print HScrolll.Value’显示滚动条位置值 End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://jikaoti.com/ti/ALq0FFFM
0

最新回复(0)