编写如下程序: Private Sub Command1_Click()   Dim i As Integer, j As Integer   n=InputBox("输入一个大于1的正整数")   For i=2 To n     For j=2 To

admin2015-10-23  32

问题 编写如下程序:
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正确。
转载请注明原文地址:https://kaotiyun.com/show/xDLp777K
0

最新回复(0)