2012年计算机二级VB上机试题及解题思路第十三套

　　注意：下面出现的“考生文件夹”均为%USER%

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

　　*注意：

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

　　解题思路：

　　启动Visual Basic系统，创建一个Form1窗体。

　　在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1，多行(MultiLine属性)设为True。画一个命令按钮控件，通过其属性窗口将名称设为C1，标题(Caption属性)设为“存盘”。

　　加载窗体(即运行窗体的Load事件过程)，在该Load事件过程中加入语句：

　　Private Sub Form_Load()

　　Open App.Path & "\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

　　单击“存盘”按钮(即运行Click事件过程)，在该Click事件过程中加入语句：

　　Private Sub C1_Click()

　　Open App.Path & "\out5.txt" For Output As #1

　　Print #1, Text1.Text

　　Close #1

　　End Sub

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt5.vbp文件并运行。

　　相关推荐：

　　2012年计算机等考四级数据库工程师备考笔记汇总

　　2012年计算机等级考试二级VB重点知识汇总

　　2012年下半年计算机等级考试报名时间及入口汇总