【正确答案】正确答案：【操作步骤】 步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Commandl Click() Dim a()As Long Dim i As Integer Dim n As Integer 'Op1．Count是单选按钮数目，这里用的是控件数组 For i=0 To Op1．Count一1 '判断哪一项被选择，把它后面的数值赋给n，确定n值 If Opl(i)．Value=True Then n=Val(Opl(i)．Caption) Exit 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：调试并运行程序，关闭程序后按题目要求存盘。