首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件Sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开” 按钮,则把文件中的内容读入
在考生文件夹下有一个工程文件Sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开” 按钮,则把文件中的内容读入
admin
2015-06-30
17
问题
在考生文件夹下有一个工程文件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,但运行时却没有最大化和最小化按钮,可能的原因是
数据结构分为逻辑结构和存储结构,循环队列属于______结构。
设己打开5个文件,文件号为1、2、3、4、5。要关闭所有文件,则以下语句正确的是()。
在子过程Sub…EndSub中使用的形式参数可以是()。
VisualBasic提供的对数据文件的三种访问方式为随机访问方式、______和二进制访问方式。
窗体上有一个命令按钮Commalld1和一个列表框List1。先选择列表框中的某一个项目,然后单击命令按钮,将该项目从列表框删除。程序如下:PrivateSubCommand1_Click()DimInAsInteger
在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。则在以下横线处合适的语句是()。PrivateSubForm_Cli
可以作为其他控件容器的控件是()。
已知代数式eXSin(30°)2x/(x+y)Lnx,则正确的VisualBasic表达式为()。
随机试题
公共关系作为一种职业和学科,最早产生于()
Ithinkyouhavegotacuteappendicitis,probablyperforated.
全程肉眼血尿提示血尿源于
治疗妊娠期高血压疾病,首选的解痉药是
在I程网络计划的实施过程中,监理工程师检查实际进度时只发现工作M的总时差由原计划的3天变为-2天,说明工作M的实际进度( )。
Word2000文档可以保存为“纯文本”类型。()
一国政府或其财政部门所采取的导致该国货币对其他国家的即期外汇的买入、卖出汇率的差价和该国各种汇率之间买入、卖出汇率的差价超过2%者,国际货币基金组织均视其为实行复汇率。
栈S和队列Q的初始状态皆为空,元素a1,a2,a3,a4,a5和a6依次通过S栈,一个元素出栈后即进入队列Q,若6个元素出队列的顺序是a3,a4,a2,a1,a5,a6,则栈S至少应容纳()个元素。
∫f’(x)dx=________,∫abf’(2x)dx=________.
CantheInternethelppatientsjumpthelineatthedoctor’soffice?TheSiliconValleyEmployersForum,asophisticatedgroupo
最新回复
(
0
)