VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
    Dim K, S, L, N  As Integer     '声明变量K、S、L、N为整型变量
    Cls
    K = 1:    L = 0              '变量K用来统计速熟的个数，赋初值1
    Print 2,                      '显示第1个素数
    For N = 3 To 200              '产生3到200之间的所有自然数，赋给变量N
      For S = 2 To N - 1           '依次用N除以2到N-1之间的自然数
         If N Mod S = 0 Then L = 1: Exit For '如果能够整除，则给L赋1，并退出循环
      Next S
      If L = 1 Then             '如果L=1表示不是素数，变量L=1表示不是素数
         L = 0                 '将变量L还原为0，L为0时表示时素数
      Else
         If K Mod 6 = 0 Then    '如果一行显示了6个素数，则换行
             Print              '换行
         End If
         Print N,               '如果L=0（即L不等于1），则显示一个素数
         K = K + 1             '变量K用来统计速熟的个数,K自动加1
      End If
    Next N
    Print: Print: Print "200以内素数个数为："; K       '显示素数的个数
End Sub

