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

admin2016-03-22  29

问题 在考生文件夹下有文件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://jikaoti.com/ti/koJ0FFFM
0

最新回复(0)