作业帮VB：在3阶Fibonacci数列的前一百项中找出其中所有素数在三阶斐波那契数列的前100项中,找出其中的所有素数.要求用下面两种方法分别实现：1.数组在求素数的过程中动态增长2.使用数组列表提
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/15 10:23:52
VB：在3阶Fibonacci数列的前一百项中找出其中所有素数在三阶斐波那契数列的前100项中,找出其中的所有素数.要求用下面两种方法分别实现：1.数组在求素数的过程中动态增长2.使用数组列表提
VB：在3阶Fibonacci数列的前一百项中找出其中所有素数
在三阶斐波那契数列的前100项中,找出其中的所有素数.要求用下面两种方法分别实现：
1.数组在求素数的过程中动态增长
2.使用数组列表
提示：
所谓三阶斐波那契数列由下列数组成：
1,1,1,3,5,9,17,31,57,...
其规律是：
数列中的前三个数均为1
从第四个数开始,每一个数均是前三个数之和
VB：在3阶Fibonacci数列的前一百项中找出其中所有素数在三阶斐波那契数列的前100项中,找出其中的所有素数.要求用下面两种方法分别实现：1.数组在求素数的过程中动态增长2.使用数组列表提
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