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