首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sit5.vbp。窗体左边的图片框名称为Picturel,框中还有六个小图片框,它们是一个数组,名称为Pic,在窗体右边从上到下有三个显示不同物品的图片框,名称分别为Picture2、Picture3、Picture4,还有一个文
在考生目录下有一个工程文件sit5.vbp。窗体左边的图片框名称为Picturel,框中还有六个小图片框,它们是一个数组,名称为Pic,在窗体右边从上到下有三个显示不同物品的图片框,名称分别为Picture2、Picture3、Picture4,还有一个文
admin
2016-03-22
73
问题
在考生目录下有一个工程文件sit5.vbp。窗体左边的图片框名称为Picturel,框中还有六个小图片框,它们是一个数组,名称为Pic,在窗体右边从上到下有三个显示不同物品的图片框,名称分别为Picture2、Picture3、Picture4,还有一个文本框Textl以及四个标签,如图3.52(a)所示。
程序运行时,可以用鼠标拖拽的方法把右边的物品放到左边的图片框中(右边的物品不动),同时把该物品的价格累加到Text1中,如图3—52(b)所示。最多可放六个物品。
实现此功能的方法是:程序刚运行时,Picture1中的图片框数组不显示,当拖拽一次物品时,就显示一个图片框数组元素,并在该图片框数组元素中加载相应的图片,产生物品被放入的效果。
文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不得修改已经存在的内容和控件属性,最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹下的工程文件sit5.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:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/BMLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了使图片框的大小可以自动适应图片的尺寸,则应______。
系统符号常量的定义可以通过______获得。
为了避免流程图在描述程序逻辑时的灵活性,提出了用方框图来代替传统的程序流程图,通常也把这种图称为______。
代码窗口分为左右两栏,左边一栏称为______,右边一栏称为过程框。
假定有如下的窗体事件过程:PrivateSubForm_Click()a$="MicrosoftVisualBasic"b$=Right(a$,5)c$=Mid(a$,1,9)MsgBoxa$,34,b$,c
在窗体上画四个文本框(如下图所示),并用这四个文本框建立一个控件数组,名称为Text1(下标从0开始,自左至右顺序增大),然后编写如下事件过程PrivateSubCommandl_Click()ForEachTextBoxin
代数式eXSin(30°)2x/(x+y)Inx对应的VisualBasic表达式是()。
在窗体(Name属性为Forml)上面添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Commandl),然后编写如下两个事件过程:PrivateSubCommandl_Click()a=Tex
以下事件过程可以将打开对话框的标题改为"新时代"的是
如果将文本框的Locked属性设置为True,则以下说法正确的是
随机试题
延伸率和断面收缩率其数值越大则________越好。
在Excel2003中,若某一单元格中键入的数值位数超过了11位,则该数值将______显示。
体内大部分胆红素是从下列哪种物质分解代谢产生的
审查建设规模、建设标准、配套工程、设计定员等是否符合原批准的可行性研究报告或立项批文的标准。对总概算投资超过批准投资估算()的,应查明原因,重新上报审批。
产生国债的直接原因是由于()。
证券市场监管的经济手段是指通过运用()等经济手段对证券市场进行干预。
李某每月工资薪金所得费用扣除额为( )元。李某该纳税年度应纳个人所得税税额为( )元。
投资组合管理中,进行决策过程的步骤包括()。
下面关于PC机的并行接口的叙述中,错误的是( )。
Recentstudiesshowthatadvertisingusually______competitionandthereforelowerprices.
最新回复
(
0
)