2. 计算机
  3. 在考生文件夹下有文件in5．txt，文件中有几行汉字。请在窗体Forml上绘制一个文本框，名称为Text 1，能显示多行；再绘制一个命令按钮，名称为Commandl，标题为“保存”。并编写适当的事件过程，使得在加载窗体时，把in5．txt文件的内容显示在文

在考生文件夹下有文件in5．txt，文件中有几行汉字。请在窗体Forml上绘制一个文本框，名称为Text 1，能显示多行；再绘制一个命令按钮，名称为Commandl，标题为“保存”。并编写适当的事件过程，使得在加载窗体时，把in5．txt文件的内容显示在文

admin2009-03-26  43
问题 在考生文件夹下有文件in5．txt，文件中有几行汉字。请在窗体Forml上绘制一个文本框，名称为Text 1，能显示多行；再绘制一个命令按钮，名称为Commandl，标题为“保存”。并编写适当的事件过程，使得在加载窗体时，把in5．txt文件的内容显示在文本框中，然后在文本的最前面手工插入一行汉字：“全国计算机等级考试”，如图36—5所示。最后单击“保存”按钮，可以把文本框中修改过的内容存到文件out5．txt中。

    注意：只能在最前面插入文字，不能修改原有文字。文件必须存放在考生文件夹中，以sj5．vbp为文件名存储工程文件，以sj5．fm为文件名存储窗体文件。
选项
答案根据题意，在窗体上添加一个文本框控件，其名称为Textl、MultiLine属性为True，一个命令按钮，其名称为Commandl、标题为“保存”。设置完成后，双击Commandl命令按钮进入代码窗口，编写如下代码： Private Sub Form Load() Open"App．Pathg&＼in5．txt"For Input As#1 Do While NOt EOF(1) Input#1．mystring Textl．Text=Textl．Text+mystring Loop Close#1 Textl．Text="全国计算机等级考试"+Textl．Text End Sub Private Sub Commandl_Click() Open App．Path&"＼out5．txt"For Output As#2 Print#2，Textl．Text Close#2 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/xV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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