编写如下程序: Private Sub Command 1 Click() Dim i As Integer,j As Integer 11=InputBox(“输入一个大于1的正整数”) For i=2 To n Forj=2 To Sqr(i) Ifi

admin2015-11-24  15

问题 编写如下程序:
Private Sub Command 1 Click()
Dim i As Integer,j As Integer
11=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整除,若能整除则退出内循环;内循环结束后进行判断,如果是中途退出内循环的则必然不满足j>Sqr(i),不会输出i的值;只有i不能被任何一个j整除的情况下才会输出i的值,即判断i是不是素数,只有素数才输出。
转载请注明原文地址:https://jikaoti.com/ti/XdJ0FFFM
0

最新回复(0)