首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command l_Click() Dim i As Integer,j As Integer n=InputBox(”输入一个大于1的正整数”)
编写如下程序: Private Sub Command l_Click() Dim i As Integer,j As Integer n=InputBox(”输入一个大于1的正整数”)
admin
2020-04-18
21
问题
编写如下程序:
Private Sub Command l_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://jikaoti.com/ti/bjx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了计算1+3+5…+99的值,某人编程如下:k=1:s=0whilek
窗体上有名称分别为Text1、Text2的文本框,名称为Commandl的命令按钮。运行程序,在Textl中输入“FormList”,然后单击命令按钮,执行如下程序:PrivateSubCommandl_Click()Tex
设有如下通用过程:PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr="":strL=Len(xStr)i
在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCornmandl_Click()c=1234c1=Trim(Str(c))Fori=1To
以下关于菜单的叙述中,错误的是
在窗体上画一个名称为Filel的文件列表框,并编写如下程序:PrivateSubFile1_DblClickOx=Shell(File1.FileName,1)EndSub以下关于该程序的叙述中,错误的
以下关于VB的叙述中,错误的是
下列针对框架控件的叙述中,错误的是
下列关于水平滚动条的叙述中,错误的是
设a=2,b=3,c=4,d=5,下列表达式的值是a>bAndc
随机试题
常规转速旋转阳极管的启动延迟时间(s)是
男,60岁,间歇性跛行6年。下蹲时疼痛减轻,骑自行车正常。直腿抬高试验阴性。X线片示:腰椎骨质增生明显,最可能的诊断是
某甲被判处死刑,缓期2年执行,于2007年3月6日考验期满。考验期间,某甲没有故意犯罪,并遵守监规。其服刑所在的监狱于当日向中级人民法院上报了将死缓减为无期徒刑的材料。两天后即3月8日,某甲因琐事与同监舍的某乙斗殴,并将某乙的一只眼睛打瞎。对某甲的处理是:
建筑单位工程投资估算常用的编制方法有( )。
已知双代号网络中,某项工作的ES=4天,EF=6天,LS=7天,LF=9天,该工作的 TF=( )天。
为了提高信息的用途和价值,我们必须关注信息的质量。高质量信息的关键要素具有的特征包括()。
根据以下资料。回答116-120题。注:客货运输包括铁路、民航、公路、水运2009年4月我国铁路、民航客运总量是:
甲见候车室的椅子上坐着一女子和一男子,他们面前放着一手提箱,男子在睡觉,女子在看报。甲以为手提箱是该男子的,遂提一只相同的手提箱走上前去,将手提箱互换,被女子发现。手提箱实际上是该女子的,她一直在紧盯着这只箱子。箱内财物计人民币4000元。甲的行为构成(
2010年,卫生部推出新的乳业国家标准,将原奶蛋白质含量由原来的2.95%降至2.8%。新标准不升反降,引发了一片质疑。某业内人士解释说,如果我们的牛奶检测标准把蛋白质含量定得太高,奶农为了达标就会往奶里添加提高蛋白质检测含量的东西,如三聚氰胺;2008年
Asfoodistothebody,soislearningtothemind.Ourbodiesgrowandmusclesdevelopwiththeinputofadequatenutritious【M1
最新回复
(
0
)