首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp。窗体左边的图片框名称为Picture1,框中还有六个小图片框,它们是一个数组,名称为Pic,在窗体右边从上到下有三个显示不同物品的图片框,名称分别为Picture2、Picture3、Picture4,还有一个文
在考生目录下有一个工程文件sjt5.vbp。窗体左边的图片框名称为Picture1,框中还有六个小图片框,它们是一个数组,名称为Pic,在窗体右边从上到下有三个显示不同物品的图片框,名称分别为Picture2、Picture3、Picture4,还有一个文
admin
2020-02-27
62
问题
在考生目录下有一个工程文件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全国计算机二级
相关试题推荐
窗体上有名称为Command1的命令按钮,其事件过程如下:OptionBase1PrivateSubCommand1—Click()DimaDimb(10)AsIntegera=Array(2
下列叙述中正确的是()。
设栈的顺序存储空间为S(1:m),初始状态为top=0。现经过一系列正常的入栈与退栈操作后,top=m+1,则栈中的元素个数为()。
下列叙述中正确的是()。
设变量x的值是845,则下面语句的输出是()。Printx\100+(xMod100)\10+xMod10
窗体上有一个名称为Commandl的命令按钮,—个名称为Textl的文本框,其Text属性值为“VBProgramming”。运行程序后,选中其中的“VB”,并执行如下事件过程:PrivateSubCommandl—Click()Text1.S
用来设置文字字体是否斜体的属性是()。
下列叙述中正确的是()。
在考生文件夹下有一个工程文件sjt5.vbpc,其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。程序功能如下:(1)考生文件夹下in5.
以下关系表达式中,其值为True的是()。
随机试题
A、Sheisalearnedperson.B、Sheiswritingabookondieting.C、Shewaseverafatperson.D、Shehaseverlearnedsomethingabo
卧推时,()不参与主动收缩。
以下哪一种植物不属于川贝母的原植物
人民代表应当出席本级人民代表大会会议,依法行使代表的职权。根据《全国人民代表大会和地方各级人民代表大会代表法》的规定,下列哪些说法是不正确的?
该环评主要的生态保护目标是什么?施工期生态影响的主要途径、性质和生态因子的反应是什么?
一般来说,重大危险源的风险分析评价包括下列几个方面()。
第三者以索取大量财物为目的,包办强迫他人婚姻的,称为()。
【《堪萨斯一内布拉斯加法案》】
假设VAR为变量,指令MOV AX,OFFSET VAR的寻址方式是( )。
GetEnoughSleep—orElse!Agoodnight’ssleepismoreimportanttoyourhealththanyoumayrealize.[A]MeganJonesknews
最新回复
(
0
)