问答题
数列1，1，3，5，9，15，25，41，…，的规律是从第三个数开始，每个数是它前面两个数的和加1。在考牛目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件，如图3．106所示。请编写适当的事件过程实现以下功能：在Text1中输入整数40，单击“计算”按钮，则在Text2中显示该数列第40项的值。如果单击“存盘”按钮，则将计算的第40项的值存到考生目录下的out5．txt文件中。 (提示：因数据较大，应使用Long型变量。)
【正确答案】正确答案：【操作步骤】 步骤1：打开考生文件夹下的工程文件sit5．vbp。 步骤2：编写“计算”按钮的单击事件过程。 参考代码： Private Sub Commandl C1 i ck() Dim f As Long a(1)=1 a(2)=1 For i=3 To Val(Textl．Text) f=a(i一2)+a(i一1)+1 a(i)=f Next Text2．Text=f End Sub 步骤3：运行程序，在文本框中输入40，并单击“计算”按钮获得一个结果，然后单击“存盘”按钮保存计算结果。 步骤4：按要求将文件保存至考生文件夹中。
【答案解析】