首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下在一个工程文件sj5.vbp,窗体上有一个菜单“编辑”,名称为Edit,下面有一个二级菜单,含两个菜单项,名称分别为Read和Search,标题分别为“读取”和“查找”。另有一个文本框,名称为Textl,内容为空;3个标签名称分别为Label
在考生文件夹下在一个工程文件sj5.vbp,窗体上有一个菜单“编辑”,名称为Edit,下面有一个二级菜单,含两个菜单项,名称分别为Read和Search,标题分别为“读取”和“查找”。另有一个文本框,名称为Textl,内容为空;3个标签名称分别为Label
admin
2009-08-26
47
问题
在考生文件夹下在一个工程文件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全国计算机二级
相关试题推荐
下列程序的功能是将一个整数数组写入二进制文件,在程序的下划线处应填入的选项是()。importjava.io.*;publicclassXieShuzu{publicstaticvoidmain(String[]a){
编写时具有Applet与Application特征的程序。具体方法是:作为Application要定义main()方法,并且把main()方法所在的类定义为一个public类。为使该程序成为一个Applet,main()方法所在的这个类必须继承Apple
赋值表达式是由位于赋值运算符左边的变量和右边的【】组成。
在Java中,线程的模型就是一个CPU、程序代码和【】的封装体。
有如下程序;publicclassMethTest{staticintVarl=100;intVar2=200;publicstaticvoidmain(Stringargs[])
关系数据库的概念模型是()的集合。
下列JApplet实现了一个不可编辑的JTextArea和一个JButton。请填写正确的程序代码。importjavax.swing.*;importjava.awt.*;publicclassTestl7extends
Java的API结构中,不属于类库主要包括的核心包的是()。
对如下二叉树进行后序遍历的结果为()。
在一棵二叉树上第5层的结点数最多是()。
随机试题
公务员考试的基本方式是()
榜样激励是通过树立榜样,满足员工模仿和学习的需要,把员工的行为引导到组织目标所期望的方向。()
女性,32岁,发热、腰痛、尿频、尿急1个月,近3天全身关节酸痛、尿频、尿急加重。体检:体温39.5℃,白细胞13×109/L,中性粒细胞86%,尿培养大肠杆菌阳性,诊断为大肠杆菌性尿路感染。应首选
风机盘管加新风空调系统,新风应()。
甲公司为购买货物而将所持有的汇票背书转让给乙公司,但因担心以此方式付款后对方不交货,因此在背书栏中记载了“乙公司必须按期保质交货,否则不付款”的字样。乙公司在收到票据后没有按期交货。根据票据法律制度的规定,下列表述中,正确的是()。
2016年12月1日,A公司应收B公司货款200万元,由于B公司发生财务困难,遂于2016年12月31日进行债务重组。A公司同意免除债务50万元,并将剩余债务延期2年,利息按年支付,年利率为5%,同时附或有条件:债务重组后,如B公司自2017年起盈利,则当
“先天下之忧而忧,后天下之乐而乐”是范仲淹的名句。()
关于知识库内容初始的说法,错误的是()。
Ibecameinterestedinwritingatanearlyage.Sowhenmyfourth-gradeteachertoldmeabouta【C1】______writer’sconferencewh
A、Hehashadaheartattackbecauseofsmoking.B、Hehasseriouslungdisease.C、Heiscoughingbecauseoftoomuchsmoking.D、H
最新回复
(
0
)