问题
问答题
在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上画两个框架，其名称分别为F1和 F2，标题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮，名称分别为Op1和 Op2，标题分别为“飞机”和“火车”。在F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为“广州”和“昆明”。然后画一个命令按钮，其名称为C1，标题为“确定”。再画一个文本框，其名称为Text1。编写适当事件过程。程序运行后，选择不同单选按钮时产生的显示结果见下表1。
| 选中的单选按钮 | 单击“确定”按钮后产生的结果(文 本框中显示的内容) | ||
| 交通工具 | 到达目标 | ||
| 第一种情况 | 飞机 | 广州 | 坐飞机去广州 |
| 第二种情况 | 飞机 | 昆明 | 坐飞机去昆明 |
| 第三种情况 | 火车 | 广州 | 坐火车去广州 |
| 第四种情况 | 火车 | 昆明 | 坐火车去昆明 |
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
答案
参考答案：
解析：① 打开题目提供的工程文件，建立控件和设置控件属性。
程序中用到的控件如下表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。
| 控件 | 属性 | 设置值 |
| 文本框 | 名称 Height Width | Text1 400 1500 |
| 文本框 | 名称 Height Width | Text2 400 1500 |
| 文本框 | 名称 Height Width | Text3 400 1500 |
| 单选按钮 | 名称 标题 | Op1 加法 |
| 单选按钮 | 名称 标题 | Op2 乘法 |
| 单选按钮 | 名称 Caption Height Width | C1 计算 400 1000 |
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