单项选择题

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