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

admin2019-05-14  24

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

    注意:只能在最前面插入文字,不能修改原有文字。文件必须存放在考生文件夹下,以sjt5.vbp 为文件名存储工程文件,以sjt5.frm 为文件名存储窗体文件。

选项

答案【操作步骤】 步骤1:新建一个“标准EXE”工程,按要求画出控件并设置属性。 步骤2:打开代码编辑窗口,编写相应事件过程。 参考代码: Private Sub C1_Click() 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 Text1.Text = "" Do While Not EOF(1) Line Input #1, a$ Text1.Text = Text1.Text + a$ + Chr(13) + Chr(10) Loop Close #1 End Sub 步骤3:按<F5>键运行程序,在文本的最前面手工插入一行汉字:“计算机等级考试”,然后单击“存盘”按钮保存结果。 步骤4:按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://kaotiyun.com/show/VTUp777K
0

相关试题推荐
最新回复(0)