2. 计算机
  3. 数列：1，1，2，3，5，8，3，21，…的规律是从第3个数开始，每个数是它前面两个数之和。在考生文件夹下有一个工程文件vbsj5.vbp（相应的窗体文件为vbsj5.frm）。窗体Form1中已经给出了所有控件。 编写适当的事件过程完成以下功能：

数列：1，1，2，3，5，8，3，21，…的规律是从第3个数开始，每个数是它前面两个数之和。在考生文件夹下有一个工程文件vbsj5.vbp（相应的窗体文件为vbsj5.frm）。窗体Form1中已经给出了所有控件。 编写适当的事件过程完成以下功能：

admin2019-05-14  29
问题 数列：1，1，2，3，5，8，3，21，…的规律是从第3个数开始，每个数是它前面两个数之和。在考生文件夹下有一个工程文件vbsj5.vbp（相应的窗体文件为vbsj5.frm）。窗体Form1中已经给出了所有控件。
    编写适当的事件过程完成以下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列的第n项的值（n是选中的单选按钮后面的数值），并显示在文本框中，如图1－343所示（提示：因计算结果较大，应使用Long 型变量）。

    注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击“计算”按钮获得一个结果；必须使用窗体右上角的“关闭”按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。
    程序源码：
    Private Sub Form_Unload(Cancel As
    Integer)
    unload_sub
    End Sub
    Sub unload_sub()
    Open "out5.dat" For Output As
    #1
    Print         #1,
    Form1.optNum(0).Value, _
    Form1.optNum(1).Value,
    Form1. _
    optNum(2).Value, Val(Form1.
    _
    txtResult.Text)
    Close #1
    End Sub
选项
答案【操作步骤】 步骤1：打开考生文件夹下的本题工程文件 vbsj5.vbp。 步骤2：在代码编辑窗口中的通用部分，输入如下代码： Option Base 1 步骤3：编写“计算”按钮的单击事件过程。 参考代码： Private Sub cmdCal _Click() Dim a() As Long Dim i As Integer Dim n As Integer For i = 0 To optNum.Count-1 If optNum (i).Value = True Then n = Val(optNum (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 txtResult.Text = a(n) End Sub 步骤4：运行程序，选中一个单选按钮，并单击“计算”按钮获得一个结果，然后使用窗体右上角的“关闭”按钮结束程序。 步骤5：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/OTUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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