Question

用VB编写过程，求100~300中所有的素数，并将其存放到一个数组中

求代码

Answer 1

Private Sub Command1_Click()
Dim a() As Integer
For i = 100 To 300
flg = True
For j = 2 To i - 1
If i Mod j = 0 Then flg = False
Next j
If flg = True Then
n = n + 1
ReDim Preserve a(n)
a(n) = i
End If
Next i
For i = 1 To n
Print a(i);
If i Mod 5 = 0 Then Print
Next i
End Sub