(1)在名称为Form1的窗体上画一个命令按钮，名称为commandl，标题为“缩小一半”。编写事件过程，程序运行后，如果单击Commandl命令按钮，则使Comrnandl按钮的长度和宽度各缩小到原来的一半。要求不得使用任何变量。程序运行时的窗体界面如图14—1所示。
【正确答案】正确答案：(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 单击
按钮运行程序，并按要求保存。 (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 单击【答案解析】