vb代码问题 找出100以内所有素数，存放于数组prime中。并将所找到的数，按每行10个的形式显示在窗体上
vb代码问题 找出100以内所有素数，存放于数组prime中。并将所找到的数，按每行10个的形式显示在窗体上
日期：2017-05-31 23:59:57 人气：2
Option Explicit
Private Sub Form_Click()
Dim i As Long, j As Long, n As Integer, prime() As Integer
For i = 1 To 100
If fc(i) Then
n = n + 1
ReDim Preserve prime(1 To n)
prime(n) = i
End