首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下在一个工程文件sj5.vbp,窗体上有一个菜单“编辑”,名称为Edit,下面有一个二级菜单,含两个菜单项,名称分别为Read和Search,标题分别为“读取”和“查找”。另有一个文本框,名称为Textl,内容为空;3个标签名称分别为Label
在考生文件夹下在一个工程文件sj5.vbp,窗体上有一个菜单“编辑”,名称为Edit,下面有一个二级菜单,含两个菜单项,名称分别为Read和Search,标题分别为“读取”和“查找”。另有一个文本框,名称为Textl,内容为空;3个标签名称分别为Label
admin
2009-08-26
29
问题
在考生文件夹下在一个工程文件sj5.vbp,窗体上有一个菜单“编辑”,名称为Edit,下面有一个二级菜单,含两个菜单项,名称分别为Read和Search,标题分别为“读取”和“查找”。另有一个文本框,名称为Textl,内容为空;3个标签名称分别为Labell、Label2与Label3,标题分别为“文件内容”、“查找结果”和“空”。要求考生编写适当的程序,实现下面描述的功能。
本程序模拟Word中的查找功能,描述如下:程序运行时,如果单击“读取”菜单项,则把考生文件夹下的in5.txt文件中的数据读入到文本框Text:1中;如果单击“查找”菜单项,则弹出对话框,输人需要查找的内容,将查找到的个数显示到Label3中,并把个数存入out5.txt中。程序运行时的窗体界面如图67—5所示。
注意:考生不得修改程序控件及控件的属性,最后应把修改后的文件按原文件名存盘。
选项
答案
InputBox()函数用于显示一个输入框,提示用户输入一个数据,该函数返回值默认为字符串类型,其常用语法格式为:InputBox(Prompt[,Title][,Default])。EOF()函数用来测试文件的结束状态,以避免在文件输入时出现“输入超出文件尾”的错误。对顺序文件来说,如果已经到文件末尾,则EOF函数返回True,否则返回False。 程序中先用Open语句打开文件in5.txt,然后用Input#语句读人数据存人到变量,将变量内容显示到文本框中;单击“查找”菜单项要实现的功能可用InputBox()函数、Len()函数、Mid()函数及For循环来完成。 根据题意,在菜单编辑器中添加一个主菜单,名称为Edit;Caption属性为“编辑”,在其下面添加两个子菜单,名称分别为Read和Search、Caption属性分别为“读取”和“查找”,内缩一位,再在Forml中添加3个标签和一个文本框控件,Lable的名称分别为Labell和Label2、Label3、Caption属性分别为“文件内容”、“查找结果”和“空”,文本框的名称为Textl、Text属性为空、MultiLine属性为True、ScrollBar属性为2。单击菜单自选项进入代码窗口,补充后的代码如下: Private Sub Read_Click() Dim str As String Dim tmp As String str="" Open"App.Path&\in5.txt"For
Input As #1
’打开文件准备读取 While EOF(1)=
False
’利用Whille来保证完全读取文件
Input
#1,tmp’每次读取到trap中 str=str+trap’将读到的数据放人字符串中 Wend Close#1 Textl.
Text
=str’在Textl中显示读取的内容 End Sub Private Sub Search Click() Dim trap As String Dim rets tr As String Dim i As Integer retstr=
InputBox
("输入要查找的字符串") For i=1 To
Len
(Textl.Text)-
Len
(retstr) tmp=Mid(Textl.Text,i,
Len(retstr)
) ’读取其中的字符串 If
retstr=tmp
Then’如果该段字符串与Text2输入的相同
total=total+1
End If Next i Open"App.Pathgc\out5.txt"For Output As#1’打开文件准备写人 Print#1,total Close#1 ’关闭文件 Label3.
Caption
=total End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://jikaoti.com/ti/wQq0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述中正确的是()。
一个复杂的应用系统必然包括多个对象,这些对象间可能存在的关系有三种,它们是:包含、继承和【】。
下面()方法与applet的显示无关。
下列数组a中,版本较新的能在程序运行时动态调整大小的是()。
一个关系表的行称为【】。
下列数组a中,版本较新的能在程序运行时动态调整大小的是()。
在下列关于二叉树的叙述中,正确的一项是()。
在关系代数中,对一个关系投影操作以后,新关系的元组个数跟原来关系的元组个数相比()。
由关系数据库系统支持的完整性约束是指【】和参照完整性。
关系数据库管理系统能实现的专门关系运算包括选择、连接和【】。
随机试题
患者女,58岁,回吸鼻涕带血,痰多1年余,鼻腔检查见右侧中道黏脓,并有少许肉芽。鼻窦CT示:右上颌窦密度增高,并有钙化斑。该患者可能的诊断为
患者,男性,25岁,体重60kg。不慎被开水烫伤,自觉剧痛,头面部、颈部及双上肢均有水疱。若对该患者实施补液治疗,伤后第一个8小时应输入的电解质溶液量为
关于以划拨方式取得土地使用权的房地产转让时适用的《房地产管理法》特殊规定,下列哪些表述是正确的?()
某套利者在9月1日买入10月份的白砂糖期货合约,同时卖出12月份白砂糖期货合约,以上两份期货合约的价格分别是3420元/吨和3520元/吨,到了9月15日,10月份和12月份白砂糖的期货价格分别为3690元/吨和3750元/吨,则9月15日的价差为(
幼儿看书距离过近,时间长了容易产生()。
社区文化建设系统性原则的表现为()。
2015年,某市非公有制经济实现增加值348.12亿元,比上年净增加23.69亿元,非公有制经济增加值占地区生产总值的比重为57.5%。其中,民营经济增加值335.24亿元,外商经济增加值11.84亿元,港澳台经济增加值1.04亿元,分别比“十一五”末(2
“证照分离”改革有效降低了企业制度性交易成本,优化了营商环境,激发了市场活力和社会创造力。国务院决定,在全国各自由贸易试验区率先开展“证照分离”改革全覆盖试点。关于“证照分离”改革,下列说法正确的是()。
Writeanessayof160~200wordsbasedonthefollowingdrawing.Inyouressay,youshould1)describethedrawingbriefly,2)
Whatisthemaninterestedinatthebeginningoftheconversation?
最新回复
(
0
)