首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下说明Visual Basic代码,回答问题1~2,将解答填入对应的栏内。 [说明] 本程序实现的功能是判断指定的文本文件中是否包含指定的字符串,并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示,用户只要通过驱动器列表
阅读以下说明Visual Basic代码,回答问题1~2,将解答填入对应的栏内。 [说明] 本程序实现的功能是判断指定的文本文件中是否包含指定的字符串,并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示,用户只要通过驱动器列表
admin
2009-02-15
53
问题
阅读以下说明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
程序员下午应用技术考试
软考初级
相关试题推荐
为查看Windows系统当前正在运行哪些应用程序或进程,可用(43)组合键实现。
在Excel中,若A1单元格的值为5,在B1单元格输入函数“=A1-10”,则B1单元格的值为______。
下列选项中,既是输入设备又是输出设备的是(6)。
在Excel2003中,A1到E6单元格的值如下图所示,若在A7单元格中输入函数“=COUNTA(A1:E6)”,按回车键后,则A7单元格显示的值为(44)。
计算机硬件唯一能够直接识别和处理的语言是(30)________________。
某数字校园平台的系统架构包括用户层和以下四层。制作各种可视化图表的工具属于(14)________________。
在Excel2010中,C3:C7单元格中的值分别为10、OK、20、YES和48,在。D7单元格中输入函数“=COUNT(C3:C7)”,按回车键后,D7单元格中显示的值为________________。
在Excel2007中,在单元格A1中输入函数“=LEN(”信息处理技术员”)”,按回车键后,则A1单元格中的值为__________。
在Excel2003中,A1到E6单元格的值如下图所示,若在A7单元格中输入计算众数的函数“=MODE(A1:E6)”,按回车键后,则.A7单元格显示的值为(47)。
随机试题
下列哪项禁忌腰穿()
肠结核出现腹部肿块最常见于
开放性气胸的现场急救措施首先是
某机械装备制造厂,始建于1970年,厂区东西长800m,南北宽600m。生产部门有铸造、铆焊、机加、电镀、涂装、总装等车间,公用部门有锅炉房、油化库等,环保设施有车间污水处理站、全厂污水处理站等。其中,锅炉房现有2台10t/h燃煤蒸汽锅炉(1用1备),烟
下列属于应当承担缔约过失责任的情形是()。
金属切削机床加工的特点有()。
下列关于债券报价的主要方式,说法有误的是()。
现代京剧《红灯记》中,演唱以下唱段的人物是()。
劳动教养,是指对不满16周岁而不予刑事处罚的少年犯罪人员,集中进行文化教育、法律教育、职业技术教育的一种行政强制措施。( )
InWashingtonD.C.,1600PennsylvaniaAvenueisaveryspecialaddress.ItistheaddressoftheWhiteHouse,thehomeofthep
最新回复
(
0
)