2. 计算机
  3. 以下数列：1，1，2，3，5，8，13，21…的规律是从第3个数开始，每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击“计算”

以下数列：1，1，2，3，5，8，13，21…的规律是从第3个数开始，每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击“计算”

admin2017-09-20  76
问题 以下数列：1，1，2，3，5，8，13，21…的规律是从第3个数开始，每个数都是其前面两个数之和。
    在考生文件夹下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列第n项的值，并在文本框中显示，n是选中的单选按钮后面的数值(提示：因计算结果较大，应使用长整型变量)。
    注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击“计算”按钮以获得一个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Commandl Click() Dim a()As Long Dim i As Integer Dim n As Integer ’Op1．Count是单选按钮数目，这里用的是控件数组 For i=0 To Op1．Count一1 ’判断哪一项被选择，把它后面的数值赋给n，确定n值 If Opl(i)．Value=True Then n=Val(Opl(i)．Caption) Exit For End If Next ReDim a(n)’重新申请空间，这里是动态申请 a(1)=1 a(2)=1’数列第一项、第二项值确定 For i=3 To n a(i)=a(i一1)+a(i一2)’后一项值是前两项值之和 Next Text1．Text=a(n) End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/jkGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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