请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。 (1)在名为Form1的窗体上画一个标签(名称为Label1,标题为空白,BorderStyle属性为1,Visible 属性为False)、一个文本框(名称为Tex

admin2019-05-28  22

问题 请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。
    (1)在名为Form1的窗体上画一个标签(名称为Label1,标题为空白,BorderStyle属性为1,Visible 属性为False)、一个文本框(名称为Text1,Text 属性为空白)和一个命令按钮(名称为Command1,标题为“显示”),如图1-258(a)所示。然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入“计算机等级考试”,然后单击“显示”按钮,则文本框消失,并在标签内显示文本框中的内容。运行后的窗体如图1-258(b)所示。要求程序中不得使用任何变量。

    注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
    (2)在名称为Form1的窗体上画一个文本框(名称为Text1)和一个水平滚动条(名称为HScroll1),如图1-259(a)所示。在属性窗口中对滚动条设置如下属性:
    Min=500
    Max=2000
    LargeChange=50
    SmallChange=20
    编写适当的事件过程。程序运行后,如果移动滚动条上的滚动框,则可扩大或缩小文本框的高度,并使得文本框的宽度始终是其高度的1.2 倍。运行后的窗体如图1-259(b)所示。要求程序中不得使用任何变量。
    注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

选项

答案第1小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,如表2-129在窗体中画出控件并设置其相关属性。 [*] 步骤2:在代码编辑窗口,编写命令按钮的Click事件过程。 参考代码: Private Sub Command1_Click() Label1.Visible = True Label1.Caption = Text1.Text Text1.Visible = False End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,在窗体Form1中加入一个水平滚动条和一个垂直滚动条,在属性设置窗口中设置其相关属性,其属性及值如表2-130所示。 [*] 步骤2:双击窗体Form1上的水平滚动条,打开代码编辑窗口,输入以下代码: 参考代码: Private Sub HScroll1_Change() Text1.Width = HScroll1.Value * 1.2 Text1.Height = Me.HScroll1.Value End Sub 步骤3:按要求将文件保存至考生文件夹中。

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

最新回复(0)