[单项选择题] 编写如下程序： Private Sub Command1

[单项选择题] 编写如下程序：

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正确。