数列1,1,2,3,5,8,13,21,…的规律是从第三个数开始,每个数是它前面两个数之和。在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图3-87所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击“计算”按

admin2019-05-14  33

问题 数列1,1,2,3,5,8,13,21,…的规律是从第三个数开始,每个数是它前面两个数之和。在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图3-87所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击“计算”按钮,则在Text2中显示该数列第40项的值;如果单击“存盘”按钮,则将计算的第40项的值存到考生目录下的out5.txt文件中。(提示:因数据较大,应使用Long型变量。)
    注意:在结束程序运行之前必须单击“存盘”按钮,把结果存入out5.txt文件,否则无成绩。最后把修改后的文件按原文件名存盘。
   

选项

答案审题分析 根据题意,从数列的第三个数开始,每个数是其前两个数之和,数列第n项的值可表示为:a(n)=a(n-1)+a(n-2)。可以利用For循环语句(循环变量i的初值为3,终值为n),从数列的第三个数开始,逐一计算出该数列第3~n项的值,计算表达式为a(i)=a(i-1)+a(i-2)。 操作步骤 步骤1:打开考生文件夹下的工程文件sjt5.vbp。 步骤2:编写“计算”按钮的单击事件过程。 参考代码: Private Sub Command1_Click() Dim f1,f2,f As Long Dim a(40) As Long f1=1:f2=1 a(1)=f1:a(2)=f2 For i=3 To Val(Text1.Text) f=f1+f2 a(i)=f:f1=f2:f2=f Next Text2.Text=a(40) End Sub 步骤3:运行程序,在文本框中输入40,并单击“计算”按钮获得一个结果,然后单击“存盘”按钮保存计算结果。 步骤4:按要求将文件保存至考生文件夹中。 考点链接 数组定义与操作、For循环结构。

解析
转载请注明原文地址:https://kaotiyun.com/show/3TUp777K
0

相关试题推荐
最新回复(0)