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

admin2019-01-16  31

问题 数列1,1,2,3,5,8,13,21,…的规律是从第三个数开始,每个数是它前面两个数之和。
    在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图1-287所示。请编写适当的事件过程完成以下功能:选中一个单选按钮后,单击“计算”按钮,则计算出上述数列的第n 项的值,并显示在文本框中,n是选中的单选按钮后面的数值。(提示:因计算结果较大,应使用长整型变量。)

    注意:不能修改已经给出的程序和已有的控件的属性;在结束程序运行之前,必须选中一个单选按钮,并单击“计算”按钮获得一个结果;必须使用窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。

选项

答案【操作步骤】 步骤1:打开考生文件夹下的本题工程文件sjt5.vbp。 步骤2:编写“计算”按钮的单击事件过程。 参考代码: Private Sub Command1_Click() Dim a As Long, a1 As Long, a2 As Long Dim k As Integer, n As Integer For k = 0 To 2 If Op1(k).Value Then n = Val(Op1(k).Caption) End If Next k a1 = 1 a2 = 1 For k = 3 To n a = a1 + a2 a1 = a2 a2 = a Next k Text1.Text = a End Sub 步骤3:运行程序,选中一个单选按钮,并单击“计算”按钮获得一个结果,然后使用窗体右上角的关闭按钮结束程序。 步骤4:按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://kaotiyun.com/show/ZuFp777K
0

最新回复(0)