2. 计算机
  3. 编写如下程序： Private Sub Command 1＿Click() Dim iAs Integer,j As Integer n=InputBox("输入一个大于1的正整数") For i=2 To n Forj=2 To Sqr(i)

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

admin2019-03-08  59
问题 编写如下程序：
Private Sub Command 1＿Click()
Dim iAs Integer,j As Integer
n=InputBox("输入一个大于1的正整数")
For i=2 To n
Forj=2 To Sqr(i)
If i Mod j=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不能被任何一个i整除的情况下才会输出i的值，即判断i是不是素数，只有素数才输出。
转载请注明原文地址:https://kaotiyun.com/show/QeFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)