首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有文件in5.txt,文件中有几行汉字。请在Forml的窗体上画一个文本框,名称为Text1,能显示多行;再画一个命令按钮,名称为C1,标题为“存盘”。编写适当的事件过程,使得在加载窗体时,把in5.txt文件的内容显示在文本框中,然后在文本
在考生文件夹下有文件in5.txt,文件中有几行汉字。请在Forml的窗体上画一个文本框,名称为Text1,能显示多行;再画一个命令按钮,名称为C1,标题为“存盘”。编写适当的事件过程,使得在加载窗体时,把in5.txt文件的内容显示在文本框中,然后在文本
admin
2016-03-22
68
问题
在考生文件夹下有文件in5.txt,文件中有几行汉字。请在Forml的窗体上画一个文本框,名称为Text1,能显示多行;再画一个命令按钮,名称为C1,标题为“存盘”。编写适当的事件过程,使得在加载窗体时,把in5.txt文件的内容显示在文本框中,然后在文本的最前面手工插入一行汉字“计算机等级考试”(如图3.197所示)。最后单击“存盘”按钮,把文本框中修改过的内容存到文件out5,txt中。
注意:只能在最前面插入文字,不能修改原有文字。文件必须存放在考生文件夹下,以sjt5.vbp为文件名存储工程文件,以sjt5.frm为文件名存储窗体文件。
选项
答案
【操作步骤】 步骤1:新建一个“标准EXE”工程,按要求画出控件并设置属性。 步骤2:打开代码编辑窗口,编写相应事件过程。 参考代码: Private Sub C1 Click() Open”out5.txt”For Output As{}1 Print#1,Textl.Text Close #$1 End Sub Private Sub Form Load() Open“in5.txt”For Input As{}1 Textl.Text=“” Do While Not EOF(1) Line Input#1,aS Textl.Text =Textl.Text + a$ + Chr(13)+Chr(10) Loop C10Se#1 End Sub 步骤3:按
键运行程序,在文本的最前面手工插入一行汉字:“计算机等级考试”,然后单击“存盘”按钮保存结果。 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/I0Lp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列选项中,不属于模块间耦合的是
假定编写了如下4个窗体事件的事件过程,则运行应用程序并显示窗体后,已经执行的事件过程是
下列关于数据库设计的叙述中,正确的是
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:OptionBase1PrivateSubCommand1_Click()Dima s=0:j=1 a=Array(1,2,
测试的目的是暴露错误,评价程序的可靠性,而______的目的是发现错误的位置并改正错误。
表达式Int(-17.8)+Sgn(17.8)的值是()。
软件设计包括软件的结构、数据接口和过程设计,其中软件的过程设计是指()。
在E-R图中,用来表示实体的图形是()。
在窗体模块的声明段中用Public定义的变量可以在________模块中使用,而用Dim或Private关键字定义的变量可以在_______模块中使用。
在满足实体完整性约束的条件下
随机试题
不协调性子宫收缩乏力,正确的处理应为
下列选项中,属于成本计算账户的是
同时履行抗辩权和后履行抗辩权的适用条件中完全一致的条件是( )。
以下关于施工测量成果的评价正确的有()。
某苯甲酸车间,建筑高度为15m,耐火等级为二级,地下共1层,地上共3层,每层建筑面积4000m2,每层备有一个11人操作的10m2的检修平台,采用自动化生产线,人员较少,整个建筑未设置自动灭火系统,地上每层划分为一个防火分区。地下一层按长度平均划
政府会计制度依据基本准则制定,主要规定政府会计账户及账务处理、报表体系及编制说明等,与政府会计具体准则及应用指南相互协调、相互补充。()
下列生活常识说法不正确的是:
facebook
Itisthe"newfrontier",saysJapan’stradeministry.Japanesefirmshaveatlastnoticedthatemergingmarketsaregrowingmuc
EducationStudyFindsU.S.FallingBehindA)TeachersintheUnitedStatesearnlessrelativetonationalincomethantheircoun
最新回复
(
0
)