单项选择题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Command1_Click() 　　n=Val(Text1.Text) 　　For i=2 To n 　　　Forj=2 To Sqr(i) 　　　　If i Mod j=0 Then Exit For 　　　 Next j 　　　If j＞Sqr(i) Then Print i 　　Next i End Sub 该事件过程的功能是( )。