首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下说明Visual Basic代码,回答问题1~2,将解答填入对应的栏内。 [说明] 本程序实现的功能是判断指定的文本文件中是否包含指定的字符串,并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示,用户只要通过驱动器列表
阅读以下说明Visual Basic代码,回答问题1~2,将解答填入对应的栏内。 [说明] 本程序实现的功能是判断指定的文本文件中是否包含指定的字符串,并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示,用户只要通过驱动器列表
admin
2009-02-15
70
问题
阅读以下说明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
程序员下午应用技术考试
软考初级
相关试题推荐
在Excel中,若要计算出B3:E6区域内的数据的最大值并保存在B7单元格中,应在B7单元格中输入______。
在Windows7中,(27)可以让用户方便快捷地查看笔记本电脑的电池用量、调节笔记本电脑的屏幕亮度、打开或关闭无线网卡等。
常用的统计图表有:柱形图、条形图、折线图、饼图等。下图所示的统计图表类型为__________。
CPU的主要功能是(5)。
下列选项中,不属于信息安全基本要素的是(19)。
在某机床上加工一批零件,要求其直径控制在1.5±0.2cm。检验员定时抽查测量了产品的直径,并绘制了如下的质量控制图。检验结论是:有()次检查发现质量问题,需要进一步查明原因并改进。
假设“EXAM.DOC”文件夹存储在“EXAM1”文件夹中,“EXAM1”文件夹存储在“EXAM2”文件夹中,“EXAM2”文件夹存储在F盘的根文件夹中,当前文件夹为“EXAM1”。那么,正确描述“EXAM.DOC”文件的绝对路径表示为(37)。
计算机网络中,防火墙的功能不包括________________。
________________是按照科学的城市发展理念,利用新一代信息技术,通过人、物、城市功能系统之间的无缝连接与协同联动,实现自感知、自适应、自优化,形成安全、便捷、高效、绿色的城市形态。
Windows系统的控制面板不包括__________功能。
随机试题
组织形象的客观性
脑DSA检查可将导管置于
按分散系统来分,涂膜剂属于
甲公司出资70%,乙公司出资30%共同设立有限责任公司丙(注册资本2000万元),双方的《投资协议》约定:丙公司董事会成员为三人,第一任董事长由乙公司推荐、财务总监由甲公司推荐;股东拒绝参加股东会会议的,不影响股东会决议的效力。请回答题。若丙公司章程对
丙某从停泊在公海的走私船上购得匕首、砍刀、仿真枪支一批,价值40余万元,运到我国境内销售,偷逃应缴税额13万元,同时,丙某顺便购得伪造的美元15万元,一并运到我国境内,加价后出售给他人。丙某的行为:()
对于拱式桥,拱轴线两端点之间的水平距离,是指()。
从所给的四个选项中,选择最合适的一个填入问号处,使之呈现一定的规律性。
一个瓶子的瓶内容积为204cm3(见图),瓶口向上正放时,瓶内水的高度为14cm,瓶口向下倒放时,剩余部分的高度为3cm,则瓶内的水的体积是()cm3。
TheUSspendstwiceasmuchonhealthcareasotherrichcountries.Themoreacountryspendsonhealthcare,thebettercarei
Howwouldyouliketosave50%onarentalcar?ContactNationalCarRentaltoday!Youpayjusthalftheusualrateonweekendr
最新回复
(
0
)