VB：在3阶Fibonacci数列的前一百项中找出其中所有素数

来源：学生作业帮编辑：作业帮分类：数学作业时间：2024/05/06 07:25:12

VB：在3阶Fibonacci数列的前一百项中找出其中所有素数
在三阶斐波那契数列的前100项中,找出其中的所有素数.要求用下面两种方法分别实现：
1.数组在求素数的过程中动态增长
2.使用数组列表
提示：
所谓三阶斐波那契数列由下列数组成：
1,1,1,3,5,9,17,31,57,...
其规律是：
数列中的前三个数均为1
从第四个数开始,每一个数均是前三个数之和

Private Sub Form_Click()
    Dim a#(), i%, j#, f As Boolean
    ReDim a(1 To 3)
    a(1) = 1: a(3) = 1: a(2) = 1
    For i = 4 To 100
        f = True
        ReDim Preserve a(1 To i)
        a(i) = a(i - 1) + a(i - 2) + a(i - 3)
        For j = 2 To Sqr(a(i))
            'If i = 60 Then f = False: Exit For '60 判断稍久,耐心等待
            DoEvents
            If a(i) = Int(a(i) / j) * j Then f = False: Exit For
        Next
        If f Then Print a(i)
    Next
    MsgBox "完成"
End Sub
再问：使用数组列表那个怎么弄啊

VB程序设计：在3阶Fibonacci数列的前100项中找出所有素数.要求用下面两种方法分别实现： vb 编程输出fibonacci数列的前N项求Fibonacci数列的前20项求Fibonacci数列的第n项的VB程序用VB编程求Fibonacci数列的第n项 vfp中“找出一百以内所有素数”程序怎么写输出Fibonacci数列1,1,2,3,5,8等的前20项,按每行5个数显示.用vb谢谢 vb求Fibonacci数列用VB编程,求Fibonacci数列的前40个数以及它们的和. java中怎样用Stack类输出Fibonacci数列的前100项? 在shell下编程,求斐波那契(fibonacci)数列的前8项及总和 vb程序设计课后答案:请问“求Fibonacci数列的前20个数.Fibonacci数列的特征是：第1个数和第二个数都是