Private Sub Command1_Click()
i = -1
Print Space(4); "1--50之间的所有素数如下："
While i < 50
   i = i + 2
   For j = 2 To Sqr(i)
     If i Mod j = 0 Then
     flag = 1
     Exit For
   Else
     flag = 0
   End If
Next j
If flag = 0 Then
   a = a + 1
   If a Mod 5 = 0 Then
      Print i; Space(4);
      Print
   Else
      Print i; Space(4);
      End If
    End If
  Wend
End Sub

Private Sub Command2_Click()
    End
End Sub

举例说明一下,谢谢!

谢谢