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

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

admin2020-07-22  39
问题 数列1，1，2，3，5，8，13，21，…的规律是从第一个数开始，每个数足它前面两个数之和。在考生目录下有一个工程文件sit5．vbp。窗体中已经给出了所有控件，如图2-87所示。请编写适当的事件过程实现以下功能：在Text1中输入整数40，单击“计算”按钮，则在Text2中显示该数列第40项的值；如果单击“存盘”按钮，则将计算的第40项的值存到考生目录下的out5．txt文件中。  (提示：凶数据较大，应使用Long型变量。)
    注意：在结束程序运行之前必须单击“存盘”按钮，把结果存入out5．txt文件，否则无成绩。最后把修改后的文件按原文件名存盘
选项
答案【操作步骤】 步骤1：打外考生文件夹下的工程文件sjt5．vbp。 步骤2：编写“计算”按钶!的单击事件过程。 参考代码： Private Sub Commandl—C1 ick() Dim f1，f2，f As Long Dim a(40)As Long f1=1：f2=1 a(1)=f1：a f2)=f2 For i=3 To Val(Textl．Text) f=f1+f2 a(i)=f：f1：f2：f2=f Next Text2．Text=a(40) End Sub 步骤3：运行程序，在文本框中输入40，并单击“计算”按钮获得一个结果，然后单击“存盘”按钮保存计算结果。 步骤4：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/k0Hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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