[问答题] 有一个工程文件ylc6.vbp，窗体上已经有两个文本框，名称分别为Text1、Text2。在窗体上创建一个命令按钮，名称为Command1，标题为“确定”。画两个单选按钮，分别为“王老师”

[问答题] 有一个工程文件ylc6.vbp，窗体上已经有两个文本框，名称分别为Text1、Text2。在窗体上创建一个命令按钮，名称为Command1，标题为“确定”。画两个单选按钮，分别为“王老师”、“林老师”；再画两个复选框，名称分别为Check1、Check2，标题分别为“语文”、“数学”。编写适当的事件过程，使得在运行时，单击“确定”按钮后实现下面的要求。
根据选中的单选按钮，在Text1中显示“我是王老师”或“我是林老师”。
根据选中的复选框，在Text2中显示“我教语文”、“我教数学”、“我教语文数学”，如图 24所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。

参考答案：

1．操作步骤 (1)在Visual Basic集成环境选择“文件”→“打开工程”命令：在对话框中选择ylc6.vbp工程文件，单击“确定”按钮打开。 (2)在工具箱中选择OptionButton，在窗体上创建两个单选按钮命名为Option1和 Option2。在属性窗口中分别设置按钮的标题为“王老师”和“林老师”。在同一个窗体上创建，因此只能二选一。 (3)在工具箱中选择CheckBox控件，在窗体上创建两个复选按钮，命名为Check1和Check2。在属性窗口中，设置标题为“语文”、“数学”。 (4)根据题目要求，创建命令按钮命名为Command1，在属性窗口设置其标题为“确定”。 2．行为编码 在代码窗口设置选择Command1和Click事件代码，其行为代码如下： Private Sub Command1_C1ick() If option1. Value Then Text1.Text="我是"& Optionl.Caption Else Text1.Text="我是" & Option2.Caption End If If(Check1.Value And Check2.Value)Then Text2.Text="我教" & Check1.Caption & Check2. Caption ElseIf Check1.Value Then Text2.Text="我教" &Check1.Caption ElseIf Check2.Value Then Text2.Text="我教"& Check2.Caption Else Text2.Text=" " End If End Sub 3．存盘保存 执行“文件”→“保存工程”命令，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。

问题解析:

(1)本题考查考生对单选按钮和复选按钮功能的使用，比较单选按钮和复选按钮的不同之处。 (2)注意OptionButton控件、CheckBox控件的使用，命令按钮的行为编码以及字符串的连接操作。 (3)该代码根据题目的要求，通过If语句判断当前单选按钮的Value属性的值和复选按钮属性的值。通过“&”连接字符串，并通过TextBox控件的Text属性显示。