首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
57
问题
编写如下程序:
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://kaotiyun.com/show/niTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了计算1+3+5…+99的值,某人编程如下:k=1:s=0whilek
设a=“MicrosoflVisualbasic”,则以下使变量b的值为“Visualbasic”的语句是
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()a$=InputBox(”请输入一个二进制数”):n=Len(a$)Fori=1Ton
设有如下通用过程:PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr="":strL=Len(xStr)i
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,YAsIntegerx=10:y=20Callfunl(x,y)Printx;YEndSubPr
设窗体上有一个通用对话框控件CD1,希望在执行下面程序时.打开如图所示的它件对话框PrivateSubCommando_Click()CD1.DialogTitle=”打开文件”CD1.InitDit="C:\”CD1.Filt
下面关于菜单的叙述中正确的是
表达式Sgn(0.25)的值是
下列操作说明中,错误的是
下列关于水平滚动条的叙述中,错误的是
随机试题
下列哪项不是单纯性肥胖患者的特点
儿童死亡率最高的时期,下列说法最准确的是
不符合中度营养不良小儿的诊断标准是
上颌骨骨折伴移位时,急救处理措施是A.立即气管切开,保持呼吸道通畅B.将舌牵出口外C.将移位的上颌骨上抬复位并行颅颌固定D.静脉应用止血药,防止出血E.立即行颌间牙弓夹板弹性牵引固定
在下列哪种情况下海关行使检查权需经直属海关关长或其授权的隶属海关关长批准______
根据《项目融资业务指引》的规定,贷款人从事项目融资业务,应当以()为核心。
()不属于福利管理的主要内容。
叶澜教授认为:我们应该摒弃教师是园丁的农业思维模式,教师是人类灵魂工程师的工业思维模式;摒弃“以学生为中心”的口号。教育不是简单的以谁为中心,应该是一种“生态”的模式。这才是基础教育的未来。叶澜教授的观点反映了
为使窗体每隔5秒钟激发一次计时器事件(timer事件),应将其Interval属性值设置为()。
WhichpiechartshowstheagesoftheAsianstudentssurveyed?Asianstudentsareincreasinglyusing______tohelparrangeth
最新回复
(
0
)