首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下在一个工程文件sj5.vbp,窗体上有一个菜单“编辑”,名称为Edit,下面有一个二级菜单,含两个菜单项,名称分别为Read和Search,标题分别为“读取”和“查找”。另有一个文本框,名称为Textl,内容为空;3个标签名称分别为Label
在考生文件夹下在一个工程文件sj5.vbp,窗体上有一个菜单“编辑”,名称为Edit,下面有一个二级菜单,含两个菜单项,名称分别为Read和Search,标题分别为“读取”和“查找”。另有一个文本框,名称为Textl,内容为空;3个标签名称分别为Label
admin
2009-08-26
54
问题
在考生文件夹下在一个工程文件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全国计算机二级
相关试题推荐
下列程序段的输出结果是()。intdata=0;chark=’a’,p=’f’data=p-k;System.out.printlln(data);
Java中定义常量的保留字是()。
下列关于char类型的数据的说法中,正确的是()。
设有如下关系表:则下列操作中正确的是()。
编译过程一般分成5个阶段【】、语法分析、错误检查、代码优化和目标代码生成。
在双链表中,每个结点有两个指针域,一个指向前驱结点,另一个指向【】。
在结构化方法中,软件功能分解属于下列软件开发中的哪个阶段?()
数据的物理独立性是指当数据的【】改变时,通过系统内部的自动映象或转换功能,保持了数据的逻辑结构不变。
如下的代码段中,如果方法unsafe()正常运行,那么结果是()。publicvoidexample(){try{unsafe();System.out.pri
用树形结构来表示实体之间联系的模型称为()。
随机试题
节流阀利用的是()原理来制冷的。
女,31岁,右上腹部包块。B超发现肝内占位。诊断依据是哪些
硝苯地平的化学结构是
对特种设备检验的安全管理规定描述不正确的是()。
通风空调系统风量平衡后,总风量实测值与设计风量的偏差允许值不应大于()。
下列工业安装分项工程的主控项目有()。
下列关于遗嘱撤销和修订的说法,错误的是( )。
影响需求变动的因素包括()。[2015、2011、2010、2009年真题]
关于感觉规律的表述,正确的有()。
根据《公安机关组织管理条例》的规定,下列说法正确的是()。
最新回复
(
0
)