首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件Sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开” 按钮,则把文件中的内容读入
在考生文件夹下有一个工程文件Sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开” 按钮,则把文件中的内容读入
admin
2015-06-30
66
问题
在考生文件夹下有一个工程文件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,但运行时却没有最大化和最小化按钮,可能的原因是
以下控件可以用来实现定时地执行某段代码的是______。
建立一个通讯录的随机文件phonBook.txt,内容包括姓名、电话、地址和邮编,用文本框输入数据。单击“添加主记录”按钮Command1时,将文本框数据写入文件,单击“显示”按钮Command2时,将文件中所有记录内容显示在立即窗口。Priva
执行语句Open"TC.dat"ForRandomAs#1Len=50后,对文件TC.dat中的数据能执行的操作是()。
文本框TextBox中的内容若要设置为用户不能修改,应设置()属性。
下列关于MDI子窗体在运行时特性的叙述错误的是()。
下列选项中,不是一个算法的基本特征的是()。
在软件测试设计中,软件测试的主要目的是()
在E-R图中,用来表示实体联系的图形是
随机试题
强心苷引起的传导阻滞可选用的治疗药物是
手背各指缝中的赤白肉际,左右共八穴足背各趾缝端凹陷中,左右共八穴
白前的功效是
A市药品监督管理部门在日常监督检查中,发现B药店存在违法经营行为,对其作出警告,限期整改,并处罚金3万元。B药店法人对此处罚不服,决定提出行政复议。下列不属于行政诉讼受案范围的是()
某油田开发建设工程中一新开发的区块位于西北干旱地区,区域面积30km2。新开发区块与已有区块相邻,依托已有联合站。开发建设工程设计年产油3.0×10tt,原油通过新建的70km管线输送至联合站,经脱水除气处理后外输,脱水除气过程产生的天然气不含硫,用作燃气
甲公司为工业企业,对投资性房地产采用成本模式进行后续计量。2×21年1月甲公司以出让的方式取得一宗土地使用权,支付价款为4000万元,预计使用年限为50年,准备建造写字楼,董事会作出了正式书面决议,明确表明建成后将其用于经营出租且持有意图短期内不再发生变化
以下不属于公司法人人格否认制度的适用情形为()。
某地大面积停水,影响居民正常用水,而此时有人传谣,说停水是因为化工厂有害物质泄漏,你怎么处理?
甲公司欠缴税款20万元,税务局工作人员小刘和小孙来甲公司查账时,甲公司总经理王某和其朋友李某组织一伙社会人员挡在公司门口不让税务人员进门,并将税务人员小刘打成重伤。王某的行为构成()
设u=u(x,y),v=v(x,y)有连续的一阶偏导数且满足条件:F(u,v)=0,其中F有连续的偏导数且
最新回复
(
0
)