(1)请在窗体上面画两个文本框，其名称分别为Textl和Text2，文本框内容设置为“模拟考试”和“顺利通过”。然后画两个单选按钮，其名称分别为Optionl和Option2，标题分别为“交换”和“连接显示”，编写适当的事件程序。程序运行后，如果选中“交换”单选按钮，则交换显示Textl和Text2中的内容；如果选中“连接显示”单选按钮，则连接后的内容显示在Textl中，初始状态不选中任何单选按钮。如图12—3所示。存盘时，工程文件名为Sj3．vbp，窗体文件名为sj3．frm。 注意：在结束程序运行时，必须先选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮，并将连接显示后的结果输出到考生文件夹下的out．txt文件中，否则可能无成绩。 (2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，在窗体上有两个命令按钮，名称分别为Commandl与Command2、标题分别为“读取文本”、“保存”。另有一个文本框，文本框的名称为Text1，Text属性为空，可多行显示。要求在运行程序时，单击“读取文本”按钮，可以读入考生文件夹下的in4.txt并显示在文本框中；单击“保存”按钮，可以把文本框中的数据存到考生文件夹下的另一个文件out4．txt中。程序运行时的窗体界面如图12—4所示。
【正确答案】正确答案： (1)根据题意，新建“标准EXE”工程，将两个文本框控件和两个单选按钮控件添加到窗体中，文本框的名称分别为Textl和Text2，Text属性分别为“模拟考试”和“顺利通过”，单选按钮的名称分别为Optionl和Option2，Caption属性分别为“交换”和“连接显示”，设置完成后双击Option进入代码窗口，编写如下代码： Private Sub Optionl Click() Dim str As String str=Textl．Text Textl．Text=Text2．Text Text2．Text=str End Sub Private Sub Option2 Click() Textl．Text=Textl．Text+Text2．Text Open"App．Path&＼out．txt"For Output As#1 Print#1，Textl．Text Close#1 End Sub 单击
按钮运行程序，并按要求保存。 (2)根据题意，将一个文本框控件和两个命令按钮添加到窗体中，文本框的名称为Textl，命令按钮的名称为分别为Commandl和Command2，Caption属性分别为“读取文本”和“保存”。双击Commandl进人代码窗口，编写如下代码： Dim rel AS String Private Sub Commandl_Click() Dim str As String str="" rel="" Textl．Text="" '初始化Textl的文本 Open"App．Path&＼in4．txt"For
Input
As#1 '打开文件，进行读取 While
EOF(1)=False
'判断文件是否读取完 Input#1，str'读取文本 Textl．
Text
=Textl．
Text
+str'在Textl中显示文本 Wend Close#1 End Sub Private Sub Command2_Click() Open”App．Path&＼out4．txt”For Output
As#2
Print#2，Textl．
Text
'将文本保存到sjout．txt文件中 Close#2 End Sub 单击
按钮运行程序，并按要求保存。 (2)根据题意，将一个文本框控件和两个命令按钮添加到窗体中，文本框的名称为Textl，命令按钮的名称为分别为Commandl和Command2，Caption属性分别为“读取文本”和“保存”。双击Commandl进人代码窗口，编写如下代码： Dim rel AS String Private Sub Commandl_Click() Dim str As String str="" rel="" Textl．Text="" '初始化Textl的文本 Open"App．Path&＼in4．txt"For
Input
As#1 '打开文件，进行读取 While
EOF(1)=False
'判断文件是否读取完 Input#1，str'读取文本 Textl．
Text
=Textl．
Text
+str'在Textl中显示文本 Wend Close#1 End Sub Private Sub Command2_Click() Open”App．Path&＼out4．txt”For Output
As#2
Print#2，Textl．
Text
'将文本保存到sjout．txt文件中 Close#2 End Sub 单击
【答案解析】