2. 计算机
  3. (1)考生文件夹中有工程文件sjt3．vbp。窗体上已有部分控件。在窗体上画一个名称为Text1的文本框，设置相应属性，使得该文本框能够显示多行文本，且有垂直滚动条，如图3-26所示。运行程序时，将在文本框Text1中显示一段英文短文。 要求：向文

(1)考生文件夹中有工程文件sjt3．vbp。窗体上已有部分控件。在窗体上画一个名称为Text1的文本框，设置相应属性，使得该文本框能够显示多行文本，且有垂直滚动条，如图3-26所示。运行程序时，将在文本框Text1中显示一段英文短文。 要求：向文

admin2017-09-22  60
问题 (1)考生文件夹中有工程文件sjt3．vbp。窗体上已有部分控件。在窗体上画一个名称为Text1的文本框，设置相应属性，使得该文本框能够显示多行文本，且有垂直滚动条，如图3-26所示。运行程序时，将在文本框Text1中显示一段英文短文。
    要求：向文本框Text2中输入一个字符串(例如enjoy)，然后单击“查找”命令按钮，则判断输入的字符串是否存在于Text1显示的文本中。如果存在，则显示它在Text1中首次出现的位置(Text1中第1个字符的位置为1)；否则用消息框显示“没有找到!”。
    注意：按照题目要求在窗体上添加控件，并设置有关属性。去掉程序中的注释符，把程序中的“?”改为正确的内容。考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。

    (2)在考生目录下有一个工程文件sjt4．vbp。窗体上已有文本框Text1和图片框Picture1(两者位置重叠)，并建立了菜单。要求单击“显示图片”菜单项时，隐藏文本框，在图片框中显示图片Pic4．bmp，同时将该菜单标题改为“清除图片”；单击“清除图片”菜单项时，清除图片框中的图片，同时将菜单标题改为“显示图片”；单击“显示文本”菜单项，则隐藏图片框，并将指定文件的内容显示在文本框中。在给出的窗体文件中已经有了全部控件，但程序不完整。
    要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。最后把修改后的文件按原文件名存盘。
选项
答案(1)步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，在窗体中加入一个文本框。按步骤2：在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码： 表4．17设置其相关属性。 [*] 步骤2：在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码： n=Len(str2) ’或n=Len(Text2．Text) For i=1 To Len(strl) MsgBox str2 &"的起始位置是："&，i If i>Len(strl)Then MsgBox”没有找到!” ’或If i>Len(Text1．Text) 步骤3：按要求将文件保存至考生文件夹中。 (2)步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码： If showPic．caption="显示图片"Then Picture1．Picture=LoadPieture("") Picture1．Visible=False Open App．Path &"＼data4．dat"For Input As#1 Text1．Text=s 步骤2：按要求将文件保存至考生文件夹中。
解析 (1)题目要求实现字符串的查找，分析代码可知，变量strl和str2分别保存Text1和Text2文本框的内容，“If Mid(strl，i，n)=RTrim(str2)Then”是比较strl里面的i位置开始的n个字符是否和str2一样，因此循环搜索是在strl里面搜索str2。第一个“?”处是计算n的值，从If判断语句里面可知n的值应和str2的长度一样；第二个“?”处是补充循环的结束条件，通过循环不断从strl往后找str2，因此循环结束条件是strl的长度；第三个“?”是显示找到str2字符串的位置i；第四个“?”处是判断没有找到字符串str2弹出提示对话框，如果循环结束都没有找到str2，此时循环变量i会大于strl的长度。
    (2)题目要求点击不同的菜单项的时候对控件的属性进行设置。第一个“?”处是判断showPic的标题是否是“显示图片”，如果是则改成“清空图片”，否则改成“显示图片”；第二个“?”处是清空图片，使用LoadPicture函数，传入空参数；第三个“?”处是隐藏图片框，即把Visible属性设置为False；第四个“?”处是补充打开方式，从data4．dat读取文件，显示是以Input方式打开；最后一个“?”处是把从文件读出的内容s显示在文本框上。
转载请注明原文地址:https://www.kaotiyun.com/show/ckGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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