2. 计算机
  3. 在考生目录下有一个工程文件sjt5．vbp。窗体左边的图片框名称为Picture1，框中还有六个小图片框，它们是一个数组，名称为Pic，在窗体右边从上到下有三个显示不同物品的图片框，名称分别为Picture2、Picture3、Picture4，还有一个文

在考生目录下有一个工程文件sjt5．vbp。窗体左边的图片框名称为Picture1，框中还有六个小图片框，它们是一个数组，名称为Pic，在窗体右边从上到下有三个显示不同物品的图片框，名称分别为Picture2、Picture3、Picture4，还有一个文

admin2020-02-27  61
问题 在考生目录下有一个工程文件sjt5．vbp。窗体左边的图片框名称为Picture1，框中还有六个小图片框，它们是一个数组，名称为Pic，在窗体右边从上到下有三个显示不同物品的图片框，名称分别为Picture2、Picture3、Picture4，还有一个文本框Text1以及四个标签，如图3．50(a)所示。
    程序运行时，可以用鼠标拖拽的方法把右边的物品放到左边的图片框中(右边的物品不动)，同时把该物品的价格累加到Text1中，如图3．50(b)所示。最多可放六个物品。
    实现此功能的方法是：程序刚运行时，Picture1中的图片框数组不显示，当拖拽一次物品时，就显示一个图片框数组元素，并在该图片框数组元素中加载相应的图片，产生物品被放入的效果。
    文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。
    注意：不得修改已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。
选项
答案步骤1：打开考生文件夹下的工程文件sjt5．vbp。 步骤2：在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码： Select Case Source．Name For k=0 To 5 If Pic(k)．Visible=False Then Pic(k)．Visible=True Text1=Text1+a 步骤3：按要求将文件保存至考生文件夹中。
解析 控件的DragDrop事件有三个主要参数，其中，“Source”参数是一个对象变量，类型为“Control”，包含被拖动对象的属性，“X”和“Y”参数是放下对象时鼠标光标的位置。本题中为了判断拖动的是哪一个图片，因此需要判断Source参数的Name属性。当拖动的图片确定，则在控件数组中显示的图片以及需要累加的价格也随之确定。
    由于控件数组共有6个数组元素，因此应该在拖放事件中进行一个6次的循环，在每次循环中判断数组元素是否已经被显示出来，如果没有被显示出来则令其Visible属性为True，然后退出循环，这样可以实现序号由小到大每次显示一个图片的效果。
转载请注明原文地址:https://kaotiyun.com/show/5GTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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