数列1，1，2，3，5，8，13，21，…的规律是从第三个数开始，每个数是它前面两个数之和。
在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图1－287所示。请编写适当的事件过程完成以下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列的第n 项的值，并显示在文本框中，n是选中的单选按钮后面的数值。（提示：因计算结果较大，应使用长整型变量。）
在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图1－287所示。请编写适当的事件过程完成以下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列的第n 项的值，并显示在文本框中，n是选中的单选按钮后面的数值。（提示：因计算结果较大，应使用长整型变量。）
【正确答案】【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt5.vbp。
步骤2：编写“计算”按钮的单击事件过程。
参考代码：
Private Sub Command1_Click()
Dim a As Long, a1 As Long, a2 As Long
Dim k As Integer, n As Integer
For k = 0 To 2
If Op1(k).Value Then
n = Val(Op1(k).Caption)
End If
Next k
a1 = 1
a2 = 1
For k = 3 To n
a = a1 + a2
a1 = a2
a2 = a
Next k
Text1.Text = a
End Sub
步骤3：运行程序，选中一个单选按钮，并单击“计算”按钮获得一个结果，然后使用窗体右上角的关闭按钮结束程序。
步骤4：按要求将文件保存至考生文件夹中。
步骤1：打开考生文件夹下的本题工程文件sjt5.vbp。
步骤2：编写“计算”按钮的单击事件过程。
参考代码：
Private Sub Command1_Click()
Dim a As Long, a1 As Long, a2 As Long
Dim k As Integer, n As Integer
For k = 0 To 2
If Op1(k).Value Then
n = Val(Op1(k).Caption)
End If
Next k
a1 = 1
a2 = 1
For k = 3 To n
a = a1 + a2
a1 = a2
a2 = a
Next k
Text1.Text = a
End Sub
步骤3：运行程序，选中一个单选按钮，并单击“计算”按钮获得一个结果，然后使用窗体右上角的关闭按钮结束程序。
步骤4：按要求将文件保存至考生文件夹中。
【答案解析】