(1)在名为Forml的窗体上绘制两个标签(名称分别为Labell和Label2,标题分别为“长”和“宽”)、两个文本框(名称分别为Text1和Text2,Text属性均为空白)和一个命令按钮(名称为Commandl,标题为“输入”)。编写命令按钮的Cli

admin2009-03-26  35

问题 (1)在名为Forml的窗体上绘制两个标签(名称分别为Labell和Label2,标题分别为“长”和“宽”)、两个文本框(名称分别为Text1和Text2,Text属性均为空白)和一个命令按钮(名称为Commandl,标题为“输入”)。编写命令按钮的Click事件过程,使程序运行后,若单击命令按钮,则先后显示两个“输入”对话框,在两个“输入”对话框中分别输入长和宽,并分别在两个文本框中显示出来,运行后的窗体如图41—1所示。

注意:程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为s.j1.vbp,窗体文件名为sjl.frm。
    (2)在名为Form1的窗体上绘制一个标签(名称为Labell,标题为“输入”)、一个文本框(名称为Textl,Text:属性为空白)和一个命令按钮(名称为Commandl,标题为“显示”)。请编写命令按钮的Click事件过程,使程序运行后,在文本框中输入内容,然后单击命令按钮,则标签和文本框消失,并在窗体上显示文本框中的内容。运行后的窗体如图41—2和图4l一3所示。

注意:要求程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为sj2.Vbp,窗体文件名为sj2.frm。

选项

答案(1)根据题意,新建“标准EXE”工程,在窗体上添加两个标签,名称分别为Labell和Label2、Caption属性分别为“长”和“宽”,两个文本框,名称分别为Textl和Text2、Text属性为空,一个命令按钮,名称为Commandl,Caption属性为“输入”。设计完成后,双击Commandl进入代码窗口,编写如下代码: Option Explicit Private Sub Commandl_Click() Textl.Text=InputBox("请输入长") Text2.Text=InputBox("请输入宽") End Sub 单击[*]按钮运行程序,并按要求保存。 (2)根据题意,新建“标准EXE”工程,在窗体上添加一个标签,其名称为I.abell,标题为“输入”,一个文本框,其名称为 Textl、Text属性为空,一个命令按钮,其名称为Commandl、标题为“显示”。窗体设计完成后,双击Commandl命令按钮,编写如下代码: Private Sub Commandl Click() Labell.Visible=False ’隐藏Labell Textl.Visible=False ’隐藏Textl Print Textl ’将Textl上的内容显示在窗体上 End Sub 单击[*]按钮运行程序,并按要求保存。

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

最新回复(0)