单选题编写如下程序： Private Sub Command1_Click() Dim i As Integer，j As Integer n=InputBox("输入一个大于1的正整数") For i=2 To n Forj=2 To Sqr(i) Ifi Modj=0 Then Exit For Nextj ifj>Sqr(i)Then Print i Next i End Sub 该程序的功能是

A、判断n是否为素数
B、输出n以内所有的奇数
C、输出n以内所有的偶数
D、输出n以内所有的素数

【正确答案】 D

【答案解析】解析：本题中的外循环是从2循环到n，然后进入内循环，在内循环中依次判断i能否被j整除，若能整除则退出内循环；内循环结束后进行判断，如果是中途退出内循环的则必然不满足i>Sqr(i)，不会输出i的值；只有i不能被任何一个j整除的情况下才会输出i的值，即判断i是不是素数，只有素数才输出。