(1)在名称为Forml的窗体上画两个文本框和两个单选按钮。文本框的名称分别为Textl和Text2,初始时内容为Text1和Text2。单选按钮的名称分别为Optionl、Option2,标题分别为“文本框Textl可用”和“文本框Text2可用”。编写

admin2010-07-13  13

问题 (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所示。

    注意:存盘时必须存放在考生文件夹下,工程文件名为sj2.vbp,窗体文件名为sj2.frm。

选项

答案(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 单击[*]按钮运行程序,并按要求保存。

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

最新回复(0)