编写如下程序: 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 该程序的功能是( )。
A) 判断n是否为素数
B) 输出n以内所有的奇数
C) 输出n以内所有的偶数
D) 输出n以内所有的素数