注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
(1) 在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有一个标签L1，请画一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1和2，标题依次为“飞机”、“火车”、“汽车”，再画一个名称为Text1的文本框。
窗体文件中已经给出了Op1的Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的改为正确的内容，使得在运行时单击“飞机”或“火车”单选按钮时，在Text1中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在Text1中显示“我开汽车去”。程序运行界面如图19-3所示。
注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
(2) 在考生文件夹下有一个工程文件sjt4.vbp，Form1窗体中有一个文本框，名称为Text1；请在窗体上画两个框架，名称分别为F1和F2，标题分别为“性别”和“身份”；在F1中画两个单选按钮Op1和 Op2，标题分别为“男”和“女”；在F2中画两个单选按钮Op3和Op4，标题分别为“学生”和“教师”；再画一个命令按钮，名称为C1，标题为“确定”。程序运行界面如图19-4所示。
请编写适当的事件过程，使得在运行时，在P1和F2中各选一个单选按钮，然后单击“确定”按钮，就可以按照表19-1把结果显示在文本框中。
表 19-1
| 性 别 | 身 份 | 在文本框中显示的内容 |
| 男 | 学生 | 我是男学生 |
| 男 | 教师 | 我是男教师 |
| 女 | 学生 | 我是女学生 |
| 女 | 教师 | 我是女教师 |
参考答案：
解析： 标签和单选按钮的标题均由各自的Caption属性设置。程序中需要检测的单选按钮的状态，这可以通过Value属性来实现。如果单选按钮被选中，则Value值为1；否则Value值为0。当建立控件数组时，系统给每个元素赋一个惟一的索引号 (Index)，通过属性窗口的Index属性，可以知道该控件的下标是多少．在文本框里显示内容通过Text属性设置，其形式为：
文本框名.Text=显示的内容
程序中用到了Select Case语句，格式如下：
Select Case 变量或表达式(对于本题来说就是控件数组元素的下标)
Case 表达式列表1
语句块1
Case 表达式列表2
语句块2
……
[Case Else
语句块n+1]
End Select
解题步骤：第一步：建立界面并设置控件属性。程序用到的控件及其属性见表19-4。
表 19-4
| 对 象 | 属 性 | 设 置 值 |
| Text | Name | Text1 |
| 单选按钮 | Name Caption | Opl(0) 飞机 |
| Name Caption | Opl(1) 火车 | |
| Name Caption | Opl(2) 汽车 | |
| 标签框 | Name Caption | Lable1 请选择 |
程序提供的代码：
Private Sub Op1_Click(Index As Integer)
Dim a As String, b As String, c As String
a="我坐"
b="我开"
’ Select Case
Case 0
Text1.Text=a+Me.Op1(0) .Caption+"去"
Case 1
’ Text1.Text=+Me.Op1(1) .Caption+"去"
Case 2
Text1.Text=b+Me.Op1(2) .Caption+"去"
End Select
End Sub
参考代码：
Private Sub Op1 Click(Index As Integer)
Dim a As String, b As String, c As String
a="我坐"
b="我开"
Select Case Index
Case 0
Text1.Text=a+Me.Op1(0) .Caption+"去"
Case 1
Text1.Text=a+Me.Op1(1) .Caption+"去"
Case 2
Text1.Text=b+Me.Op1(2) .Caption+"去"
End Select
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2) 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
命令按钮标题由Caption属性设置，单击命令触发Click事件；单选按钮的标题由Caption属性设置，程序中需要检测的单选按钮的状态，通过Value属性来实现，如果单选按钮被选中，则Value值为1，否则Value值为0。在文本框中显示内容通过Text属性实现，其形式为：
文本框名.Text=显示的内容。解题步骤：
第一步：建立界面并设置控件属性。程序用到的控件及其属性见表19-5。
表 19-5
| 对 象 | 属 性 | 设 置 值 |
| Text | Name | Text1 |
| 单选按钮 | Name Caption | Op1 男 |
| 单选按钮 | Name Caption | Op2 女 |
| 单选按钮 | Name Caption | Op3 学生 |
| 单选按钮 | Name Caption | Op4 教师 |
| Frame | Name Caption | F1 性别 |
| Frame | Name Caption | F2 身份 |
| 命令按钮 | Name Caption | C1 确定 |
参考代码：
Private Sub C1_Click()
Text1.Text="我是"
If Op1.Value Then
Text1.Text=Text1.Text & Op1.Caption
Else
Text1.Text=Text1.Text & Op2.Caption
End If
If Op3.Value Then
Text1.Text=Text1.Text & Op3.Caption
Else
Text1.Text=Text1.Text & Op4.Caption
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open "out4.txt" For Output As #1
Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.Text
Close #1
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。