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

admin2018-10-29  40

问题 在考生目录下有一个工程文件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:按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://jikaoti.com/ti/1zm0FFFM
0

最新回复(0)