首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)考生文件夹中有工程文件sjt3.vbp。窗体上已有部分控件。在窗体上画一个名称为Text1的文本框,设置相应属性,使得该文本框能够显示多行文本,且有垂直滚动条,如图3-26所示。运行程序时,将在文本框Text1中显示一段英文短文。 要求:向文
(1)考生文件夹中有工程文件sjt3.vbp。窗体上已有部分控件。在窗体上画一个名称为Text1的文本框,设置相应属性,使得该文本框能够显示多行文本,且有垂直滚动条,如图3-26所示。运行程序时,将在文本框Text1中显示一段英文短文。 要求:向文
admin
2017-09-22
47
问题
(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://kaotiyun.com/show/ckGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:FunctionM(xAsInteger,yAsInteger)M=пf(x>y,x,y)EndFunctionPrivateSub
VisualBasic标题栏上显示了应用程序的
如果在立即窗口中执行以下操作(<CR>是回车键):a=8<CR>b=9<CR>printa>b<CD>则输出结果是_________。
已知有如下语句:s="hello,world"r=Mid(s,7,5)运行上面的语句后,变量r的值为()
阅读下列程序: PrivateSubCommand1_Click() DimiAsInteger,kAsInteger k=2 Fori=1To3 PrintH(k); Nexti EndSub Fu
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整()。PrivateTypeAngKAsInteger
为了使图片框的大小可以自动适应图片的尺寸,则应______。
窗体上有两个按钮,执行程序后按Cancel按钮的输出结果是______。PrivateSubCommandl_Click()Print“北京”;EndSubPrivateSubCommand2,_Click()
随机试题
脱水清管列车干燥是用天然气驱动甲醇清管列车()清管干燥。
由出纳人员根据库存现金、银行存款日记账及其他相关资料编制的日常管理用报表是()
心衰代偿的方式除外
不属于原核细胞型的微生物是
患者,男,27岁。车祸致脑外伤昏迷20分钟,清醒4小时后又转入昏迷伴右侧瞳孔散大,左侧肢体瘫痪入院。多项检查3小时后入手术室,入室时仍昏迷,呼吸10次/分,血压140/95mmHg,心率60次/分,室性期前收缩4次/分。如室早已纠正,诱导中使用利多卡因
单代号网络图中说法正确的是()。
会计职业道德教育的主要形式包括接受教育和自我教育。( )
海关可以对超过()个月仍未缴纳税款的纳税人或担保人采取强制措施。
张教授:有的歌星的一次出场费比诺贝尔奖金还高,这是不合理的。一般地说,诺贝尔奖得主对人类社会的贡献,要远高于这样那样的歌星。李研究员:你忽视了歌星的酬金是一种商业回报,他的一次演出,可能为他的老板带来上千万的利润。张教授:按照你的逻辑,
Ittookmeseveralweekstogetusedto(drive)______ontheleftsideoftheroadinLondon.
最新回复
(
0
)