首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
19
问题
编写如下程序:
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全国计算机二级
相关试题推荐
设x=4,y=6,则以下不能在窗体上显示出“A=10”的语句是
设a=“MicrosoflVisualbasic”,则以下使变量b的值为“Visualbasic”的语句是
窗体上有名称分别为Text1、Text2的文本框,名称为Commandl的命令按钮。运行程序,在Textl中输入“FormList”,然后单击命令按钮,执行如下程序:PrivateSubCommandl_Click()Tex
下面是求最大公约数的函数的首部Functiongcd(ByValxAsInteger,ByValYAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是
设有如下事件过程:PrivateSubCommandl_Click()Dimaa=Array(12,3,8,5,10,3,5,9,2,4)Fork=1To9Printfun(a(k一1),a(k));”
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序:FunctionFun(x)y=0Ifx
下列关于通用对话框CommonDialogl的叙述中,错误的是
随机试题
“实”的病机最根本的方面是
故障率(失效率)的常用单位是()。
远期利率协议是指交易双方约定在未来某一日交换协议期间内一定名义本金基础上分别以合同利率和参考利率计算利息的金融合约。()
某市一家彩电生产企业,为增值税一般纳税人,适用企业所得税税率25%。2019年生产经营业务如下:(1)全年直接销售彩电取得不含税销售收入8000万元(不含换取原材料的部分),全年购进原材料,取得增值税专用发票,注明税款850万元(已通过主管税务机关认证
喜欢控制他人,能运用权力,是六种人际关系取向中的()。
12,15,2l,30,42,()
按时间先后,下列政治主张排序正确是()。①外争主权,内除国贼②习兵战不如习商战③驱除鞑虏、恢复中华、创立合众政府
Confirmingwhatwomenhavelongknown,anAmericanstudyreleasedonWednesday-showsmenaredraggingtheirfeetongettingmarr
InChina______graduatesgoabroadtohaveafurtherstudyeveryyear.
LandfillsYouhavejustfinishedyourmealatafastfoodrestaurantandyouthrowyouruneatenfood,foodwrappers,drinkc
最新回复
(
0
)