(1)在考生文件夹下有一个工程文件sj3．vbp，窗体上有一个单选按钮数组，名称为Optionl，含4个单选按钮，它们的Index属性分别为O、1、2和3，标题依次为“Iteml”、“Itera2”、“Item3”和“Item4”，再画一个名称为Textl的文本框。 窗体文件中已经给出了Optionl的Click事件过程，但不完整，要求去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使得在运行时单击“Iteml”或“Item2”单选按钮时，在Textl中显示“选择Iteml”或“选择Item2”，单击“Item3”或“Itern4”单选按钮时，在Textl中显示“Item3被选择”和“Itern4被选择”。程序运行界面如图35—3所示。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件sj4．vbp，Form1窗体中有一个文本框，名称为Textl，两个框架，名称分别为Framel和Frame2、标题分别为“科目”和“难易”；在Framel中有两个单选按钮Optionl和Option2，标题分别为“数学”和“语文”；在Frame2中有两个单选按钮Option3和Option4，标题分别为“困难”和“简单”；一个命令按钮，名称为Commandl，标题为“输出”。程序运行界面如图35—4所示。
【正确答案】正确答案：(1)程序中需要检测单选按钮的状态，这可以通过Value属性来实现。如果单选按钮被选中，则其Value值为1；否则Value值为0。当建立控件数组时，系统给每个元素赋一个唯一的索引号(Index)，通过属性窗VI的Index属性，可以知道该控件的索引号是多少。标签和单选按钮的标题均由各自的Caption属性设置。 根据题意，将一组Option放到对话框中，包含4个单选按钮，Index分别为0、1、2和3，Caption分别为“Iteml”“Item2”“Item3”和“Item4”，一个文本框控件，名称为Textl，Text属性为空。补充后的具体代码如下： Private Sub Optionl_Click(Index As Integer) If Index=1 Or Index=0 Then Textl．
Text
="选择"+Optionl．Item
(Index)．Caption
EIse Textl．
Text
=Optionl．Item
(Index)．Caption
+"被选择" End If End Sub 单击
按钮运行程序，并按要求保存。 (2)程序中需要检测的单选按钮的状态，通过Value属性来实现，如果单选按钮被选中，则Value值为1，否则Value值为0。在文本框中显示内容通过Text属性实现。 根据题意，将2个框架控件、4个单选按钮控件、1个文本框控件和1个命令按钮添加到窗体中，框架的Caption属性分别为“科目”和“难易”，单选按钮的名称分别为Optionl、Option2、Option3和Option4，Caption分别为“数学”、“语文”、“困难”和“容易”，其中Optionl和Option3的Value为True，命令按钮的名称为Commandl、Caption属性为“输出”。补充后的具体代码如下： Private Sub Commandl_Click() Dim str As String str="我觉得" If Optionl．
Value
=True Then str=str+Optionl．
Caption
'选中数学 Else str=str+Option2．
Caption
'选中语文 End If If Option3．
Value
=True Then str=str+Option3．
Caption
'选中困难 Else str=str@Option4．
Caption
'选中简单 End If Textl．
Text
=str End Sub 单击
按钮运行程序，并按要求保存。 (2)程序中需要检测的单选按钮的状态，通过Value属性来实现，如果单选按钮被选中，则Value值为1，否则Value值为0。在文本框中显示内容通过Text属性实现。 根据题意，将2个框架控件、4个单选按钮控件、1个文本框控件和1个命令按钮添加到窗体中，框架的Caption属性分别为“科目”和“难易”，单选按钮的名称分别为Optionl、Option2、Option3和Option4，Caption分别为“数学”、“语文”、“困难”和“容易”，其中Optionl和Option3的Value为True，命令按钮的名称为Commandl、Caption属性为“输出”。补充后的具体代码如下： Private Sub Commandl_Click() Dim str As String str="我觉得" If Optionl．
Value
=True Then str=str+Optionl．
Caption
'选中数学 Else str=str+Option2．
Caption
'选中语文 End If If Option3．
Value
=True Then str=str+Option3．
Caption
'选中困难 Else str=str@Option4．
Caption
'选中简单 End If Textl．
Text
=str End Sub 单击
【答案解析】