请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上画一个文本框,名称为Text1,内容为“VB程序设计”;再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“扩

admin2016-12-29  66

问题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
    (1)在名称为Forml的窗体上画一个文本框,名称为Text1,内容为“VB程序设计”;再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“扩大”和“缩小”,如图2.1所示,编写适当的事件过程。程序运行后,每单击Commandl命令按钮一次,文本框中文本的字体扩大1.2倍;每单击Command2单选按钮一次,文本框中文本的字体缩小1.2倍。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sit1.frm。

    (2)在名称为Forml的窗体上画一个列表框,其名称为List1,通过属性窗口向列表框中输入9个项目,分别为10、20、30、40、50、60、70、80、90;画一个文本框,其名称为Textl,初始内容为空白;再画一个水平滚动条,其名称为HScrolll,Min属性和Max属性分别为0和100,如图2.2(a)所示,编写适当的事件过程。程序运行后,如果单击列表框中的某个项目,则在文本框中显示该项目内容,并把滚动条的滚动框移到相应的位置,如图2—2(b)所示。要求:不得使用任何变量。
    注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sit2.frm。

选项

答案第1小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,在窗体Forml中加入一个文本框和两个命令按钮,其相关属性设置如表3—1所示。 [*] 步骤2:打开代码编辑窗口,输入如下代码: 参考代码: Private Sub Commandl—Click() Textl.FontSize=Textl.FontSize * 1.2 End Sub Private Sub Command2一Click() Textl.FontSize=Textl.FontsiZe/1.2 End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,在窗体上画一个列表框、一个文本框和一个水平滚动条,按表3—2设置其相关属性。 [*] 步骤2:在打开的代码编辑窗口中,编写列表框的单击事件代码: 参考代码: Private Sub Listl一C1ick() Textl.Text=LiStl.Text HSCroll1.ValUe=Val(LiStl.Text) End Sub 步骤3:按要求将文件保存至考生文件夹中。

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

最新回复(0)