2. 计算机
  3. 以下数列：1，1，3，5，9，15，25，41，…的规律是从第三个数开始，每个数是它前面两个数的和加1。 在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程实现以下功能：在Text1中输入整数40，

以下数列：1，1，3，5，9，15，25，41，…的规律是从第三个数开始，每个数是它前面两个数的和加1。 在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程实现以下功能：在Text1中输入整数40，

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

    注意：
    在结束程序运行之前，必须单击“存盘”按钮，把结果存入out5．txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim a(50) As Long 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 f As Long a(1) = 1 a(2) = 1 For i = 3 To Val(Text1.Text) f = a(i - 2) + a(i - 1) + 1 a(i) = f Next Text2.Text = f 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/ecGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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