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

admin2015-06-30  36

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

    注意:在结束程序运行之前必须单击“存盘”按钮,把结果存入out5.txt文件,否则无成绩。最后把修改后的文件按原文件名存盘。

选项

答案【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() ’需要考生编写的内容 End Sub Private Sub Command2_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, Text2.Text Close #1 End Sub 代码结束 参考答案 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) 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

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

随机试题
最新回复(0)