首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
2019-04-29
32
问题
编写如下程序:
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/whUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10:TelNumAsString*20EndType在窗体上画一个名为Commandl的命令按钮,要求当执行事件过程CommandlC
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中PPrivateSubCommandl—Click()Open“out.txt”ForOutputAs#2Print“Textl”Close#2EndSu
窗体上有1个名称为Textt、内容为空的文本框。编写如下事件过程:PrivateSubTextlKeyUp(KeyCodeAsInteger,ShiftAsInteger)PrintTextl.Text;EndSub运行程序,并
执行以下程序段a$=”VisualBasicProgramming”:b$=“C++”c$=UCase(Left$(a$,7))&b$&RightS(a$,12)变量c$的值为
工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是:PublicxAsIntegerPdvateyAsInteger窗体文件的程序代码是:DimaAsIntegerPrivateSUbCommandlClick()P
窗体上有一个Textl文本框,一个Cornmandl命令按钮,并有以下程序:PrivateSubCommandlclick()DimnIfText1.Text<>“123456”Thenn=n+1:Print“口令输入错误”&n&”次”
在编辑VB应用程序时,如果不小心关闭了属性窗口,则可以单击主窗口标准工具栏上的一个按钮直接打开属性窗口,这个按钮的图标是
在VisualBasic环境下设计应用程序时,系统能自动检查出的错误是
随机试题
Iwas______thepointoftelephoninghimwhenhisletterarrived.
卵巢功能早衰
治疗虚火灼肺型肺痨应首选
易吸湿的药品见光易氧化分解的药物
火区熄灭的条件正确的是()。
牛皮纸是低级包装纸,多用于棉毛丝绸织品、绒线、五金交电和仪器仪表等包装。()
某油田2012年1月生产原油50万吨,其中20万吨用于销售,单价5000元/吨,收购联合企业同品种的已税原油3万吨,收购价3500元/吨。该油田当月应纳资源税()万元。(原油资源税税率5%)(2012年真题)
关于企业所得税收入确认原则的说法,正确的是()。
旅游保险合同的被保险人既可以是旅游者,也可以是旅游企业。()
Anygoodmysterymusteventuallyuncoveravillain,andinarecentdocumentary,"WhoKilledtheElectricCar?",thefilmmakers
最新回复
(
0
)