![[单项选择题] 编写如下程序： Private Sub Command1_Click() Dim i As Integer, j As Integer n = InputBox( "输入一](http://www.mshxw.com/aiimages/31/255227.png "[单项选择题] 编写如下程序： Private Sub Command1_Click() Dim i As Integer, j As Integer n = InputBox( \"输入一")
[单项选择题] 编写如下程序：
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以内所有的素数
参考答案：
D问题解析:
假设输入2、4、9进行验证，输入2时程序会输出2，输入4时，程序会输出2、3，可见程序不是判断n是否为素数，所以A不对。由前面验证可知，程序也不是输出n以内的所以奇数或偶数，所以B、C也不对。如果输入9时，程序会输出2、3、5、7，说明程序是输出n以内的所有素数，所以D正确。
