【正确答案】正确答案：步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，在指定位置编写如下代码。 PriVate Sub Command1_Click() Dim a()As Long Dim i As Integer Dim n As Integer 'Opl．Count是单选按钮数目，这里用的是控件数组 For i=0 To Op1．Count－1 '判断哪一项被选择，把它后面的数值赋给n，确定n值 If Op1(i)．Value＝True Then n＝Val(Opl(i)．Caption) Exi．t For End If Next ReDim a(n)'重新申请空间，这里是动态申请 a(1) =1 a(2)=1'数列第一项、第二项值确定 For i＝3 To n a(i)＝a(i－1)＋a(i－2)'后一项值是前两项值之和 Next Text1．Text＝a(n) End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【答案解析】解析：单选按钮数组常用于提供唯一选择，VHue属性值决定每个单选按钮的选中状态：FHse为未选中，True为选中，Caption属性用于设置单选按钮的标题。本题在For循环语句(循环变量k的初值为0，终值应为3)中逐一检查每个单选按钮是否被选中，用变量n记录选中单选按钮的索引号。然后取消对当前选中单选按钮的选择，使单选按钮数组中的卜一个按钮被选中。如果当前已经选中最后一个单选按钮，则将n赋值为0，最新从单选按钮数组的第一个元素开始。