首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开”按钮,则把文件中的内容读入并
在考生文件夹下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开”按钮,则把文件中的内容读入并
admin
2018-09-19
71
问题
在考生文件夹下有一个工程文件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 CommonDialogl.Filter="所有文件|*.*|文本文件|*.txt"设置过滤条件,过滤文件类型 CommonDialogl.FilterIndex=2’指定文件类型列表框中的值为所有文件 On Error GoTo openerr’如果出错则转回openerr CommonDialogl.InitDir =App.Path’指定打开对话框中的初始目录为App.Path CommonDialogl.ShowOpen’显示打开对话框 Open CommonDialog1.FileName ForInput As #1’打开指定文件 Input #1,s’读取文件到s Close #1’关闭文件 Text1.Text=s’s中记录了读取内容 openerr: End Sub Private Sub Command2一C1ick() ’考生需要编写的程序 Dim ch As String Dim S As String Dim n As Long S=Text1.Text Text1.Text="" For n=1 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)’将大写字母转换为小写 ElseIf 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 Click() CommonDialogl.Filter="文本文件|*.txt|所有文件|*.*| CommonDialogl.FilterIndex=1’指定文件类型列表框中的值为文本文件 On Error GoTo openerr CommonDialogl.FileName="out5.txt"’所选文件默认名 CommonDialogl.InitDir=Amp.Path CommonDialogl.Action=2’显示另存为对话框 Open CommonDialogl.FileName For Out.put As #1 Print#1,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/QBFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下程序代码:PrivateSubForm_Click()DimaAsIntegera=2Sum=0Fori=1To3Sum=Sum+f(a)Ne
有如下程序代码:PrivateSubForm_Click()Dima(3,3)AsIntegerForI=1To3Forj=1To3Ifj>1And
有如下程序:PrivateSubForm_Click()DimBAsStringDimmAsInteger,DecAsIntegerB=InputBox("请输入一个二进制数")m=L
为了用键盘打开菜单和执行菜单命令,第一步应按的键是( )。
设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。现经过一系列入队与退队运算后,front=15,rear=15,则循环队列中的元素个数为
设x=2,并有以下程序段:Ifx*x<1Theny=1Elsey=-1Printy-x<0该程序段的执行结果是
设窗体上有一个名称为Option1的单选按钮数组(其下标从0开始),共有4个单选按钮,并有下面事件过程:PrivateSubOption1_Click(IndexAsInteger)n=IndexIfIndex<3
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
某二叉树的中序序列为BDCA,后序序列为DCBA,则前序序列为
某二叉树共有845个结点,其中叶子结点有45个,则度为1的结点数为
随机试题
王老师在学校橱窗陈列了《黑白装饰画》一课的作业。该评价方法是()。
试述关税应纳税额的计算。
患儿1岁,因生长缓慢,智力低下,便秘,食量少,来门诊。体检:面容臃肿,伸舌,皮肤粗糙,心音低钝,心率78次/分,手足凉,腹胀。此患儿最可能的诊断是
根据《宪法》的规定,关于宪法文本的内容,下列哪一选项是正确的?()
下列砌块中含有铝粉的是:[2017—015]
发生不可抗力使合同不能履行或不能完成履行时,应依法()。
某车间共有40人,某次技术操作考核中40人的分数从低到高恰好构成一个等差数列:a1,a2,……,a40,并且平均分是90分,则a1+a8+a33+a40等于()
下列叙述中正确的是()。
Educationofexceptionalchildrenmeansprovisionofspecialeducationalservicestothosechildrenwhoareeitherhandicappedo
Whatpreventsthemanfromtakingthepoetsof1960’sclass?
最新回复
(
0
)