单项选择题

编写如下程序：
Private Sub Command1_Click()
Dim i As Integer, j As Integer
n = InputBox( "输入一个大于1的正整数" )
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
该程序的功能是( )。