2. 计算机
  3. 在窗体上画1个文本框(名称为Text1，初始内容为空白，字体大小为12，允许多行显示)和1个命令按钮(名称为C1，标题为“存盘”)，编写适当的事件过程。程序运行后，把考生文件夹下in.txt文件的内容读入内存，并在文本框中显示出来，如图3—1所示；然后在文

在窗体上画1个文本框(名称为Text1，初始内容为空白，字体大小为12，允许多行显示)和1个命令按钮(名称为C1，标题为“存盘”)，编写适当的事件过程。程序运行后，把考生文件夹下in.txt文件的内容读入内存，并在文本框中显示出来，如图3—1所示；然后在文

admin2009-03-17  57
问题 在窗体上画1个文本框(名称为Text1，初始内容为空白，字体大小为12，允许多行显示)和1个命令按钮(名称为C1，标题为“存盘”)，编写适当的事件过程。程序运行后，把考生文件夹下in.txt文件的内容读入内存，并在文本框中显示出来，如图3—1所示；然后在文本的最前面手工插入一行汉字：“枫桥夜泊”，如图3—2所示。如果单击“存盘”命令按钮，则把文本框中修改过的内容保存到文件ont.txt中。
注意：只能在最前面插入文字，不能修改原有文字，存盘时，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。文件in.txt的内容如下：
选项
答案按以下步骤操作： ① 启动Visual Basic，在窗体上画1个文本框和1个命令按钮。 ② 按F4键，激活属性窗口，在属性窗口中设置文本框和命令按钮的属性，见表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文件，其内容是否正确。
解析
转载请注明原文地址:https://kaotiyun.com/show/vk1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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