[问答题] 在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上画两个框架，其名称分别为F1和 F2，标题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮，名称分别为Op1和 Op2，标题

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

参考答案：

问题解析:

① 打开题目提供的工程文件，建立控件和设置控件属性。 程序中用到的控件如下表3所示表 3控件属性设置值框架NameCaptionF1“交通工具” 框架NameCaptionF2“到达目标”单选按钮NameCaptionOp1“飞机”单选按钮NameCaptionOp2“火车”单选按钮NameCaptionOp3“广州”单选按钮NameCaptionOp4“昆明”单选按钮NameCaptionC1“确定”文本框NameText1　　② 编写程序代码题目提供的程序代码：　　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控件属性设置值文本框名称HeightWidthText14001500文本框名称HeightWidthText24001500文本框名称HeightWidthText34001500单选按钮名称标题Op1加法 单选按钮名称标题Op2乘法 单选按钮名称CaptionHeightWidth C1计算4001000 ③ 执行“工程”菜单中的“添加文件”命令(或按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