2. 计算机
  3. 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上建立一个名称为cmdArray的命令按钮数组，含3个命令按钮，它们的Index属性分别为0、1、2，标题依次为“是”、“否”、“取消”，每个按钮

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上建立一个名称为cmdArray的命令按钮数组，含3个命令按钮，它们的Index属性分别为0、1、2，标题依次为“是”、“否”、“取消”，每个按钮

admin2019-05-28  16
问题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个名称为cmdArray的命令按钮数组，含3个命令按钮，它们的Index属性分别为0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为400、900。窗体的标题为“按钮示例”。运行后的窗体如图3—62所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj1．vbp，窗体文件名为vbsj1．frm。
(2)在名称为Form1的窗体上画一个名称为Drv1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，名称为Label1、标题为“文件名”的标签和名称为Label2、BorderStyle为1的标签。窗体的标题设置为“文件系统控件”。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在Label2中，如图3—63所示。

注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj2．vbp，窗体文件名为vbsj2．frm。
选项
答案第1小题 步骤1：新建一个“标准EXE”工程，单击工具箱中的CommandBuaon控件图标，在窗体Form1上拉出一个命令按钮，在属性设置窗口中该单选按钮名称设置为cmdArray，Width属性值设置为900，Height属性值设置为400。 步骤2：选中cmdArray控件，选择[编辑]→[复制]命令，然后选择[编辑]→[粘贴]命令，在弹出的询问是否建立控件数组的对话框中，选择“是”按钮，如图4—1所示，则可以建立cmdArray控件数组的第2个元素。再次选择[编辑]→[粘贴]命令，建立cmdArray控件数组的第3个元素。 [*] 步骤3：依次选中cmdArray控件数组中各个元素，设置它们的相关属性，属性及其值如表4—38所示。 [*] 步骤4：按要求将文件保存至考生文件夹中。 第2小题 步骤1：新建“标准EXE” 工程，往窗体Form1中加入驱动器列表框、目录列表框控件、文件列表框控件各一个以及两个标签，分别设置它们的相关属性，属性及其值如表4—39所示。 [*] 步骤2：打开代码编辑窗口，输入如下代码。 参考代码： Private Sub Drv1_Change() Dir1．Path=Drv1．Drive End Sub Private Sub Dir1_Change() File1．Path=Dir1．Path End Sub Private Sub File1_Click() Label2．Caption=File1．FileName End Sub 步骒3：按要求将文件保存至考生文件夹中。
解析 第1小题：本题只需按题目要求在窗体中画一个命令按钮控件数组即可。
第2小题驱动器列表框(Drive ListBox)用来显示当前系统中所有有效磁盘驱动器的列表；目录列表框(Dir List Box)用来分层显示指定磁盘驱动器上的目录列表；文件列表框(File List Box)用来显示指定目录中所选择文件类型的文件列表，默认为*．*。在程序运行时，驱动器列表框的Drive属性用来设置或返回选择的驱动器(缺省值是当前驱动器)，目录列表框的Path属性用来设置或返回选择的目录(缺省值是当前路径)，文件列表框的Path属性用来设置或返回其当前的目录(缺省值是当前路径)，文件列表框的FileName属性可返回所选文件的文件名。要在程序运行时，能对系统中的文件进行浏览，就要让驱动器列表框、目录列表框和文件列表框实现同步变化，关键是将驱动器列表框、目录列表框、文件列表框相瓦关联起来，这可通过编写驱动器列表框、目录列表框的Change事件过程，使三者的路径保持一致来实现。
转载请注明原文地址:https://jikaoti.com/ti/MIN0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)