【答案解析】① 打开题目提供的工程文件，建立控件和设置控件属性。
程序中用到的控件如下表3所示 表 3

控件	属性	设置值
框架	Name Caption	F1 “交通工具”
框架	Name Caption	F2 “到达目标”
单选按钮	Name Caption	Op1 “飞机”
单选按钮	Name Caption	Op2 “火车”
单选按钮	Name Caption	Op3 “广州”
单选按钮	Name Caption	Op4 “昆明”
单选按钮	Name Caption	C1 “确定”
文本框	Name	Text1

　　② 编写程序代码
题目提供的程序代码：
　　Private Sub Form Unload(Cancel As Integer)
　　　　Open"out.txt"For Output As #1
　　　　Print #1,Op1.Value,Op2.Value,
　　　　Op3. Value, Op4. Value, Text1.
　　　　Text
　　　　Close #1
　　End Sub
　　参考代码：
　　Private Sub C1_Click()
　　　 Dim str1 As String
　　　 Dim str2 As String
　　　 If Op1 Then
　　　　　 str1=Op1.Caption
　　　 Else
　　　　　 str1＝Op2.Caption
　　　 End If
　　　 If Op3 Then
　　　　　 str2=Op3.Caption
　　　 Else
　　　　　 str2=Op4.Caption
　　　 End If
　　　 Text1.Text＝"坐" & str1 & "去" &
　　　 str2
　　End Sub
　　③ 按题目要求存盘并进行相应的操作。
2．按以下步骤操作：
　　① 启动Visual Basic，在窗体上面3个文本框、2个单选按扭和1个命令按钮。
　　② 按F4键激活属性窗口，在属性窗口中设置各控件的属性，见表4。
表 4

控件	属性	设置值
文本框	名称 Height Width	Text1 400 1500
文本框	名称 Height Width	Text2 400 1500
文本框	名称 Height Width	Text3 400 1500
单选按钮	名称 标题	Op1 加法
单选按钮	名称 标题	Op2 乘法
单选按钮	名称 Caption Height Width	C1 计算 400 1000

③ 执行“工程”菜单中的“添加文件”命令(或按Ctrl+D)，打开“添加文件”对话框，在当前目录下找到m1.bas，把它添加到当前工程中。该模块中putdata过程的代码如下：
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
两个过程的操作基本相同，只是输出的文件名不一样。
④ 编写命令按钮的Click事件过程：
Private Sub C1_Click()
Dim a As Integer,b As Integer
a＝Text1.Text
b＝Text2.Text
If Op1.Value=True Then
Text3.Text＝a+b
putdata1 Text3.Text
Else
Text3.Text=a*b
putdata2 Text3.Text
End If
End Sub