首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim i As Integer,j As Integer n=InputBox("输入一个大于1的正整数") For i=2 To n F
编写如下程序: Private Sub Command1_Click() Dim i As Integer,j As Integer n=InputBox("输入一个大于1的正整数") For i=2 To n F
admin
2020-04-18
60
问题
编写如下程序:
Private Sub Command1_Click()
Dim i As Integer,j As Integer
n=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整除,若能整除则退出内循环;内循环结束后进行判断,如果是中途退出内循环的则必然不满足i>Sqr(i),不会输出i的值;只有i不能被任何一个j整除的情况下才会输出i的值,即判断i是不是素数,只有素数才输出。
转载请注明原文地址:https://kaotiyun.com/show/G8Tp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序的执行结果是( )。PrivateSubCommand1_Click() a=0 k=1 DoWhilek
下列合法的变量名是( )。
语句:PrintInt(Rnd*5+20)的输出不可能是()。
在窗体上画两个文本框(Name属性分别为Textl和Text2)和一个命令按钮(Name属性为Commandl),然后编写如下事件过程:PrivateSubCommandl_Click()x=0doWhilex<50x=(x+2)
表达式Int(8*Sqr(36)*10^(-2)*10+0.5)/10的值是()。
下列程序执行后,变量x的值为()。Dima,b,c,dAsSingleDimxAsSinglea=10:b=30:c=400Ifb>aThend=a:a=b:b=dEndIfIfb>cThenx=bElse
以下叙述中错误的是()。
在下列模式中,能够给出数据库物理存储结构与物理存取方法的是( )。
随机试题
大肠腺癌骨肉瘤
患儿,6岁。发热、食欲不振、恶心呕吐,咽痛后出现皮疹,查体:T39℃,扁桃体可见点状分泌物,草莓舌,咽拭子涂片革兰染色镜检见链状排列的阳性球菌,下列哪一试验对该菌的进一步鉴定有重要意义
A.局部按摩B.观察,局部不进行处理C.舌系带延长术D.上颌结节修整术E.牙槽突修整术患者上颌牙完全缺失,左上颌结节存在倒凹,右侧正常,此时应当进行()
编码是因不同的用途而编制的。投资项编码服务于()。
A、B企业于2012年4月1日签订买卖合同,合同标的额为100万元。根据合同约定,B企业于4月10日提交全部货物,A企业验收合格后,于2012年4月20日提交B企业一张出票后1个月付款的银行承兑汇票,汇票金额为100万元,出票日为4月20日,承兑人为甲银行
审计证据是指注册会计师为了得出审计结论、形成审计意见而使用的会计记录所含有的信息。()
根据记忆过程中信息在记忆中储存时间的长短和编码方式的不同,一般可以把记忆分为()。
对于我国大部分幼儿园来说,课程的整合首先应该关注的是()
在下面的页面置换算法中,()只是具有理论意义,但是实现起来很困难。
A.牙槽嵴组B.水平组C.斜行组D.根间组E.根尖组与牙弓的平面大致平行,是维持牙直立的主要力量的是()。
最新回复
(
0
)