首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下说明及Visual Basic代码,将应填入(n)处的字句写在对应栏内。 [说明] 下图是一个简易文本编辑器程序的运行界面: 用户打开磁盘上的某个文件后,可以直接对文本进行编辑,也可以利用界面提供的按钮完成相应操作。主要操作介绍如下:
阅读以下说明及Visual Basic代码,将应填入(n)处的字句写在对应栏内。 [说明] 下图是一个简易文本编辑器程序的运行界面: 用户打开磁盘上的某个文件后,可以直接对文本进行编辑,也可以利用界面提供的按钮完成相应操作。主要操作介绍如下:
admin
2012-12-10
71
问题
阅读以下说明及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
程序员下午应用技术考试
软考初级
相关试题推荐
下列快捷功能按钮中,可以在画好的图形内填充颜色的是(49)。
在Excel2003中,A1到E6单元格的值如下图所示,若在A7单元格中输入计算众数的函数“=MODE(A1:E6)”,按回车键后,则.A7单元格显示的值为(47)。
在Excel中,若A1单元格中的内容为“全国计算机技术与软件专业技术资格(水平)考试”,在A2单元格中输入函数=LEFT(A1,2),则A2单元格显示的内容是______。
在Windows7中,若删除桌面上某个应用程序的快捷方式图标,则(31)。
PowerPoint可以通过插入(55)来完成统计、计算等功能。
若在Excel的A1单元格中输入函数“=SUM(1,12,false)”,按回车键后,则A1单元格中显示的值为________。
某公司下设4个分公司A、B、C、D,上月各分公司的销售额及其在总公司所占比例如下表所示。由于此表单受潮,有些数据看不清了,但还可以推算出来。根据推算, D公司上月的销售额为(68)万元。
在Windows7运行时,为强行终止某个正在持续运行且没有互动反应的应用程序,可按组合键Ctrl+Alt十Del启动(24)________________,选择指定的进程和应用程序,结束其任务。
综合布线系统由6个子系统组成,将图1-1中(1)~(6)处空缺子系统的名称填写在答题纸对应的解答栏内。为满足公司要求,通常选用什么类型的信息插座?
防火墙包过滤规则的默认策略为拒绝,下表给出防火墙的包过滤规则配置界面。若要求内部所有主机能使用IE浏览器访问外部IP地址为202.117.118.23的Web服务器,为图中(1)~(4)空缺处选择正确答案。(1)A.允许B.拒绝(2)A.192
随机试题
男女两性在青春期以前生殖腺内是以下何种情况
头两侧疼痛,属
高级旅馆客房宜采用的空调方式是()
隧道软弱围岩施工应遵循的原则包括()。
甲、乙、丙共同出资设立了A有限责任公司,后丙与丁达成协议,准备将其在A公司的出资全部转让给丁,丙就此事书面通知甲和乙征求意见。下列解决方案中,符合规定的有()。
以下对审核结论说法不正确的是_______。
下列行为中,属于可撤销民事行为的是()。
戊戌变法和辛亥革命的共同点有
设随机变量X的概率密度为记事件A={X≤1},对X进行4次独立观测,到第四次事件A刚好出现两次的概率就为q,则q_______.
I此处需填入nothing的后置定语,为形容词或分词。根据comedyshows(喜剧表演),选择funny“可笑的”,句子表示大部分美国人觉得英国的喜剧没有什么可笑之处。
最新回复
(
0
)