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

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

admin2010-09-02  77
问题 数列1，1，2，3，5，8，13，21，…的规律是从第三个数开始，每个数是它前面两个数之和。在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件，如图1-120所示。请编写适当的事件过程实现以下功能：在Textl中输入整数40，单击“计算”按钮，则在Text2中显示该数列第40项的值：如果单击“存盘”按钮，则将计算的第40项的值存到考生目录下的out5．txt文件中。(提示：因数据较大，应使用：Long型变量。)
注意：在结束程序运行之前必须单击“存盘”按钮，把结果存入outS．txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案 【操作步骤】 步骤l：打开考生文件夹下的本题工程文件sjt5．vbp。 步骤2：编写“计算”按钮的单击事件过程。 参考代码： PriVate Sub Commandl_Click() Dim f1，f2，f As Long Dim a(40) As Long f1=1 ： f2=1 a(1) =f1 ： a(2) =f2 F0r i=3 T0 Val(Textl．Text) f：fl+f2 a(i) =f ： f1=f2 ： f2=f Next Text2．Text=a(40) End Sub 步骤3：运行程序，在文本框中输入40，并单击“计算”按钮获得一个结果，然后单击“存盘”按钮保存计算结果。 步骤4：按要求将文件保存至考生文件夹中。
解析    ①数组使用相同的名字引用一系列变{量，并用数字索引来识别它们。数组有上界和下界，数组的元素在上、下界内是连续的。Visual Basic对每一个索引值都分配空间，所以不要不切实际地声明一个太大的数组。在很多情况下，使用数组可以缩短和简化程序，因为可以利用索引值设计循环，高效地处理多种情况。
    ②可以声明具有任何基本数据类型的数组，数组中的所有元素具有相同的数据类型，当数据类型为Variant时，各元素能够包含不同种类的数据(对象、字符串、数值等)。
    根据题意，从数列的第三个数开始，每个数是其前两个数之和，数列第n项的值可表示为：a(n)=a(n-1)+a(n-2)。可以利用For循环语句(循环变量i的初值为3，终值为n)，从数列的第三个数开始，逐一计算出该数列第3~n项的值，计算表达式为a(i)=a(i-1)+a(i-2)。
转载请注明原文地址:https://kaotiyun.com/show/MFmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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