首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件央下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开”按钮。则把文件中的内容读入并
在考生文件央下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开”按钮。则把文件中的内容读入并
admin
2015-10-23
105
问题
在考生文件央下有一个工程文件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全国计算机二级
相关试题推荐
在考生文件夹中有一个工程文件execise81.vbp及窗体文件execise81.frm。在名为Form1的窗体上已经绘制出所有控件,如下图所示。在Text1文本框中输入一个任意的字符串(要求串的长度≥10),然后选择组合框中的3个截取运算选项之一。单击
在考生文件夹中有工程文件execise80.vbp及窗体文件execise80.frm。在名为Form1的窗体上有一个名为Image1的图像框。要求程序运行后。鼠标左键单击图像框,则图像框变大;鼠标右键单击图像框,则图像框变小。如下图所示。本程序
在窗体Form1上绘制3个命令按钮,其名称分别为Cmd1、Cmd2和Cmd3,标题分别为“读数”、“计算”和“存盘”,如下图所示。程序运行后,如果单击“读数”按钮,则读入in511.tx
在考生文件夹中有一个工程文件execise36.vbp,相应的窗体文件名为execise36.fiano其窗体(Form1)如下图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密,加密结果(称为“密文”)显示在下面的文本框中。加密的方
在考生文件夹中有一个工程文件execise25.vbp,相应的窗体文件为execise25.timo在在名为Form1的窗体上有一个命令按钮,其名称为Cmd1,标题为“输入”;还有一个文本框,其名称为Text1,初始内容为空白。程序运行后,单击“输
在考生文件夹中有工程文件execise72.vbp及窗休文件execise72.frm。在名为Form1的窗口中有一个名称为Cmd1、标题为“读取字型”的命令按钮,一个名称为Com1的下拉组合框和一个提示标签Lab1。要求程序运行后,单击“读取字型”按钮读
不能脱离控件(包括窗体)而独立存在的过程是()。
下列叙述中,不符合良好程序设计风格要求的是
已知变量boolVar是一个布尔型的变量,如果要给其赋值为True,则正确的赋值语句就是______。
设A=2,B=-4,则表达式3*A>50rB+8>0的值是上______。
随机试题
运动时,下列哪一种叙述是不正确的()(1995年)
患者。女性,30岁。咳嗽2月,少量咳痰带血,乏力。无明显低热,无消瘦、无淋巴结肿大。查体:肺部无异常体征。应首先做哪项检查
男性,35岁。发热,胸部持续性钝痛二天,胸痛于仰卧时加剧,用硝酸甘油无效,心音减低,伴舒张期附加音,BP110/80mmHg,下肢水肿,静脉压180mmH2O,ECG:ST段抬高,弓背向下,未见Q波。下列体征不支持大量心包积液的是
某县暴发传染病,县政府主要领导以稳定、发展经济为由,要求并指示有关机构隐瞒传染疫情,造成传染病传播、流行。该主要领导应依法承担的行政责任是()
高层住宅内混凝土剪力墙与砖墙之间交接缝在抹灰前应采取防止开裂措施,当采用加强网时,加强网与各基体的搭接宽度不应少于( )。
某公司总经理在工作报告中对该公司的风险管理作了如下的介绍和描述:(1)该公司在上年度完成了风险管理;(2)企业风险管理的有效实施有赖于公司中层以上管理人员的工作;(3)公司的风险管理是企业层面的一项战略工作;(4)公司风险管理将确保
根据增值税法律制度的规定,纳税人销售货物向购买方收取的下列款项中,属于价外费用的有()。
午睡时,小玲指着墙上的一只虫子哇哇大哭,原来她被一只蜈蚣咬伤了。针对这种情况,当班老师应采取()的急救方法并立即报告幼儿园医务人员。
设u=u(x,y),v=v(x,y)有连续的一阶偏导数且满足条件:F(u,v)=0,其中F有连续的偏导数且
A、Councilmembersvetoedthebillontheminimumwage.B、Afinalvotewaspassedonraisingminimumwage.C、Protestersdemonstra
最新回复
(
0
)