Dim sushu As Boolean For i = 10 To 100 Step 1 sushu = True For j = 2 To Int(i / 2) If i Mod j = 0 Then sushu = False End If Next j If sushu = True Then Print Str(i) + vbCrLf End If Next i
