首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
编写如下程序: 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
admin
2020-01-02
59
问题
编写如下程序:
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://kaotiyun.com/show/GBTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在名称为Form1的窗体上添加一个名称为L1,标题为“业余爱好”的标签,再添加一个名称为Ch1的复选框数组,含3个复选框,它们的Index属性分别为0、1、2,标题依次为“体育”、“音乐”、“美术”,请设置复选框的属性,使其初始状态如下表所示。程
(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2,初始内容均为空)和一个命令按钮(名称为Command1,标题为“显示”)。然后编写命令按钮的Cl
(1)考生文件夹下的工程文件sjt3.vbp中有一个初始内容为空、且带有垂直滚动条的文本框,其名称为Text1;两个标题分别为“读数据”和“查找”的命令按钮,其名称分别为Cmd1、Cmd2。请画一个标题为“查找结果”的标签Labe11,再画一个名称为Tex
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是
编写如下程序:PrivateSubCommandl_Click()Dimstr1AsString,str2AsStringstr1=InputBox(”输入一个字符串”)subfstr1,str2:Printstr
以下叙述中错误的是
以下变量名中合法的是
以下叙述中,错误的是
在标准模块中,将a定义为全局整型变量的语句是
随机试题
患者青年男性,梦中遗精,夜寐不安,头晕心悸,精神不振,倦怠乏力,小便短赤,舌质红,脉细数。中医治法应为
南柴胡的原植物为()
根据监理(业主)确认的工程量计量结果,承包商向监理(业主)提出支付工程进度款申请,监理(业主)应在()天内向承包商支付工程进度款。
某承包商于某年承包某外资工程的施工,与业主签订的承包合同约定:工程合同价2000万元;若遇物价变动,工程价款采用调值公式动态结算。该工程的人工费占工程价款的35%,水泥占23%,钢材占12%,石料占8%,砂料占7%,不调值费用占15%;开工前业主向承包商支
对于饱和软黏土地基,通过强夯将级配良好的块石、碎石、矿渣及建筑垃圾等坚硬粗颗粒材料,夯入其中,从而形成块(碎)石墩,这种方法称强夯置换法,因其具有较高强度,由此()。
税务师对生产企业出口业务退(免)税申报进行审核时,认为正确的业务有()。
旧三民主义中的()被孙中山称为政治革命。
SDH信号最基本也是最重要的模块信号是______,其速率为155.520Mbps。
假定有以下循环结构DoUntil条件循环体Loop则正确的描述是()。
Ourorganizationhasdevelopedover15,000InternationalStandardsona(141)ofsubjects.Thefullrangeoftechnicalfieldsca
最新回复
(
0
)