问答题
在窗体上画1个文本框(名称为Text1，初始内容为空白，字体大小为12，允许多行显示)和1个命令按钮(名称为C1，标题为“存盘”)，编写适当的事件过程。程序运行后，把考生文件夹下in.txt文件的内容读入内存，并在文本框中显示出来，如图3—1所示；然后在文本的最前面手工插入一行汉字：“枫桥夜泊”，如图3—2所示。如果单击“存盘”命令按钮，则把文本框中修改过的内容保存到文件ont.txt中。
注意：只能在最前面插入文字，不能修改原有文字，存盘时，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。文件in.txt的内容如下：
注意：只能在最前面插入文字，不能修改原有文字，存盘时，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。文件in.txt的内容如下：
【正确答案】按以下步骤操作：
① 启动Visual Basic，在窗体上画1个文本框和1个命令按钮。
② 按F4键，激活属性窗口，在属性窗口中设置文本框和命令按钮的属性，见表4。表 4
③ 编写窗体的Load事件过程；
Private Sub Form_Load()
Open"in.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
在该过程中，从头到尾依次把in.txt文件中的每一行读到内存，然后在文本框中显示出来。在显示时，通过Chr(13)+Chr(10)实现回车换行，也可以通过vbGrLf常量实现换行。
④ 编写“存盘”命令按钮的Click事件过程：
Private Sub C1_Cliek()
Open"out.txt"For output As #1
Print #1,Text1.Text
Close #1
End Sub
该过程把当前文本框的内容写入文件out.txt。
⑤ 运行程序，在文本框中显示读入的文本，此时在文本框的顶部输入“枫桥夜泊”，单击“存盘”命令按钮。然后查看当前目录下是否已建立out.txt文件，其内容是否正确。
① 启动Visual Basic，在窗体上画1个文本框和1个命令按钮。
② 按F4键，激活属性窗口，在属性窗口中设置文本框和命令按钮的属性，见表4。
控件 | 属性 | 设置值 |
文本框 | 名称 Text MultiLine FontSize | Text1 (空白) True 12 |
命令按钮 | 名称 Caption | C1 存盘 |
Private Sub Form_Load()
Open"in.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
在该过程中，从头到尾依次把in.txt文件中的每一行读到内存，然后在文本框中显示出来。在显示时，通过Chr(13)+Chr(10)实现回车换行，也可以通过vbGrLf常量实现换行。
④ 编写“存盘”命令按钮的Click事件过程：
Private Sub C1_Cliek()
Open"out.txt"For output As #1
Print #1,Text1.Text
Close #1
End Sub
该过程把当前文本框的内容写入文件out.txt。
⑤ 运行程序，在文本框中显示读入的文本，此时在文本框的顶部输入“枫桥夜泊”，单击“存盘”命令按钮。然后查看当前目录下是否已建立out.txt文件，其内容是否正确。
【答案解析】