首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有文件in5.txt,文件中有几行汉字。请在Forml的窗体上画一个文本框,名称为Text1,能显示多行;再画一个命令按钮,名称为C1,标题为“存盘”。编写适当的事件过程,使得在加载窗体时,把in5.txt文件的内容显示在文本框中,然后在文本
在考生文件夹下有文件in5.txt,文件中有几行汉字。请在Forml的窗体上画一个文本框,名称为Text1,能显示多行;再画一个命令按钮,名称为C1,标题为“存盘”。编写适当的事件过程,使得在加载窗体时,把in5.txt文件的内容显示在文本框中,然后在文本
admin
2016-03-22
52
问题
在考生文件夹下有文件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://kaotiyun.com/show/I0Lp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
函数过程Fun1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。FunctionFun1(bAsInteger)if_____ThenFun1=0ElseFun1=
要触发组合框的DblClick事件,只有将组合框的Style属性设置为
算法的时间复杂度是指
线性表L=(a1,a2,a3,…ai,…an),下列说法正确的是
引用列表框(List1)最后一个数据项应使用
下面的数组声明语句中正确的是
表达式String(2,"Shanghai")的值是()。
下列叙述中,不属于软件需求规格说明书的作用的是
下列叙述中错误的是
一棵二叉树共有25个结点,其中5个是叶子结点,则度为1的结点数为
随机试题
Graves病患儿经他巴唑治疗症状缓解后,甲状腺反而增大,此时应该
下列不是共同海损必须具备的特点的是()
IoncewenttoatowninthenorthofEnglandonbusiness.Itwasabout7:30intheeveningwhenIreachedthehotel.Them
异位妊娠常发生的部位是( )
变现性差是指房地产投资在短期内无损变现的能力差,这与房地产资产的()特征密切相关。
依据《消防法》的规定,下列单位中应建立专职消防队的是()。
材料自来源地运至工地仓库或指定堆放地点所发生的全部费用是()。
A公司因向B公司购买一批产品,签发一张金额为10万元的支票给B公司,B公司为支付工程价款又将该支票背书转让给C公司,C公司接受后,不慎将支票遗失,该支票被D公司拾获,D公司便伪造了C公司的签章,并将支票转让给不知情的E公司,E公司又将该支票的金额改为18万
Studythefollowingpicturecarefullyandwriteanessayofabout160—200words.Youressaymustbewrittenclearlyandshouldm
Fewpeopledoubtthefundamentalimportanceofmothersinchild-rearing,butwhatdofathersdo?Muchofwhattheycontributeis
最新回复
(
0
)