Private Sub Command1_Click()Dim i As Integer, j As Integer, jj As Double, ss As Boolean, sum As LongFor i = 100 To 1000 jj = Int(Sqr(i)) ss = False For j = 2 To jj
If i Mod j = 0 Then ss = True: Exit For Next j If ss = False Then List1.AddItem i: sum = sum + iNext iMsgBox "100-1000之间共有" & L