[單項選擇題] 編寫如下程序：

Private Sub Command1_Click()

Dim i As Integer, j As Integer

n = InputBox( "輸入一個大于1的正整數(shù)" )

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是否為素數(shù)

B． 輸出n以內所有的奇數(shù)

C． 輸出n以內所有的偶數(shù)

D． 輸出n以內所有的素數(shù)

D

假設輸入2、4、9進行驗證，輸入2時程序會輸出2，輸入4時，程序會輸出2、3，可見程序不是判斷n是否為素數(shù)，所以A不對。由前面驗證可知，程序也不是輸出n以內的所以奇數(shù)或偶數(shù)，所以B、C也不對。如果輸入9時，程序會輸出2、3、5、7，說明程序是輸出n以內的所有素數(shù)，所以D正確。