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
该事件过程的功能是( )