首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim i As Integer, j As Integer n=InputBox("输入一个大于1的正整数") For i=2 To n For j=2 To
编写如下程序: Private Sub Command1_Click() Dim i As Integer, j As Integer n=InputBox("输入一个大于1的正整数") For i=2 To n For j=2 To
admin
2020-07-22
38
问题
编写如下程序:
Private Sub Command1_Click()
Dim i As Integer, j As Integer
n=InputBox("输入一个大于1的正整数")
For i=2 To n
For j=2 To Sqr(i)
If i Mod j=0 Then 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、4、9进行验证,输入2时程序会输出2,输入4时,程序会输出2、3,可见程序不是判断n是否为素数,所以A不对。由前面验证可知,程序也不是输出n以内的所以奇数或偶数,所以B、C也不对。如果输入9时,程序会输出2、3、5、7,说明程序是输出n以内的所有素数,所以D正确。
转载请注明原文地址:https://www.kaotiyun.com/show/bXHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有名称分别为Text1、Text2的文本框,名称为Commandl的命令按钮。运行程序,在Text1中输入“FormList”,然后单击命令按钮,执行如下程序:PrivateSubCommand1Click()Text2.Text=UC
假定有如下程序:PrivateSubFormClick()Dima(4)AsInteger,b(4)AsIntegerFork=0To2a(k+1)=Val(InputBox("请输入一个整数
以下不能输出“Program”的语句是
要求当鼠标在图片框P1中移动时,立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是
学生选课成绩表的关系模式是SC(S#,C#,G),其中S#为学号,C#为课程号,G为成绩,关系T=πS#,C#(SC)/C表示()。
软件需求规格说明书的作用不包括
在利用菜单编辑器设计菜单时,为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键,可以将该菜单项的标题设置为()。
VisualBasic中的“启动对象”是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic“启动对象”的描述中,错误的是
窗体上有一个名称为VScroll1的垂直滚动条,为了设定单击滚动条两端箭头时的Value增量值,应设置的属性是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“鼠标光标形状示例”的窗体上画1个名称为Text1的文本框。请通过属性窗口设置适当属性,使得程序运行时,鼠标在文本框中时,鼠标光标为箭头
随机试题
如果长期饮用高山上的温泉水和火山地带的温泉水,那么就是饮含氟量较高的水;如果长期饮用含氟量较高的水,那么牙齿上一定有白色的斑点,所以:
若(X,Y)的联合密度函数为试确定常数k,并求E(XY),D(XY).
营养不良的治疗原则为
钻孔灌注桩实测桩长为30m,时域信号第一峰与桩端反射波峰间的时间差为15.79ms,计算该桩的桩身波速为()。
按照公路工程基本建设程序要求,项目环境影响报告书应在()阶段提交。
下列未达账项中,会导致企业银行存款日记账余额小于银行对账单余额的有()
甲股份有限公司,实收股本总额为5000万元,董事会共有5名成员。根据公司法律制度的规定,甲股份有限公司应当在2个月内召开临时股东大会的情形有()。
导游人员进行导游活动时,(),不仅要处罚导游人员,还要对委派该导游员的旅行社给予警告直至停业整顿的处罚。
近来社会上“暴力执法”、“钓鱼执法”事件频发,引起了很大关注,作为一名执法队员,你有何看法和感悟?
Acontractisanagreementbetweentwoormorepeopleinwhichonepersonagreestodosomethingbyaspecifieddateinreturnf
最新回复
(
0
)