请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为Label1、标题为“列表框的使用”的标签。再画一个名称为List1的列表框,列表中含有5个表项,表项内容分别为“北京”、“

admin2017-04-26  27

问题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
    (1)在名称为Form1的窗体上画一个名称为Label1、标题为“列表框的使用”的标签。再画一个名称为List1的列表框,列表中含有5个表项,表项内容分别为“北京”、“山西”、“辽宁”、“浙江”和“广东”,并且可以在列表中同时选择多个表项。运行后的窗体如图4所示。
    要求:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sitl.frm。

    (2)在名称为Form1的窗体上画一个名称为Image1的图像框,其高、宽分别为2000、3000,且不随图片大小而变化;再画两个命令按钮,标题分别是“显示图片”和“隐藏图片”,名称分别为Cmd1、Cmd2,如图5所示。需编写两个命令按钮的Click事件过程,使得当单击“显示图片”按钮时,将当前文件夹下的图片文件“图片.jpg”显示在图像框中;而如果单击“隐藏图片”按钮,则清除图像框中的图片。
    要求:程序中不得使用变量,每个事件过程中只能写二条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

选项

答案第1小题 步骤1:新建一个“标准EXE”工程。 步骤2:在窗体Form1中加入一个列表框和一个标签,并分别如下表设置它们的相关属性。 [*] 步骤3:按要求将文件保存至考生文件夹中。 第2小题 步骤1:新建一个“标准EXE”工程,如下表在窗体中画控件并设置其相关属性。 步骤2:打开代码编辑窗口,编写两个命令按钮的单击事件过程。 Private Sub Cmd1_Click() Private Sub Cmd2一Click() Image1.Picture=LoadPicture("图片jpg") Image1.Picture=LoadPicture() End Sub End Sub [*] 步骤3:按要求将文件保存至考生文件夹中。

解析 第1小题
本题的考核要求有两项:
    ①通过列表框的List属性设置题中指定的列表项;②通过设置MultiSelect属性设置列表框是否允许选择多项。
    第2小题
    ①为图像框控件指定图片有两种方法:一是在设计阶段通过Picture属性设置:二是在程序运行时通过LoadPicture()图片加载函数加载,其语法为:图片框.Picture=LoadPieture("图像文件路径"),App.Path可返回当前工程文件所在的文件夹路径,是使用相对路径的一种用法。用不带参数的LoadPicture函数为对象的Picture属性赋值将清除窗体、图片框及图像控件中的图形。②Strech(自动伸缩)属性用来设定图像框是否需要自动调整大小,以适应载入图像框中的图片的大小,值为True时表示自动调整。
    本题需分别在两个命令按钮的Click事件过程中,用LoadPicture()函数为图像框加载或清除图片。
转载请注明原文地址:https://jikaoti.com/ti/UNy0FFFM
0

最新回复(0)