数列：1，1，2，3，5，8，13，21，…的规律是从第3个数开始，每个数是它前面两个数之和。在考生文件夹下有一个工程文件execise36.vbp(相应的窗体文件为 execise36.frm)。窗体Form1中已经给出于所有控件，如下图所示；编写适当的事件过程完成以下功能：选中一个单选按钮后，单击“显示结果”按钮，则计算出上述数列的第n项的值(n是选中的单选按钮后面的数值)，并显示在文本框中。 (提示：因计算结果较大，应使用Long型变量。)注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运
题目
数列：1，1，2，3，5，8，13，21，…的规律是从第3个数开始，每个数是它前面两个数之和。在考生文件夹下有一个工程文件execise36.vbp(相应的窗体文件为 execise36.frm)。窗体Form1中已经给出于所有控件，如下图所示；
编写适当的事件过程完成以下功能：选中一个单选按钮后，单击“显示结果”按钮，则计算出上述数列的第n项的值(n是选中的单选按钮后面的数值)，并显示在文本框中。 (提示：因计算结果较大，应使用Long型变量。)
注意：
不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击“显示结果”按钮获得一个结果；必须使用窗体右上角的“关闭”按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。
相似考题
更多“ 数列：1，1，2，3，5，8，13，21，…的规律是从第3个数开始，每个数是它前面两个数之和。在考生文件夹下有一个工程文件execise36.vbp(相应的窗体文件为 execise36.frm)。窗体Form1”相关问题
-
第1题：
以下数列：1，1，2，3，5，8，13，21…的规律是从第3个数开始，每个数都是其前面两个数之和。
在考生文件夹下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列第n项的值，并在文本框中显示，n是选中的单选按钮后面的数值（提示：因计算结果较大，应使用长整型变量）。
注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击“计算”按钮以获得一个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。
正确答案：
【考点分析】本题考点有：文本框的Text属性，单选按钮的Name、Caption和Value属性，单选按钮控件数组，For循环语句，If条件判断语句以及内部函数Val()。
【解题思路】单选按钮数组常用于提供唯一选择，Value属性值决定每个单选按钮的选中状态：Fise为未选中，True为选中，Caption属性用于设置单选按钮的标题。本题在For循环语句(循环变量k的初值为0，终值应为3)中逐一检查每个单选按钮是否被选中，用变量n记录选中单选按钮的索引号。然后取消对当前选中单选按钮的选择，使单选按钮数组中的下一个按钮被选中。如果当前已经选中最后一个单选按钮，则将n赋值为0，重新从单选按钮数组的第一个元素开始。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Command1_Click()
Dim a () As Long
Dim i As Integer
Dim n As Integer
′Op1．Count是单选按钮数目，这里用的是控件数组
For i=0 To Op1．Count-l
′判断哪一项被选择，把它后面的数值赋给n，确定n值
If Op1(i)．Value=True Then
n=Val(Op1(i)．Caption)
Exit For
End If
Next
ReDim a(n)′重新申请空间，这里是动态申请
a(1)=1
a(2)=1′数列第一项、第——4值确定
For i=3 To n
a(i)=a(i-1)+a(i-2)’后一项值是
前两项值之和
Next
Text1．Text=a(n)
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】在定义数组a的时候，要注意定义为长整型Long，可以防止溢出；单选按钮数组的Index属性分别为0，1，2，在编写循环语句的时候要注意循环变量Opl．Count-1。
-
第2题：
在窗体Form1上绘制3个命令按钮，其名称分别为Cmd1、Cmd2和Cmd3，标题分别为“读数”、“计算”和“保存”，如下图所示。
程序运行后，如果单击“读数”按钮，则利用题目中提供的Readdate1、ReadDate2过程读入in251.txt和in252.txt文件中的各20个整数，分别放入两个数组Arr1和Art2中；如果单击“计算”按钮，则把两个数组中对应下标的元素相加，其结果放入第3个数组中(即：第一个数组的第n个元素与第二个数组的第n个元素相加，其结果作为第3个数组的第n个元素。这里的n为1，2，…，20)，然后计算第3个数组各元素之和，并把所求得的和在窗体上显示出来：如果单击“保存”按钮，则调用题目中给出的WriteDate过程将计算结果存入考生文件夹的out25.txt文件中。在考生文件夹下有一个工程文件execise25.vbp，考生必须装入该文件。
注意：
考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为execise25.vbp，窗体文件名仍为execise25.frm。
正确答案：
-
第3题：
在考生文件夹中有一个工程文件execise29.vbp，相应的窗体文件为execise29.frm。在名为Form1的窗体上有一个命令按钮和一个文本框(如下图所示)。程序运行后，单击命令按钮，即可计算出0～1000范围内不能被7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。
要求：
请勿改动程序中的任何内容，只在Function Fun()和End Function之间填入编写的若干语句。最后，按原文件名并在原文件夹中保存修改后的文件。
正确答案：
-
第4题：
在窗体上绘制3个命令按钮，其名称分别为Cmd1、Cmd2和Cmd3，标题分别为“读数”、“计算”和“保存”，如下图所示。
程序运行后，如果单击“读数”按钮，则读入in271.txt和in272.txt文件中的各20个整数，分别放入两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素除以10并截尾取整后相乘，其结果放入第3个数组中(即：把第一个数组的第n个元素除以 10截尾取整，再把第二个数组的第n元素除以10截尾取整，两者相乘后的结果作为第3个数组的第n个元素。这里的n为1，2，…，20)，然后计算第3个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击“保存”按钮，则把所求得的和存入考生文件夹的out27.txt文件中。
在考生文件夹下有一个工程文件execise27.vbp，考生可以装入该文件。窗体文件 execise27.frm中的RcadData1和ReadData2过程可以把in1.txt和in2.txt文件中的各20个整数分别读入Arr1和Arr2数组中；而WriteData过程可以把计算出的整数值写到考生文件夹指定的文件中(整数值通过计算求得，文件名为out27.txt)。
注意：
考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为exeeise27.vbp，窗体文件名仍为execise27.frm。
正确答案：
-
第5题：
在考生文件夹中有一个工程文件execise37.vbp，相应的窗体文件为execise37.frm。在名为Form1的窗体上有一个名称为Cmd1，标题为“输出大于1000的整数之和”的命令按钮。其功能是产生40个0～2000的随机整数，放入一个数组中，然后输出这40个整数中大于1000的所有整数之和。程序运行后，单击命令按钮，即可求出这些整数的和，并在窗体上显示出来，如下图所示。
本程序不完整，请补充完整，并能正确运行。
要求：
去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后；按原文件名并在原文件夹中保存修改后的文件。
正确答案：