首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图30—5所示),单击“打开”按钮,则把文件中的内容读
在考生文件夹下有一个工程文件sj5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图30—5所示),单击“打开”按钮,则把文件中的内容读
admin
2010-07-13
50
问题
在考生文件夹下有一个工程文件sj5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图30—5所示),单击“打开”按钮,则把文件中的内容读入并显示在文本框(Textl)中;单击“修改内容”按钮,则将Textl中的大写字母“E”、“N”、“T’’改为小写,把小写字母“e”、“n”、“t”改为大写;单击“保存文件”按钮,则弹出“另存为”对话框,默认文件类型为“文本文件”,默认文件夹为考生文件夹,默认文件为“out5.txt”(如图30—6所示),单击“保存”按钮,则将Textl中修改后的内容存到out5.txt文件中。
注意:窗体中已经给出了所有控件和程序,但程序不完整,去掉程序中的注释符(即“’”号),把程序中的“?”改为正确的内容,并编写“修改内容”按钮的Click事件过程。考生不得修改已经存在的程序。必须把Textl中修改后的内容用“保存文件”按钮存储结果,否则无成绩。最后,按照文件名将程序存盘。
选项
答案
本题主要考查文件操作,通用对话框的InitDir、Filterlndex、Filter和Action,通用对话框的ShowOpen方法,For循环语句,If判断选择语句,App.Path相对路径,Mid()函数,Len()函数,Ucase()函数以及Lease()函数。根据题意,编写如下代码: Option Explicit Private Sub Commandl_Click() Dim S As String CommonDialogl.Filter="所有文件|*.*|文本文件|*.txt" CommonDialogl.FilterIndex=2 On Error GoTo openerr CommonDialogl.InitDir=App.Path CommonDialogl.ShowOpen Open
CommonDialogl.FileName
For Input As#1 Input#1,S Close#1 Textl.Text=s openerr; End Sub Private Sub Command2 Click() 考生需要编写的程序 Dim ch As String Dim S As String Dim n As Long s=Textl.Text Textl.Text="" For n=1 To Len(s) ch=Mid(s,n,1) If eh="E"Or ch="N"Or ch="T"Then ch=LCase(ch) Elself ch="e"Or ch="n"Or ch="t"Then ch=UCase(ch) End If Textl.Text=Textl&ch Next n End Sub Private Sub Command3 Click() CommonDialogl.Filter="文本文件|*.txtl所有文件|*.*" CommonDialogl.FilterIndex=1 On Error GoTo openerr CommonDialogl.FileName="out5.txt" CommonDialogl.InitDir=App.Path CommonDialogl.Action=2 Open CommonDialogl.FileName For Output As#l Print#1,Textl Close#1 openerr: End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/pLmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Java对文件类提供了许多操作方法,能获得文件对象父路径名的方法是()。
若有如下程序:publicclassTest{publicstaticvoidmain(String[]args){intx=20;if(x>10)System.out.print(x-=5);if(x>5)Syste
假设a是int类型的变量,并初始化为1,则下列选项中合法的条件语句是( )。
在Applet中,下列方法中能完成主类实例初始化工作的是( )。
如果不为类的成员变量定义初始值,Java会给它们设置默认值。下列说法中不正确的是( )。
两个或两个以上的模块之间关联的紧密程度称为( )。
复选框通过【】来监听ItemEvent事件。
Java的简单性首先体现在自身系统的精炼上,它的基本解释程序和【】占内存40KB,附加的基本标准类库和支持线程程序占175KB。
下列程序的功能是创建了一个显示5个"Hello!"的线程并启动运行,请将程序补充完整。publicclassThreadTestextendsThread{publicstaticvoidmain(Stringargs[]){Thre
算法复杂度主要包括时间复杂度和______复杂度。
随机试题
目前,证券投资基金的主流产品是()。
患者男性,63岁,颊癌术后7年,术后曾行颈部及颌下区放疗,剂量不详。3个月前行出现下颌牙龈溃疡,经久末愈且局部骨外露伴下颌区域针刺剧痛。
下列哪项不是印堂的主治病证
如图所示为110kV配电装置变压器间隔断面图(局部),已知110kV系统为中性点有效接地系统,变压器为油浸式。请回答下列问题。若变电所有两台变压器,单台变压器的油量均超过1000kg,当同时设置储油坑及总事故油池(设置油水分离),它们的容量应是下列
多方案报价法不适用于下列工程项目()。
为保证绩效考评的公正性,企业人力资源部门应当确立()两个保障系统。
绘制中华人民共和国简图,并标示出120°E、110°E、90°E三条经线和30°N、40°N、北回归线三条纬线。
科学发展观的本质和核心是坚持“科学技术是第一生产力”。()
Although"liedetectors"arewidelyusedbygovernments,policedepartmentsandbusinesses,theresultsarenotalwaysaccurate.
A、Inarestaurant.B、Inalibrary.C、Inaclassroom.D、Onabus.A男士问女士这个位子有人吗,女士回答说应该没有,刚才有个人吃过午饭离开了。由此可知,对话可能发生在饭店里。
最新回复
(
0
)