Private Sub Command1_Click()
n = Val(Text1.Text)
For j = 1 To n
t = 0
For i = 1 To j
If j Mod i = 0 Then t = t + 1
Next i
If t = 2 Then Print j
Next j
End Sub
EXbloglor.comEX<-m->http://vlc.blogfa.com/post-3.aspx<-mm->n ra gerefte va tamame adade avale gable n ra chap konad<-mmm->