在考生文件夹下有文件in5.txt,文件中有几行汉字。请在Form1的窗体上画一个文本框,名称为Text1,能显示多行;再画一个命令按钮,名称为C1,标题为“存盘”。编写适当的事件过程,使得在加载窗体时,把in5.txt文件的内容显示在文本框中,然后在文本

admin2018-05-08  42

问题 在考生文件夹下有文件in5.txt,文件中有几行汉字。请在Form1的窗体上画一个文本框,名称为Text1,能显示多行;再画一个命令按钮,名称为C1,标题为“存盘”。编写适当的事件过程,使得在加载窗体时,把in5.txt文件的内容显示在文本框中,然后在文本的最前面手工插入一行汉字“计算机等级考试”(如图2.197所示)。最后单击“存盘”按钮,把文奉框中修改过的内容存到文件out5.txt中。
    注意:只能在最前面捅入文字,不能修改原有文字。文件必须存放在考生文件夹下,以sjt5,vbp为文件名存储工程文件,以sit5.frm为文件名存储窗体文件。

选项

答案【操作步骤】 步骤1:新建一个“标准EXE”工程,如表3.103在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写相应事什过程。 参考代码: Private Sub C1一C1ick() Open”out5.txt”For Output As#1 Print#1,Text1.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=Text1.Text+a$+ Chr(13)+Chr(10) Loop Ciose#1 End Sub 步骤3:按要求将文件保存至考生文件夹中。 步骤4:按键键运行程序,存文奉的最前面手工插入一行汉字:“计算机等级考试”,然后单击“存盘”按钮保存结果。

解析
转载请注明原文地址:https://jikaoti.com/ti/5uy0FFFM
0

最新回复(0)