首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,其窗体上有两个文本框,名称分别为Textl和Text2,Text2可以多行显示;有一个名称为Commonl的通用对话框;有3个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“
在考生文件夹下有一个工程文件sj5.vbp,其窗体上有两个文本框,名称分别为Textl和Text2,Text2可以多行显示;有一个名称为Commonl的通用对话框;有3个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“
admin
2010-07-13
35
问题
在考生文件夹下有一个工程文件sj5.vbp,其窗体上有两个文本框,名称分别为Textl和Text2,Text2可以多行显示;有一个名称为Commonl的通用对话框;有3个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“打开文件”、“删除”和“保存”。程序运行时窗体界面如图26—5所示。
命令按钮的功能是:单击“打开文件”按钮,弹出“打开文件”对话框,默认打开文件的类型为“TeXt Fites(*.txt)”。选择考生文件夹下的in5.txt文件后,该文件中的内容显示在Textl中;单击“删除”按钮,程序将把Textl中的所有与Text2中相同的字符串删除,并将结果显示在Textl中;单击“保存”按钮,把Textl中的内容存入考生文件夹下的out5.txt文件中。在窗体中已经给出了部分程序。
注意:请去掉程序中的注释符“’”,把程序中的“?”改为正确的内容。但不能修改程序中的其他部分,也不能修改控件的属性。编写“删除”按钮的Click事件过程,最后把修改后的文件按原文件名存盘。考生不得修改已有的程序和控件的属性。必须对考生文件夹下的in5.txt文件进行转换,并把转换结果通过“保存’’按钮存入考生文件夹下的out5.txt文件中,否则无成绩。
选项
答案
根据题意,将两个Text控件、3个Command控件和一个CommonDialog控件添加到窗体上,Text的名称分别为Textl和Text2、Text属性为空,Command的名称分别为Commandl、Command2和Command3,Caption属性分别为“打开文件”、 “删除,,和“保存”,其中CommonDialog控件需要选择“工程”→“部件’’命令,或在左侧工箱中单击鼠标右键,选择“部件”菜单,打开“部件,,对话框,将Microsoft Common Dialog Control 6.0前面的复选按钮钩上,单击“确定”按钮,则添加成功,再同其他控件一样添加到窗体上,其名称为Commonl。双击Commandl命令按钮,编写如下代码: Dim str As String Private Sub Commandl_Click() Dim tmp As String str="" Commonl.DialogTitle="打开" ’设置CommonDialog对话框标题 Commonl.InitDir=".\"’设置起始目录 Commonl.
Filter
="Text Files(*.txt)|*.txt" ’设置选取的文件类型 Commonl.FileName="" ’文件名为空 Commonl.ShowOpen’打开CommonDialog If Commonl.FileName◇""Then Open Commonl.FileName For
Input
As#1 ’如果文件存在则进行读取 While EOF(1)=False Input#1,tmp’判断是否读取完成 str=str+tmp’将读取的字符串放入str Wend End If Close#1 Textl.
Text
=str’在Textl中显示读取的字符串 End Sub Private Sub Command2_Click() Dim tmp As String Dim tel As String Dim i As Integer rel="" For i=1 To Len(str)-Len(Text2.Text) tmp=Mid(str.i,Len(Text2.Text)) ’读取其中的字符串 If Text2.Text=tmp Then’如果该段字符串与Text2输入的相同 tmp="" ’则将该段置为"" rel=rel+tmp i=i+Len(Text2.Text)-1 ’并向后移动Text2的长度减1位 Else rel=rel+Mid(tmp,1,1) End If Next i Textl.Text=tel’在Textl中显示修改后的字符串 End Sub Private Sub Command3_Click() Open"App.Path&\out5.txt"For
Output
As#1 Print#1,Textl.Text’将修改后的字符串写入文件中 Close#1 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/CLmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序中,若从键盘中输入的是大写字母C,则程序输出的结果是()。Importjava.io.*;publicclassExam{publicstaticvoidmain(Stringargs[]){intch=0;
结构化程序设计的3种基本结构是()。
数据结构中,与所使用的计算机无关的是数据的()。
在Java运行时,如获得一个异常对象,它会自动寻找处理该异常的代码,它从生成异常对象的代码构件开始,沿着【】按层回溯寻找,直至找到处理该类异常方法为止。
关系模型允许定义三类数据约束,下列不属于数据约束的是( )。
对如下二叉树进行后序遍历的结果为( )。
Java的简单性首先体现在自身系统的精炼上,它的基本解释程序和【】占内存40KB,附加的基本标准类库和支持线程程序占175KB。
有下面的Applet程序段:import.java.awt.*;import.java.applet.*;publicclassHelloextendsApplet{publicvoidpanin(Graphicsg){gdrawS
下列基本命令中,属于类文件分解器命令的是
耦合和内聚是评价模块独立性的两个主要标准,其中______反映了模块内各成分之间的联系。
随机试题
(2009年4月)产品的功能分析是价值工程的核心,是开展价值工程活动能否取得成效的关键阶段。在这一阶段,又可细分为______、______、______及______四个步骤。
依法治国是党领导人民治理国家的基本方略略,其实质在于()
A.HMG-CoA合酶B.HMG-CoA还原酶C.乙酰乙酸硫激酶D.乙酰CoA羧化酶(2015年第131题)参与酮体分解的酶是
测定油/水分配系数时用得最多的有机溶剂是
银监会提出的良好银行监管标准包括()。
国债常见的赎回保护期是发行后()年。
立体农业:是指农作物复合群体在时空上的充分利用。根据不同作物的不同特性,如高秆与矮秆、富光与耐荫、早熟与晚熟、深根与浅根、豆科与禾本科,利用它们在生长过程中的时空差,合理地实行科学的间种、套种、混种、轮种等配套种植,形成多种作物、多层次、多时序的立体交叉种
2001年我国启动了新一轮基础教育课程改革,请对此课程改革的背景、目标、内容、取得的进展、面临的挑战以及未来的发展等问题,论述你的观点。
Shefeltterrible.Shedidn’twanttoeat.Shedidn’t______eatingbecauseshewasill.
A、Howtocareforpreciousmetals.B、Astandardunitformeasuringweight.C、Thevalueofpreciousmetals.D、Usingthemetricsy
最新回复
(
0
)