在考生文件夹下有一个工程文件sjt3. vbp，窗体上已经有两个文件框，名称分别为Text1、Text2；还有一个命令按钮，名称为C1，标题为“确定”；请添加两个单选按钮，名称分别为Op1、Op2，标题分别为“男生”、“女生”，再添加两个复选框，名称分别为Ch1、Ch2，标题分别为“体育”、“音乐”。请编写适当的事件过程，使得程序在运行时，单击“确定”按钮后实现下面的操作：
①根据选中的单选按钮，在Text1中显示“我是男生”或“我是女生”。
②根据选中的复选框，在Text2中显示“我的爱好是音乐”或“我的爱好是体育”或“我的爱好是体育音乐”。如图所示。
注意：不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮。必须使用窗体右上角的关闭按钮结束程序，否则无成绩。
参考答案：[解题思路] 容器控件(如窗体和框架)中的单选按钮组(OptionButton)常用于提供多个选项间的唯一性选择，其Value属性用于设置或返回每个单选按钮的选中状态：值为False表示未选中，值为True表示选中。复选框(CheckBox)组常用于提供多个选项间的多重选择，Value属性值决定每个复选框的选中状态：0-Unchecked为未选中，A-Checked为选中，B-Grayed为禁用。
根据题意，可用一个If...Then...End If语句对OpA和OpB的选中情况进行处理，在TextA中显示对应信息；用两个If...Then语句依次对两个复选框的选中情况进行处理，并在TextB中显示对应信息。
[操作步骤]
步骤A：打开本题工程文件，并设置控件的属性。程序中用到的控件及属性见表A。
步骤B：分析并编写程序代码。 表A 控件 单选按钮A 单选按钮B 复选框A 复选框B 属性 Name Caption Name Caption Name Caption Name Caption 设置值 OpA 男生 OpB 女生 ChA 体育 ChB 音乐
程序提供代码
Private Sub Form_Unload(Cancel As Integer)
Open App. Path & " \outC. txt" For Output As #A
Print #A, OpA. Value, OpB. Value, TextA. Text
Print #A, ChA. Value, ChB. Value, TextB. Text
Close #A
End Sub
程序结束
参考答案：
Private Sub CA_Click()
If ChB. Value And ChA. Value Then
TextB = "我的爱好是体育音乐"
ElseIf ChB. Value And ChA. Value = False Then
TextB = "我的爱好是音乐"
ElseIf ChA. Value And ChB. Value = False Then
TextB = "我的爱好是体育"
Else
TextB = " "
End If
If OpA. Value Then
TextA = "我是男生"
ElseIf OpB. Value Then
TextA = "我是女生"
Else
TextA = " "
End If
End Sub
步骤C：调试并运行程序，关闭程序后按题目要求存盘。