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

admin2020-02-27 37

问题在考生目录下有一个工程文件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://jikaoti.com/ti/cyx0FFFM

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

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

二级VB

NCRE全国计算机二级

设有如下事件过程：PrivateSubForm—Click()x=0Whilex10x=x+1x=x*xWendPrintxEndSub运行程序，单击窗体

下面关于计时器控件的叙述中正确的是()。

设窗体上有一个名称为Text1的文本框，程序运行时，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是()。

用来设置文字字体是否斜体的属性是()。

下列关于通用对话框CommonDialog1的叙述中，错误的是()。

把数学表达式表示为正确的VB表达式应该是()。

下列叙述中正确的是()。

关系的实体完整性要求关系中不能为空的属性是()。

毛泽东说“我第二次到北京期间，读了许多关于俄国情况的书，我热心地搜寻那时候能找到的为数不多的用中文写的共产主义书籍。有三本书特别深地铭刻在我的心中，建立起我的马克思主义的信仰。”这三本书是

-男性患者，52岁，晚饭间突感左胸前区疼痛，伴有恶心、呕吐，并出现严重的呼吸困难，送医院途中死亡。尸检发现左心室前壁大面积坏死。最可能发生阻塞的血管是

A、曲直B、炎上C、稼穑D、从革E、润下水曰

A.网上药品交易服务B.互联网药品信息服务C.经营性互联网药品信息服务D.非经营性互联网药品信息服务E.从事互联网药品信息服务申请表

施工单位承担水利工程施工任务，必须接受水利工程质量监督单位对其()的监督检查。

下列各项中，不属于委托代理终止的法定情形有()。

态度与品德形成过程经历的第二阶段是()

某品牌手机标价3200元，王某最终花3000元购得，3000元在这里执行的职能是（）。

第一次世界大战前，主要的国际储备资产是()。