求小于1000的最大十个素数

Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim m As Integer, flag As Boolean
For n = 1000 To 2 Step -1
  flag = True
  For i = 2 To n - 1
    If n Mod i = 0 Then
      flag = False
      Exit For
    End If
  Next
  If flag = True Then
     Print n
     m = m + 1
     If m >= 10 Then Exit For
  End If
Next
End Sub