(1)在名称为Forml的窗体上画两个文本框和两个单选按钮。文本框的名称分别为Textl和Text2，初始时内容为Text1和Text2。单选按钮的名称分别为Optionl、Option2，标题分别为“文本框Textl可用”和“文本框Text2可用”。编写适当的事件过程，使得程序运行时，初始状态单选按钮都未被选中，如果单击Optionl按钮，则文本框Text1可用，Text2不可用；如果单击Option2按钮。则文本框Text 2可用，Text 1不可用。程序中不得使用任何变量。程序运行时的窗体界面如图26—1所示。 注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为sjl．vbp与sjl．frm。 (2)在名称为Forml的窗体上画一条直线，名称为Linel。同时，在窗体上画一个水平滚动条，名称为HScrolll。编写适当的事件过程，程序运行后，根据水平滚动条的长度改变Linel的长度。不得使用任何变量。程序运行时的窗体界面如图26—2所示。
【正确答案】正确答案：(1)根据题意，新建“标准EXE”工程，将两个Text控件和两个Option控件添加到窗体上，Text的名称为Textl、Text2、Text属性分别为“Textl”和“Text2”，Option的名称分别为Optionl、Option2、Caption属性分别为“文本框Textl可用”和“文本框Text2可用”，其中Optionl的Value属性为False，Text2的Enable属性为False。双击Option进入代码窗口，编写如下代码： Private Sub Optionl_Click() Textl．Enabled=True'选中Optionl，则Textl可用 Text2．Enabled=False'Text2不可用 End Sub Private Sub Option2_Click() Textl．Enabled=False Text2．Enabled=True End Sub 单击
按钮运行程序，并按要求保存。 (2)根据题意，新建“标准EXE”工程，将一个HScrollBar控件添加到窗体上，其名称为HScrolll，Max属性为2000，Min属性为400，然后再用Line控件画一条直线，X2--X1的值为400，Bm'derWidth属性为4。双击HScrolll，进入代码窗口，编写如下代码： Private Sub HScrolll_Change() Linel．X2=Linel．X1+HScrolll．Value'通过HScrolll来改变Line的长度 End Sub 单击
按钮运行程序，并按要求保存。 (2)根据题意，新建“标准EXE”工程，将一个HScrollBar控件添加到窗体上，其名称为HScrolll，Max属性为2000，Min属性为400，然后再用Line控件画一条直线，X2--X1的值为400，Bm'derWidth属性为4。双击HScrolll，进入代码窗口，编写如下代码： Private Sub HScrolll_Change() Linel．X2=Linel．X1+HScrolll．Value'通过HScrolll来改变Line的长度 End Sub 单击【答案解析】