100以内素数的和

100以内的素数的和

Option Explicit

Dim i, j, k As Integer

Dim isS As Boolean

Private Sub Form_Load()

    Show

    For i = 1 To 100

        isS = True

        For j = 2 To Int(i ^ 0.5)

            If i Mod j = 0 Then isS = False

        Next j

        If isS = True Then

            List1.AddItem i

        End If

        k = k + 1

    Next i

    Print k

End Sub