2. 计算机
  3. 在考生文件夹下有一个工程文件sjt3．vbp。 程序的功能是： 1)程序运行时，文件列表框显示当前文件夹中的所有扩展名为jpg的文件。 2)双击文件列表框中某个图片文件名时，能在图像框中显示出该张图片，并将该图片文件的信息(包括路径及文件名)显示到标签中。

在考生文件夹下有一个工程文件sjt3．vbp。 程序的功能是： 1)程序运行时，文件列表框显示当前文件夹中的所有扩展名为jpg的文件。 2)双击文件列表框中某个图片文件名时，能在图像框中显示出该张图片，并将该图片文件的信息(包括路径及文件名)显示到标签中。

admin2019-06-11  46
问题 在考生文件夹下有一个工程文件sjt3．vbp。
程序的功能是：
1)程序运行时，文件列表框显示当前文件夹中的所有扩展名为jpg的文件。
2)双击文件列表框中某个图片文件名时，能在图像框中显示出该张图片，并将该图片文件的信息(包括路径及文件名)显示到标签中。
3)“下一张”命令按钮的功能：选中并显示上次选中文件的下一个图片文件(如果文件列表框中没有被选中的图片文件或上次选中的是最后一个文件名，则从第1个图片文件开始)。
在当前程序所在文件夹中，已经提供了所需要的图片文件，运行时窗体如图所示。
在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。
选项
答案[操作步骤] 步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Private Sub Command1_Click() IfFile1．ListIndex=-1Or File1．ListIndex=File1．Lis％Count-1Then File1．LiStIndex=0 Else If File1．ListIndex＞=0 Then File1．ListIndex=File1．ListIndex+1 End If End If ShowInfor End Sub Private Sub File1_DblClick() Call ShowInfor End Sub Private Sub ShowInfor() Label1．Caption=App．Path+"”+File1．FileName Image1．Picture=LoadPicture(Label1．Caption) End Sub Private Sub Form_Load() File1．Path=App．Path File1．Pattern="*．jig" End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/IRUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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