Dim i As Integer, n As Integer ,m as integerFor i = 1 To 100 For n = 2 To i - 1 If i Mod n = 0 Then Exit For Next n If n = i Then Print i; m=m+1If m Mod 10 = 0 Then Printend if Next i
