数列：1，1，2，3，5，8，3，21，…的规律是从第3个数开始，每个数是它前面两个数之和。在考生文件夹下有一个工程文件vbsj5.vbp（相应的窗体文件为vbsj5.frm）。窗体Form1中已经给出了所有控件。
编写适当的事件过程完成以下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列的第n项的值（n是选中的单选按钮后面的数值），并显示在文本框中，如图1－343所示（提示：因计算结果较大，应使用Long 型变量）。
编写适当的事件过程完成以下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列的第n项的值（n是选中的单选按钮后面的数值），并显示在文本框中，如图1－343所示（提示：因计算结果较大，应使用Long 型变量）。
【正确答案】【操作步骤】
步骤1：打开考生文件夹下的本题工程文件 vbsj5.vbp。
步骤2：在代码编辑窗口中的通用部分，输入如下代码：
Option Base 1
步骤3：编写“计算”按钮的单击事件过程。
参考代码：
Private Sub cmdCal _Click()
Dim a() As Long
Dim i As Integer
Dim n As Integer
For i = 0 To optNum.Count-1
If optNum (i).Value = True Then
n = Val(optNum (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
txtResult.Text = a(n)
End Sub
步骤4：运行程序，选中一个单选按钮，并单击“计算”按钮获得一个结果，然后使用窗体右上角的“关闭”按钮结束程序。
步骤5：按要求将文件保存至考生文件夹中。
步骤1：打开考生文件夹下的本题工程文件 vbsj5.vbp。
步骤2：在代码编辑窗口中的通用部分，输入如下代码：
Option Base 1
步骤3：编写“计算”按钮的单击事件过程。
参考代码：
Private Sub cmdCal _Click()
Dim a() As Long
Dim i As Integer
Dim n As Integer
For i = 0 To optNum.Count-1
If optNum (i).Value = True Then
n = Val(optNum (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
txtResult.Text = a(n)
End Sub
步骤4：运行程序，选中一个单选按钮，并单击“计算”按钮获得一个结果，然后使用窗体右上角的“关闭”按钮结束程序。
步骤5：按要求将文件保存至考生文件夹中。
【答案解析】