(1)在名称为F0rml的窗体上添加一个标签(名称为Labell,标题为空白,BorderStyle属性为1,Visible属性为False)、一个文本框(名称为Textl,Text属性初始内容为空)和一个命令按钮(名称为Commandl,标题为“显示”)

admin2013-11-29  37

问题 (1)在名称为F0rml的窗体上添加一个标签(名称为Labell,标题为空白,BorderStyle属性为1,Visible属性为False)、一个文本框(名称为Textl,Text属性初始内容为空)和一个命令按钮(名称为Commandl,标题为“显示”),如图l所示。然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入“计算机等级考试”,然后单击命令按钮,则文本框消失,并在标签内显示文本框中的内容。程序运行后的窗体如图2所示。要求程序中小得使用仟何变量。

    注意:存盘时必须放在考生文件夹下,工程文件名保存为sjtl.vbp,窗体文件名保存为sjtl.frm。
(2)在名称为Forml的窗体上添加一个文本框(名称为Textl)和一个水平滚动条(名称为HScrolll),如图1所示。在属性窗¨中对滚动设置如下属性:

    编写适当的事件过程。程序运行后,通过改变滚动条上的刻度值,则可扩大或缩小文本框的高度,并使得文本框的宽度始终是其高度的1.2倍。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。
    注意:存盘时必须存放在考生文件夹下,工程文件名保存为Sjt2.vbp,窗体文件名保存为sjt2.frm。

选项

答案(1)Texl属性用于设置文本框中显示的文本。标签的Caption属性可设置其标题。Visible属性用于设置控件或菜单项在程序运行时是否可见。 步骤l:建立界面,并设置控件的属性。程序中涉及的控件及属性见表l和表2。 [*] 步骤2:编写程序代码。 Private Sub Commandl_Click() Labell.Visible=True Label.Caption=Textl.Text TextI.Visible=False End Sub 步骤:3调试并运行程序,关闭程序后按题目要求存盘。 (2)通过调整滚动条滑块的位置即可改变其Vahle属性的值,滚动条的Max和Min属性为滚动条所能表示的最大值和最小值,LargeChange属性作用于设置当单击滑块与两侧箭头间区域时Value属性值的改变量,SmallChange属性用于设置当单击滚功条两侧箭头时Value属性值的改变最。当改变滚动条滑块位置后将触发其Change事件。文本框的高度和宽度分别由其Height属性值和Width属性值设定。 步骤l:建立界面,并设置控件的属性。程序中用到的控件及属性见表3。 [*] 步骤2:编写程序代码。 Private Sub HSerolll___Change() Textl.Height:HScrolll.Value Textl.Width=1.2*Textl.Height End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

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

最新回复(0)