问答题
以下数列：1，1，2，3，5，8，13，21…的规律是从第3个数开始，每个数都是其前面两个数之和。
在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如下图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列第n项的值，并在文本框中显示，n是选中的单选按钮后面的数值(提示：因计算结果较大，应使用长整型变量)。
在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如下图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列第n项的值，并在文本框中显示，n是选中的单选按钮后面的数值(提示：因计算结果较大，应使用长整型变量)。
【正确答案】
【答案解析】步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，在指定位置编写如下代码：
Private Sub Command1_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 Op1(i).Value=True Then
n=Val(Op1(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：调试并运行程序，关闭程序后按题目要求存盘。
步骤2：打开代码编辑窗口，在指定位置编写如下代码：
Private Sub Command1_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 Op1(i).Value=True Then
n=Val(Op1(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：调试并运行程序，关闭程序后按题目要求存盘。