首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下说明Visual Basic代码,回答问题1~2,将解答填入对应的栏内。 [说明] 本程序实现的功能是判断指定的文本文件中是否包含指定的字符串,并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示,用户只要通过驱动器列表
阅读以下说明Visual Basic代码,回答问题1~2,将解答填入对应的栏内。 [说明] 本程序实现的功能是判断指定的文本文件中是否包含指定的字符串,并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示,用户只要通过驱动器列表
admin
2009-02-15
49
问题
阅读以下说明Visual Basic代码,回答问题1~2,将解答填入对应的栏内。
[说明]
本程序实现的功能是判断指定的文本文件中是否包含指定的字符串,并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示,用户只要通过驱动器列表框、目录列表框选定文件夹,文件列表框会自动列出该文件夹下所有文本文件名称,选中其中某个文件,再输入目标字符串并且单击“查找”按钮,就能看到查找的结果。
在开发过程中,驱动器列表框名为Drive1,目录列表框名为Dirl,文件列表框名为File1,目标字符串输入框名为Text1,“查找”按钮名为Command1。
[Visual Basic 代码]
Private Sub Drivel_Change()
Dirl. Path=(1) ’更新目录列表框的路径
End Sub
Private Sub Dirl_Change( )
(2)= Dirl. Path ’更新文件列表框的路径 End Sub
Private Sub Commandl_Click( )
Dim fso, a As Object
Dim i, j As Integer
If (3) = "" Then ’判断是否已经选中某个文件
MsgBox "请选择一个文件文件!"
(4) ’退出事件过程
End If
’创建文件系统对象以及文本流对象
Set fso = CreateOhjecl( "Scripting. FileSystemOhject" )
Set a = fso. OpenTextFile( Dirl. Path & "/" &(3))
i=1
Do While (5)<> True ’逐行读取文件,直至文件末尾
strLine = a. ReadLine
j = InStr(1,(6))’返回目标字符串在文件这一行中的位置
If j > 0 Then ’如果目标字符串在这一行出现,则返回其位置
MsgBox "字符串第一次出现的位置是" & "(" & i & "," &j & "),,"
(4) ’退出事件过程
End If
i:i+l
Loop
MsgBox "字符串在文件中不出现,"
End Sub
选项
答案
[问题1](1)Drivel. Drive (2)File1. Path (3)File1. filename (4)Exit Sub (5)AtEndOfStream (6)str Line, Textl. Text [问题2](7)Pattern (8)*.* (9)*.jpg;*.bmp
解析
(1)~(2)驱动器列表框的Drive属性表示当前选择的驱动器;目录列表框的Path属性表示当前目录的路径,如:"c:\ucdos\bin";文件列表框的path属性则表示列表中文件所在的目录的路径。因此,我们通常都把驱动器列表框对象的Path属性和目录列表框、文件列表框的Path属性联系起来,以实现三者的连动;
(3)文件列表框的filename属性返回选定的不含路径的纯文件名称,如"bkspeak.exe"、"VB习题.txt"等; (4)Exit Sub语句用于提前结束过程,类似地语句还有 Exit For(提前退出For循环)以及Exit Do(提前退出Do循环)等;
(5)文本流对象的AtEndOfStream属性返回Boolean类型的值,表示是否到达流的末尾;
(6)instr是VB提供的字符串查找函数,常用格式是in- str(起始位置,字符串1,字符串2),功能是返回字符串 2在字符串1中首次出现的位置(若字符中2在字符串 1种不出现则返回0);
(7)~(9)文件列表框的Pattern属性用于限制文件列表框中文件的类型,格式为:文件列表框名.pattern=" *.扩展名1;*.扩展名2;……"(中间不包含空格),例如"*.txt"、"*.*"以及"*.txt;*.rtf;*. htm"等。
转载请注明原文地址:https://kaotiyun.com/show/RojZ777K
本试题收录于:
程序员下午应用技术考试题库软考初级分类
0
程序员下午应用技术考试
软考初级
相关试题推荐
在Windows7中,剪贴板是用来在程序和文件间传递信息的临时存储区,此存储区是______。
银行的信息非常重要,对信息以及信息处理的安全性要求很高。安全性包括多项任务,但不(24)。
在Excel当前工作表中有学生的数据表(包含学号、姓名、专业、课程、成绩等字段),为查询指定专业下每门课程的平均成绩,下列选项中最合适的方法是______。
下列选项中,不属于信息处理基本要求的是(22)。
对用户来说,信息系统的(14)反映了系统的功能。
在Excel中,若A1单元格中的函数为"=IF("教授">"助教",TRUE,FALSE)",按回车键后,A1单元格中的显示内容为______。
计算机处理的数字数据有数值数据和字符数据之分。对信息处理技术员来说,它们的主要区别是______。
Word定时自动保存功能可以()。
在Excel2003中,A1到E6单元格的值如下图所示,若在A7单元格中输入函数“=COUNTA(A1:E6)”,按回车键后,则A7单元格显示的值为(44)。
在Excel2010的A1单元格中输入函数“=ABS(ROUND(-1.478,2))”,按回车键后,A1单元格中的值为________________。
随机试题
课外校外教育指_____有计划、有目的、有组织的教育活动()
不用炒炭法炮制的药材是
根据《证券投资基金法》的规定,下列事项应当通过召开基金份额持有人大会审议决定的是?
下列哪种房地产不是按其经营使用方式来划分的()。
(2008)关于住宅层数变化对规划产生的影响,以下哪项不正确?
背景某框架剪力墙结构,框架柱间距9m,普通梁板结构,三层楼板施工当天气温为35℃,没有雨,施工单位制定了完整的施工方案,采用预拌混凝土,钢筋现场加工,采用多层板模板碗扣支撑,架子工搭设完支撑架后由木工制作好后直接拼装梁板模板,其施工过程如下:模板安装用具
“备案号”栏应填写()。“运输方式”栏应填写()。
邓小平指出:“不讲多劳多得,不重视物质利益,对少数先进分子可以,对广大群众不行,一段时间可以,长期不行。革命精神是非常宝贵的,没有革命精神就没有革命行动。但是,革命是在物质利益的基础上产生的,如果只讲牺牲精神,不讲物质利益,那就是唯心论。”这段话意在强调把
《权利法案》是英国政治史上的重要文件,下列各点属于该文件内容的是( )①国王无权废除法律或停止法律的执行;②人生来是自由的,并且在权利上是平等的;③不经议会同意,国王不能征税,不能在和平时期维持常备军;④议会有权监督国王大臣的活动
阅读以下文字,回答以下问题。这种群体意见通过传染、暗示、联想,结成了一种共同心理,把人们链接在一起,成为“粉群体”。他们能以最快的速度聚合,这种结合并非源于相同的阶层、职业、地域等关系,而仅仅是出于相同或近似的情绪、意见与态度。“粉”与“粉”之间
最新回复
(
0
)