问答题

在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上画两个框架，其名称分别为F1和 F2，标题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮，名称分别为Op1和 Op2，标题分别为“飞机”和“火车”。在F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为“广州”和“昆明”。然后画一个命令按钮，其名称为C1，标题为“确定”。再画一个文本框，其名称为Text1。编写适当事件过程。程序运行后，选择不同单选按钮时产生的显示结果见下表1。 表 1

	选中的单选按钮		单击“确定”按钮后产生的结果(文 本框中显示的内容)
	交通工具	到达目标
第一种情况	飞机	广州	坐飞机去广州
第二种情况	飞机	昆明	坐飞机去昆明
第三种情况	火车	广州	坐火车去广州
第四种情况	火车	昆明	坐火车去昆明

存盘时，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
2．在窗体上画2个单选按钮(名称分别为Op1和Op2，标题分别为“加法”和“乘法”)、3个文本框(名称分别为Text1、Text2、Text3，高度和宽度均为400和1500)和1个命令按钮(名称为C1，标题为“计算”，高度为400，宽度为1000)，如图2—1所示，编写适当的事件过程。程序运行后，在Text1和Text2中分别输入12和22两个整数，并选择一个单选按钮，单击“计算”按钮后，可根据所选择的单选按钮进行加法或乘法运算，并把结果在Text3中显示出来，同时把加法结果存入文件out4—3—1.txt中，乘法结果存入文件out4—3—2.txt中。程序的运行情况如图2—2所示。
存盘时，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。


在考生文件夹中有一个标准模块m1.bas，该模块中提供了保存文件的过程putdata1和 putdata2，可用来把加法结果和乘法结果分别存入文件out4—3—1.txt和out4—3—2.txt中，考生可以直接装入该标准模块，然后调用putdata1和putdata2过程保存文件。两个过程的代码如下：
Sub putdata1(x As Integer)
Open".\out4—3—1.txt"For Output As #1
Print #1,x
Close #1
End Sub
Sub putdata2(x As Integer)
Open".\out4—3—2.txt"For Output As #1
Print #1,x
Close #1
End Sub