[问答题] 注意：下面出现的“考生文件夹”均为c：wexam25160001。 (1) 在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有一个标签L1，请画一个单选按钮数组，名称为Op1，含三

[问答题] 注意：下面出现的“考生文件夹”均为c：wexam25160001。
(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性　　别身　　份在文本框中显示的内容&l

参考答案：

问题解析:

标签和单选按钮的标题均由各自的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 第三步：调试并运行程序。 第四步：按题目要求存盘。