首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下说明及Visual Basic代码,将应填入(n)处的字句写在对应栏内。 [说明] 下图是一个简易文本编辑器程序的运行界面: 用户打开磁盘上的某个文件后,可以直接对文本进行编辑,也可以利用界面提供的按钮完成相应操作。主要操作介绍如下:
阅读以下说明及Visual Basic代码,将应填入(n)处的字句写在对应栏内。 [说明] 下图是一个简易文本编辑器程序的运行界面: 用户打开磁盘上的某个文件后,可以直接对文本进行编辑,也可以利用界面提供的按钮完成相应操作。主要操作介绍如下:
admin
2012-12-10
73
问题
阅读以下说明及Visual Basic代码,将应填入(n)处的字句写在对应栏内。
[说明]
下图是一个简易文本编辑器程序的运行界面:
用户打开磁盘上的某个文件后,可以直接对文本进行编辑,也可以利用界面提供的按钮完成相应操作。主要操作介绍如下:
(1)打开文件:打开文件对话框,其中仅显示“*.txt”类型的文件。用户选中某一文件后,其内容将呈现于界面文本框内;
(2)查找:提示用户输入要查找的内容,将首次出现的查找内容以蓝色高亮标记;
(3)替换:若文本框中已选中某段文本,则提示用户输入要替换的内容,在文本框中完成替换。
在开发过程中,文本框名为Text1,“打开文件”、“保存文件”、“查找”、“替换”、“退出”按钮分别命名为Command1至Command5。
[Visual Basic代码]
Dim fileName As String
Dim fso As New (1), ts As Object
’打开文本文件
Private Sub Command1_Click()
CommonDialog1.Filter = "*.txt"
CommonDialog1.ShowOpen
fileName =(2) ’保存所打开的文件名
Set fso=CreateObjeet("Scripting.FileSystemObject")
Set ts=fso.OpenTextFile(fileName, ForReading)
If Not ts.AtEndOfStream Then
Text1.Text =(3)
End If
ts. Close
End Sub
’保存文本文件
Private Sub Command2_Click()
Set ts = fso.OpenTextFile(fileName, ForWriting)
(4)
ts.Close
End Sub
’查找字符串
Private Sub Command3_Cliek()
Dim search As String, position As Integer
search = InputBox("输入要查找的字符串:")
position = InStr(Text1.Text, search) ’在文本中查找字符串
If position >0 Then ’若找到指定的字符串
Text1.SelStart = position - 1 ’设置选定文本的起始位置
Text1.SelLength = Len(search) ’设置选定文本的长度
Else
MsgBox "没有发现要查找的字符串"
End If
End Sub
’替换选中的字符串
Private Sub Command4_Click()
Dim object As String
If (5) >0 Then ’若已经选中了要替换的文本
object = InputBox("输入要替换的字符串:")
Text1.SelText = object ’替换文本
Else
MsgBox "请先选中要替换的文本!"
End If
End Sub
’退出程序
Private Sub Command5_Click()
End
End Sub
选项
答案
(1) FileSystemObject (2) CommonDialog1.filename (3) ts.ReadAll (4) ts. Write Text1.Text (5) Text1.SelLength
解析
(1)FSO对象的声明格式是:Dim对象名 As New FileSystemObject;
(2)文件对话框中选中的文件名称(含磁盘路径)包含在filename属性中;
(3)此处要获取文件的全部内容,因此需用ReadAll方法读取整个文件;
(4)此处要将文本框内容Text1.Text更新至文件,应使用Write方法一次性写入;
(5)文本框中是否选定了内容可以根据属性SelLength (选定长度)是否为零来判断。
转载请注明原文地址:https://kaotiyun.com/show/DnjZ777K
本试题收录于:
程序员下午应用技术考试题库软考初级分类
0
程序员下午应用技术考试
软考初级
相关试题推荐
()不属于信息污染。
下列关于计算机病毒的叙述,不正确的是______。
在Word2010中,要对设定好纸张大小的文档进行每页行数和每行字数调整,可通过页面设置对话框中的()命令进行设置。
以下关于操作系统中回收站的叙述中,不正确的是(25)。
在Word编辑状态下,有些英文单词或汉字下面会自动加上红色或绿色的波浪型细下划线。以下叙述中,“波浪型细下划线(44)”是错误的。
《信息技术汉字字型要求和检测方法》(GB/T11460一一2009)属于______。
某学校有多个班,每个班有多名学生但只能有一个班长,那么班长与学生这两个实体之间的关系是(57)。
Windows操作系统通过(7)来判断文件是不是一个可执行文件。
程序员一般用(7)软件编写和修改程序。
随机试题
电阻对焊工艺参数有________、____、____、____和____。
企业持有至到期投资对其进行质量分析中不必关注的分析内容是
A.亮氨酸B.色氨酸C.赖氨酸D.蛋氨酸E.苏氨酸
以下局部急救处理冲洗溶液中,最适宜处理皮肤接触铬酸的是()
下列对项目管理目标责任书内容的认识,正确的有()。
除临时离职或因正当原因暂时不能工作的以外,会计人员在离职时都应办理交接手续。()
Weareconfidentthattheenvironment______byourfurthereffortstoreducepollution.
下图为美国农业带划分图,请在答题卡上写出图中字母所代表的农业带名称。A__________;B__________;C__________;D__________;E__________。
在面向对象的方法中,(44)是状态和操作(或方法)的封装体,(45)是所有对象的共同行为和不同状态的集合体,方法在类定义中使用(46)来定义,当一个操作被调用时,由(47)带来将被执行的这个操作的详细内容。
Purefeldsparisacolorless,transparentmineral,butimpuritiescommonlymakeitopaqueandcolorful.
最新回复
(
0
)