单项选择题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： 　　Private Sub Command1_Click() 　　　n = Val(Text1.Text) 　　　For i = 2 To n 　　　　For j = 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 　　该事件过程的功能是（ ）。