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

admin2017-09-22  17

问题 (1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:
    1)程序运行时,文件列表框显示当前文件夹中的所有扩展名为.jpg的文件。
    2)双击文件列表框中某个图片文件名时,能在图像框中显示出该张图片,并将该图片文件的信息(包括路径及文件名)显示到标签中,如图3-42所示。
    3)“下一张"命令按钮的功能:选中并显示上次选中文件的下一个图片文件(如果文件列表框中没有被选中的图片文件或上次选中的是最后一个文件名,则从第1个图片文件始)。
在当前程序所在文件夹中,已经提供了所需要的图片文件,运行时窗体如图所示。

    在给出的窗体文件中已经有了全部控件,但程序不完整。请将事件过程中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。
    注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名存盘。
    (2)在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:程序运行时,文本框中显示一篇英文短文,单击“查找”按钮时可输入查找内容,如图3-43所示。

    若未找到查找内容,查找结束;若找到查找-内容,被找到的内容在文本框中以反相显示(即呈选中状态),每找到一次都给出提示,并在左下角文本框中显示累计的次数,如图3 44所示,若单击提示对话框的“是”按钮,则继续向后查找;若单击“否”按钮,则终止查找。在给出的窗体文件中已经有了全部控件,但程序不完整。请将事件过程中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。

    注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名存盘。

选项

答案(1)步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: If Filel.ListIndex =-1 Or Filel.ListIndex=Filel.ListCount-1 Then Filel.ListIndex=Filel.ListIndex+1 Label1.Caption=App.Path + "\" + Filel.FileName Filel.Pattern= "*.jPg" 步骤2:按要求将文件保存至考生文件夹中。 (2)步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口中,去掉程序中的注释符“*”,将问号“?”改为正确的内容。参考代码: Text1.SelStart=pos-1 Text1.SelLength=Len(fstr) times=times+1 pos=InStr(pos,ostr,fstr) 步骤2:按要求将文件保存至考生文件夹中。

解析 (1)本题主要考察文件列表框的属性和事件响应。文件列表框的Path属性用来设置或返回其当前的目录(缺省值是当前路径);文件列表框的FileName属性可返回所选文件的文件名;Pattern属性设置要显示的文件类型,默认表示所有文件;ListCount属性返回文件列表框中匹配Pattern属性设置的文件个数;ListIndex返回控件中当前项目的索引号,取值范围是0~ListCount-1。
    第一个“?”处是的If判断文件列表框当前的ListIndex是不是最后一个或者文件列表框里面没有文件,即ListIndex的值为-1;第二个“?”处是在命令按钮的事件代码里面把图片向后移动一个,然后调用ShowInfor来显示图片,因此第二个“?”处是将ListIndex加1;第三个“?”处是显示图片的路径和名称,图片的名称可通过列表框的FileName属性得到;最后一个“?”是设置文件列表框的属性,包括Path和Pattern属性,因为题目要求文件列表框显示扩展名为jpg的文件。
    (2)题目要求在一个字符串里面查找另外一个字符串,由于字符串可能出现多次,因此需要使用循环来遍历。字符串查找使用InStr函数,该函数指定一字符串在另一字符串中最先出现的位置,如果没有找到返回0。因此在循环中,用一个变量保存InStr的返回值,只要InStr返回值不为0,就可以继续往后查找。第一个和第二个“?”处是设置找到的字符反相显示,即把找到的字符串设置为选中状态,通过设置SleStart和SelLength两个属性。第三个“?”处是统计找到的次数变量times加1,根据“Text2.Text=times”可知times是统计变量;最后一个“?”处如果If成立则需要再次查找,因为下次进入循环的时候直接设置选中状态,说明在下次进入循环前已经找到了。
转载请注明原文地址:https://kaotiyun.com/show/JjGp777K
0

随机试题
最新回复(0)