请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上画两个文本框,其名称分别为Textl和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。程序运行后,如果单击窗体,则

admin2016-12-29  35

问题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
    (1)在名称为Forml的窗体上画两个文本框,其名称分别为Textl和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。程序运行后,如果单击窗体,则Text1隐藏,Text2显示,如图2-6(a)所示;如果双击窗体,则Textl显示,Text2隐藏,如图2.6(b)所示。
    注意:程序中不得使用变量。
    存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbo,窗体文件名为sit1.frm。

    (2)在名称为Forml的窗体上画一个文本框,其名称为Text1,初始内容为窄白;再画一个水平滚动条,其名称为HS1,SmallChange属性为4,LargeChange属性为10,Min属性为0,Max属性为200,编写适当的事件过程。程序运行后,如果在文本框内输入一个数值(0~200),然后单击窗体,则把滚动条的滚动框移到相应的位置,如图2.7所示。
    注意:程序中不要使用变量;存盘时必须存放在考生文件夹下,工程文件名为sit2.vbp,窗体文件名为sit2.frm。

选项

答案第1小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,住窗体中加入两个文本框并设置它们的相关属性,属性及其值如表3—3所示。 [*] 步骤2:打开代码编辑窗口,输入如下代码: 参考代码: Private Sub Form—Click() Textl.ViSible=False Text2.ViSible=True End Sub Private Sub Form—DblClick() Textl.ViSible=True Text2.ViSible=False End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:新建“标准EXE”工程,往窗体Forml中加入一个文本框和一个水平滚动条,分别设置它们的相关属性,属性及其值如表3-4所示。 [*] 步骤2:打开代码编辑窗口,输入如下代码: 参考代码: Private Sub Form—Click() HSl.Value=Val(Texti.Text) End Sub 步骤3:按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://kaotiyun.com/show/pnGp777K
0

最新回复(0)