作业帮 > 综合 > 作业

随机产生100个6到1000以内的随机整数存入数组a中并输出,然后找出其中的素数存入数组b中输 急!

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/06/28 08:50:05
随机产生100个6到1000以内的随机整数存入数组a中并输出,然后找出其中的素数存入数组b中输 急!
随机产生100个6到1000以内的随机整数存入数组a中并输出,然后找出其中的素数存入数组b中输出
随机产生100个6到1000以内的随机整数存入数组a中并输出,然后找出其中的素数存入数组b中输 急!
Option Base 1
Private Sub Command1_Click()
Dim a() As Long,b() As Long
Dim i As Long,n As Long
Randomize
For i = 1 To 100
a(i) = Rnd() * 995 + 6
Print a(i)
Next i
Print
For i = 1 To 100
If Prime(a(i)) Then
n = n + 1
ReDim Preserve b(n)
b(n) = a(i)
Print b(n)
End If
Next i
End Sub
Private Function Prime(n As Long) As Boolean
If n