首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim i As Integer,j As Integer n=InputBox("输入一个大于1的正整数") For i=2To n For j=2To Sqr(i) If i M
编写如下程序: Private Sub Command1_Click() Dim i As Integer,j As Integer n=InputBox("输入一个大于1的正整数") For i=2To n For j=2To Sqr(i) If i M
admin
2016-09-19
36
问题
编写如下程序:
Private Sub Command1_Click()
Dim i As Integer,j As Integer
n=InputBox("输入一个大于1的正整数")
For i=2To n
For j=2To Sqr(i)
If i Mod j=0Then 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循环到n,然后进入内循环,在内循环中依次判断i能否被i整除,若能整除则退出内循环:内循环结束后进行判断,如果是中途退出内循环的则必然不满足j>Sqr(i),不会输出i的值;只有i不能被任何一个j整除的情况下才会输出i的值,即判断i是不是素数,只有素数才输出。
转载请注明原文地址:https://kaotiyun.com/show/qOLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
定时器的Interval属性以()为单位指定Timer事件之间的时间间隔。
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Text1.Text="Visual"Me.Text1="Basic"
设有如下通用过程:PublicFunctionf(xAsInteger)DimyAsIntegerx=20y=2f=x*yEndFunction在窗体上画一个名称为Command1的命
在窗体上画两个名称分别为Textl、Text2的文本框,Text1的Text属性为“DataBase”,如图所示。现有如下事件过程:PrivateSubText1_Change()Text2.T
下面程序执行时,输出的结果是()。PrivateSubForm_Click0DimiAsInteger,jAsIntegeri=10Doi=i+j
在运行阶段,要在文本框Text1获得焦点时选中文本框中所有内容,如图所示,对应的事件过程是()。
下列数据结构中,能用二分法进行查找的是()。
以下事件过程的功能是:从已存在于磁盘上的顺序文件Num1.txt中读取数据,计算读出数据的平方值,将该数据及其平方值存入新的顺序文件Num2.txt中。则在以下横线处合适的语句是()。PrivateSubFormClick()
下面排序算法中,平均排序速度最快的是()。
软件测试是保证软件质量的重要手段,首要任务是______。
随机试题
工件的公差必须大于工件在夹具中定位后加工产生的误差之和。()
蛋白尿指尿蛋白定量超过
A.涩肠止泻B.化湿行气C.活血化瘀D.燥湿行气E.健脾安神白豆蔻除温中止呕外,又能()。
华东轧钢厂和江苏省宇通电器公司之间是否存在生效的合同关系?天源轧钢厂的发货行为如何定性?他与宇通公司的合同何时成立?合同内容如何确定?
不受现有费用项目和开支水平限制,并能够克服增量预算方法缺点的预算方法是()。
按我国现行会计制度规定,在进行外币会计报表折算时,应按发生时的市场汇率折算的报表项目有( )。
从教育角度来说,儿童绘画的真谛是()。
间歇训练法是指重复锻炼之间有合理的休整,它是提高锻炼效果的一种常用方法。()
某鞋厂现有男、女职工共900人,其中全体男工和全体女工可用同样的天数完成同样的工作(男女工作效率可能不同),若将男工人数和女工人数对调一下,全体男工16天完成的工作,全体女工需25天才能完成,则男女职工的人数相差()人。
下列哪一成语的典故不是来自真实历史事件?
最新回复
(
0
)