首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下在一个工程文件sj5.vbp,窗体上有一个菜单“编辑”,名称为Edit,下面有一个二级菜单,含两个菜单项,名称分别为Read和Search,标题分别为“读取”和“查找”。另有一个文本框,名称为Textl,内容为空;3个标签名称分别为Label
在考生文件夹下在一个工程文件sj5.vbp,窗体上有一个菜单“编辑”,名称为Edit,下面有一个二级菜单,含两个菜单项,名称分别为Read和Search,标题分别为“读取”和“查找”。另有一个文本框,名称为Textl,内容为空;3个标签名称分别为Label
admin
2009-08-26
35
问题
在考生文件夹下在一个工程文件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://kaotiyun.com/show/uc1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列为窗口事件的是()。
下列程序的输出结果是()。PublicclassTest{Publicstaticvoidmain(String[]args){int[]array=(2,4,6,8,10);intsize=6;intres
【】是Java程序的并发机制,它能同步共享数据,处理不同事件。
下面()方法与applet的显示无关。
以下数据结构中不属于线性数据结构的是()。
下列关于线程调度的叙述十,错误的是()。
在双链表中,每个结点有两个指针域,一个指向前驱结点,另一个指向【】。
下列各方法中不被建议用于线程同步过程的是()。
数据库DB,数据库系统DBS,数据库管理系统DBMS,这3者之间的关系是()。
设树T的度为4,其中度为1,2,3,4的结点个数分别为4,2,1,1。则T中的叶子结点数为()。
随机试题
实现企业安全生产的根本保证是()
有关胶体金特性的叙述,错误的是
麻疹疹前期见麻疹疹回期可见
适宜用塑制法制备的是适宜用泛制法制备的是
张某被拘留的行政行为由大化街道派出所作出,张某对此行为向区公安分局提出了行政复议,张某对于复议决定仍不服,决定起诉,那么他如何确定被告?可能存在的情形有:()
某工程项目的进度计划如下面双代号网络计划所示(时间单位:周)。根据以上资料,回答下列问题:该工程项目的工期为()周。
乘坐国内航班离站的散客游客,导游应预留足够的时间给游客,一般提前()分钟到达机场。
在应用知识的具体情境中进行知识教学的一种教学策略是()。
为了区分类中重载的同名的不同的方法,要求
A、BecauseshewantedtoinvitehimtoSpain.B、Becausesheneededsomehelptofindahotel.C、Becausesheaskedhimtobookah
最新回复
(
0
)