首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图30—5所示),单击“打开”按钮,则把文件中的内容读
在考生文件夹下有一个工程文件sj5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图30—5所示),单击“打开”按钮,则把文件中的内容读
admin
2010-07-13
34
问题
在考生文件夹下有一个工程文件sj5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图30—5所示),单击“打开”按钮,则把文件中的内容读入并显示在文本框(Textl)中;单击“修改内容”按钮,则将Textl中的大写字母“E”、“N”、“T’’改为小写,把小写字母“e”、“n”、“t”改为大写;单击“保存文件”按钮,则弹出“另存为”对话框,默认文件类型为“文本文件”,默认文件夹为考生文件夹,默认文件为“out5.txt”(如图30—6所示),单击“保存”按钮,则将Textl中修改后的内容存到out5.txt文件中。
注意:窗体中已经给出了所有控件和程序,但程序不完整,去掉程序中的注释符(即“’”号),把程序中的“?”改为正确的内容,并编写“修改内容”按钮的Click事件过程。考生不得修改已经存在的程序。必须把Textl中修改后的内容用“保存文件”按钮存储结果,否则无成绩。最后,按照文件名将程序存盘。
选项
答案
本题主要考查文件操作,通用对话框的InitDir、Filterlndex、Filter和Action,通用对话框的ShowOpen方法,For循环语句,If判断选择语句,App.Path相对路径,Mid()函数,Len()函数,Ucase()函数以及Lease()函数。根据题意,编写如下代码: Option Explicit Private Sub Commandl_Click() Dim S As String CommonDialogl.Filter="所有文件|*.*|文本文件|*.txt" CommonDialogl.FilterIndex=2 On Error GoTo openerr CommonDialogl.InitDir=App.Path CommonDialogl.ShowOpen Open
CommonDialogl.FileName
For Input As#1 Input#1,S Close#1 Textl.Text=s openerr; End Sub Private Sub Command2 Click() 考生需要编写的程序 Dim ch As String Dim S As String Dim n As Long s=Textl.Text Textl.Text="" For n=1 To Len(s) ch=Mid(s,n,1) If eh="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 Textl.Text=Textl&ch Next n End Sub Private Sub Command3 Click() CommonDialogl.Filter="文本文件|*.txtl所有文件|*.*" CommonDialogl.FilterIndex=1 On Error GoTo openerr CommonDialogl.FileName="out5.txt" CommonDialogl.InitDir=App.Path CommonDialogl.Action=2 Open CommonDialogl.FileName For Output As#l Print#1,Textl Close#1 openerr: End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/pLmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面代码段的输出是()。if(5&7)0&&5|2)system.out.println("true");
数据结构中,与所使用的计算机无关的是数据的()。
若有如下程序:publicclassTest{publicstaticvoidmain(String[]args){intx=20;if(x>10)System.out.print(x-=5);if(x>5)Syste
当处理的数据量很多,或向文件写很多次少量的数据,一般使用( )流。
假设a是int类型的变量,并初始化为1,则下列选项中合法的条件语句是( )。
下面选项中不属于简单数据类型的是( )。
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是【】。
三元条件运算符ex1?ex2:ex3,相当于下面的( )语句。
下面Applet在窗口中实现一个不可编辑的TextField,并且显示“ok”。在横线处填入正确的语句。importjava.applet.Applet;importjava.awt.t;publicclassTestextendsApp
下列程序的功能是创建了一个显示5个"Hello!"的线程并启动运行,请将程序补充完整。publicclassThreadTestextendsThread{publicstaticvoidmain(Stringargs[]){Thre
随机试题
两套合成氨生产装置生产能力均为600kt/a,说明两套装置具有相同的生产强度。 ()
女,65岁。急性前壁心肌梗死后2个月复诊。日常活动感觉气短,有时心悸,无黑曚、晕厥。超声心动图示左室前壁节段性运动减弱,室壁瘤形成,左室扩大,LVEF30%。心电图示窦性心律,不完全性右束支传导阻滞,QRS时限0.10秒。追问病史:心梗发作时曾因室颤行电除
当企业的总资产周转率为1.5次/年时,会引起该指标下降的经济业务是()。
隧道埋深小于隧道开挖宽度时,地表沉降测点纵向布设间距宜为()。
()是指中央银行为了影响货币供应量、市场利率,而在金融市场上公开买卖有价证券的政策措施。
建设工程委托监理合同的专用条件是对( )中的某些条款进行补充修改。
1912年1月1日,中华民国临时政府在广州成立。()
Nearlyeleventhousandpeoplehavebeenarrestedfordefyingthebanonstreettrading.
Inthepastdecade,newscientificdevelopmentsincommunicationshavechangedthewaymanypeoplegatherinformationaboutpoli
Peoplejudgethesedeviationsfromthenormaspositivebecausetheysuggestthattheindividualispowerfulenoughtoriskthe
最新回复
(
0
)