用VB计算出200以内的素数,并按每行8个数输出?

Private Sub Command1_Click()
Dim i As Long
Dim j As Long
Dim k As Long '查找因子数量
Dim l As Long '行数

For i = 2 To 200
k = 0
For j = 1 To i - 1
If i Mod j = 0 Then
'说明找到一个因子
k = k + 1
If k > 1 Then
'为了增加效率
Exit For
End If

End If

Next
If k = 1 Then
'是素数 输出i
l = l + 1
Debug.Print i,
If l Mod 8 = 0 Then
'输出换行
Debug.Print
l = 0
End If
End If

Next
End Sub

Dim i As Integer, bl As Boolean, j As Integer, sushu() As Integer, fhz As Integer, zfc As String
ReDim sushu(0)

Me.AutoRedraw = True
For i = 2 To 200
bl = False
For j = 2 To i - 1 '判断是不是素数