单项选择题

编写如下程序：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 iEnd Sub该程序的功能是(　　)。