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