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

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

admin2009-03-26  89
问题 (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://kaotiyun.com/show/8V1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)