单项选择题

在窗体上画一个名称为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
lf j＞Sqr(i) Then Print i
Next i
End Sub
该事件过程的功能是