Option Base 1 Dim a(100)As Integer Private Sub Command1_Click( ) n=100 For i=2 To Sqr(n) For j=i+1 To n If j Mod i=0 And a(j)<>0 Then a(j)=0 Next j Next i For i=1 To n If a(i)<>0 #Then Next i End Sub Private Sub Form_Load( ) For i=1 To 100 a(i)=i Next i End Sub