首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件央下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开”按钮。则把文件中的内容读入并
在考生文件央下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开”按钮。则把文件中的内容读入并
admin
2015-10-23
52
问题
在考生文件央下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开”按钮。则把文件中的内容读入并显示在文本框(Text1)中;单击“修改内容”按钮,则将Text1中的大写字母“E”、“N”、“T”改为小写,把小写字母“e”、“n”、“t”改为大写;单击“保存文件”按钮,则弹出“另存为”对话框,默认文件类型为“文本文件”,默认文什央为考生文件夹,默认义件为“out5.txt”(如图2所示),单击“保仔”按钮,则将Text1中修改后的内容存到out5.txt文什中。
窗体中已经给出了所有控件和程序,但程序不完整,去掉程序中的注释符,把程序中的?改为正确的内容,并编写“修改内容”按钮的Click事件过程。
注意:考生不得修改已经存在的程序。必须把Text1中修改后的内容用“保存文件”按钮存储结果,否则无成绩。最后。按照原文件名将程序存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Private Sub Commandl—Click() Dim S As String CommonDialogl.Filter=“所有文件|*.*文本文件|*.txt”’设置过滤务件,过滤文件类型 CommonDialog1.FilterIndex=2’指定文件类型列表框中的值为所有文件 On Error GoTo openerr。如果出错则转回openerr CommonDialog1.InitDir=App.Path’指定打开对话框中的初始目录为App.Path CommonDialog1.ShowOpen’显示打开对话框 Open CommonDialog1.FileName For InputAs#1’打开指定文件 Input#1,s’读取文件到S Close#1’关闭文件 Text1.Text=s’s中记录了读取内容 Openerr: End Sub Private Sub Co.unand2 C1ick() ’考生需要编写的程序 Dim ch As String Dim S As String Dim n As Long S=Textl.Text Textl.Text="" For n= To Len(s)’查找文本中的“E”、“N”、“T”、“e”、“n”、“t”并做相应的改变 ch:Mid(S,n,1) If ch="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 Text1.Text=Text1&ch Next n End Sub Private Sub Command3 C1 ick() CommonDialog1.Fiiter="文本文件|*.txt所有文件|*.*" CommonDialogl.FilterIndex=1’指定文件类型列表框中的值为文本文件 On Error GoTo openerr CommonDialogl.FileName="out5.txt"’所选文件默认名 CommonDialog1.InitDir=App.Path CommonDialog1.Action=2’显示另存为对话框 Open CommonDialog1.FileName For OutputAS#1 Print粗,Text1 Close#1 openerr: End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘,如图3.30所示。 [*]
解析
打开文件的命令是Open,其常用形式为:
Open"文件名"For模式As[#]文件号[Len=记录长度]
模式有Output(打开文件,对其进行写操作)、Input(打开文件,对其进行读操作)以及Append(打开文件,在文件末尾追加记录)。
通过通用对话框的InitDir、Fiherlndex、Filter、Action属性设置对话框,并且通过ShowOpen方法打开对话框。运用For循环语句和If判断选择语句寻找字母,并按照要求使用大小写转换函数实现大小写的转换。
转载请注明原文地址:https://kaotiyun.com/show/cULp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹中有一个工程文件execise1.vbp及其窗体文件execise1.tim。请在名为Form1的窗体上建立一个菜单,主菜单项为“项目”(名称为vbItem),它有两个子菜单项,其名称分别为vbAdd和vbDelete,标题分别为“添加”
在考生文件夹下有工程文件execise26.vbp及窗体文件execise26.frm。在名为Form1的窗体上有3个Labe1控件和2个名称分别为Cmd1和Cmd2,标题分别为开始和End的命令按钮。编写函数ITEM(A,N),其功能是由数字A组成的不多
在名为Form1的窗体上建立一个文本框(名称为Text1,MultiLine属性为True,ScrollBars属性为2)和两个命令按钮(名称分别为Cmd1和Cmd2,标题分别为Read和Save,如下图所示。
在考生文件夹中有一个工程文件esecise61,vbp(相应的窗体文件名为exeeise61.fnn),请装入该文件,在名为Form1的窗体上绘制两个命令按钮(其名称分别为Cmd1和Cmd2,标题分别为Add和Delete),再绘制一个列表框(名称为Lis
在考生文件夹中有一个工程文件execise60.vbp,相应的窗体文件为execise60.frm。在名为Form1的窗体上有两个命令按钮,其名称分别为Cmd1和Cmd2;一个标签控件,其名称为Lab1;一个计时器控件,其名称为Timer1。程序运
在名为Form1的窗体上建立一个文本框(名称为Text1,MultiLine属性为True,SerollBars属性为2)和两个命令按钮(名称分别为Cmd1和Cmd2,标题分别为Read和Save),如下图所示。
设A="345678",则表达式Val(Mid(A,4,2)+Right(A,4))的值为______。
表示滚动条控件取值范围最大值的属性是()。
下列叙述中,不符合良好程序设计风格要求的是
设A="87654321",则表达式Vd(LeR(A,4)+Mid(A,4,2))的值为()。
随机试题
德育内容
离开中国实际和时代发展来谈论马克思主义没有意义。()
A.炉膛B.真空装置C.产热及调温装置D.显示窗E.键盘使瓷体熔化时不受氧化、不产生气泡、排出炉内异常气体的装置是
有风时,取样时间大于0.5h,横向扩散参数及稀释系数满足( )。
背景资料:某承包人承接了一座大桥工程,该桥采用Ф1.6m的桩基础,桩长约25~32m;桥位处地层均为天然砂砾,地下水位在原地面下约1.5m处。其桩基主要施工过程如下:平整场地、用水准仪进行桩位放样、埋设钢护筒、选用正循环回旋钻机作为成
配额与许可证这两种限制措施既可单独使用,也可以结合在一起使用,我国目前采用的是()。
基金管理人的合规管理部门实施的合规风险评估和测试,包括()。Ⅰ.通过现场审核对各项政策和程序的合规性进行测试Ⅱ.询问政策和程序存在的缺陷,并进行相应调查Ⅲ.合规性测试结果通过合规风险报告路线向上报告
下列关于营业推广的说法,正确的有()。
维果茨基的最近发展区是指()
门诊发现传染病患者时,应立即采取的措施是()。
最新回复
(
0
)