首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件Sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开” 按钮,则把文件中的内容读入
在考生文件夹下有一个工程文件Sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开” 按钮,则把文件中的内容读入
admin
2015-06-30
30
问题
在考生文件夹下有一个工程文件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 Command1_Click() Dim s As String CommonDialog1.Filter = "所有文件|*.*|文本文件|*.txt" ’ CommonDialog1.FilterIndex = ? On Error GoTo openerr CommonDialog1.InitDir = App.Path CommonDialog1.ShowOpen ’ Open ? For Input As #1 Input #1, s Close #1 ’ Text1.Text = ? openerr: End Sub Private Sub Command2_Click() ’ 考生需要编写的程序 End Sub Private Sub Command3_Click() CommonDialog1.Filter = "文本文件|*.txt|所有文件|*.*" CommonDialog1.FilterIndex = 1 On Error GoTo openerr CommonDialog1.FileName = "out5.txt" CommonDialog1.InitDir = App.Path ’ CommonDialog1.Action = ? Open CommonDialog1.FileName For Output As #1 Print #1, Text1 Close #1 openerr: End Sub 程序结束 参考答案 第1个?处填入:2 第2个?处填入:CommonDialog1.FileName 第3个?处填入:s 第4个?处填入:2 ’ 考生需要编写的程序 Private Sub Command2_Click() Dim ch As String Dim s As String Dim n As Long s = Text1.Text Text1.Text = "" For n = 1 To Len(s) ch = Mid(s, n, 1) If ch = "E" Or ch = "N" Or ch = "T" Then ch = LCase(ch) ElseIf ch = "e" Or ch = "n" Or ch = "t" Then ch = UCase(ch) End If Text1.Text = Text1 & ch Next End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/rtQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
新建一个窗体,其BorderStyle属性设置为FixedSingle,但运行时却没有最大化和最小化按钮,可能的原因是
VisualBASIC应用程序通常由3类模块组成,即窗体模块、【】和类模块。
以下程序段运行的结果是______。Dima(-1To5)AsBooleanDimflagAsBooleanflag=FalseDimiAsIntegerDimjAsIntegerD
在C盘当前文件夹下有一个已建立好的顺序文件Alph.txt,文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体,打开Alph.txt文件,读取字符串并显示在文本框Text1中,然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示
VisualBasic提供的对数据文件的三种访问方式为随机访问方式、______和二进制访问方式。
执行语句Open"TC.dat"ForRandomAs#1Len=50后,对文件TC.dat中的数据能执行的操作是()。
只能用来显示文本信息的控件是()。
下列对于软件测试的描述正确的是()。
下列选项中不属于结构化程序设计方法的是()。
VisualBasic根据计算机访问文件的方式将文件分成3类,其中不包括()。
随机试题
刑法分则某条文规定:犯A罪的,“处3年以下有期徒刑,并处或者单处罚金”。被告人犯A罪,但情节较轻,且其身无分文。对此,下列哪一判决符合该条规定?()
全身骨骼系统中变化最显著的部分是()
为了建立投资责任约束机制,规范建设项目法人行为,在()年,原国家计委就颁布了《关于实行建设项目法人责任制的暂行规定》,提出了实行建设项目法人责任制的具体规定和要求。
在Windows的“资源管理器”或“我的电脑”窗口中,要选择多个不相邻的文件以便对之进行某些处理器操作(如复制、移动),选择文件的方法为()。
在开放经济体系下,一国出现持续国际收支顺差,导致本币升值的情况下会选择的理财策略是()。
①在国际著名期刊发表论文②要求开展调查③实验结果遭质疑④获得大量科研经费⑤重复实验不成功
自由女神像是由()送给美国的?
UML结构包括了基本构造块,公共机制和(1)。UML中提供了扩展机制,其中,构造型(Stereotype)扩展了UML的(2),约束(Constraint)扩展了UML(3)。
下列关于Serv-UFTP服务器配置管理的描述中,正确的是()。
Ineverycultivatedlanguagetherearetwogreatclassesofwordswhich,takentogether,comprisesthewholevocabulary.First,
最新回复
(
0
)