首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
50
问题
编写如下程序:
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/bXHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面不属于软件设计阶段任务的是
假定有如下程序:PrivateSUbFormClick()DimNAsInteger,JAsIntegerN=0J=1DoUnti1N>2N=N+1:J=J+N*(N+1)LoopPrintN:JEndSub运行程序,
关于水平滚动条,如下叙述中错误的是
以下关于通用对话框的叙述中,错误的是
窗体上有一个名称为Textl的文本框,一个名称为Commandl的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivateSubCommandlClick()DimslAsString,s2AsStringOpen“c:\d4.
窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程:PrivateSubText1.KeyUp(KeyCodeAsInteger,ShiftAsInteger)PrintTextl.Text;EndSub运行程序,并
编写如下程序:PrivateSubCommandl_Click()PrivateFunctionfun1(ByValmAsInteger,DimxAsInteger,yAsInteger
对于含有多个窗体的工程而言,以下叙述中正确的是
在学校每间宿舍住1到6名学生,每个学生只在一间宿舍居住,则实体宿舍与实体学生间的联系是()。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画一个名称为Frame1、标题为“目的地”的框架,在框架中添加三个复选框,名称分别为Check1、Check2、Check3,其标题分别是“上海”、
随机试题
继发性肺结核与原发性肺结核的主要不同点是
自动平衡式电子电位差计是基于电压平衡原理工作的。 ()
患者,女性,32岁。停经48天,阴道淋漓出血7天,今日突发下腹痛,并伴恶心,呕吐而就诊。检查体温36.7℃,脉搏120次/分,血压11/7kPa(80/50mmHg),尿绒毛膜促性腺激素(HCG)测定(+),内诊后穹窿饱满,宫颈举痛明显,子宫未检清,右侧宫
某施工单位承包了一外资工程,报价中现场管理费率为10%,企业管理费率为8%,利润率为5%;A、B两分项工程的综合单价分Slj为80元/m2和460元/m3。该工程施工合同规定:合同工期1年,预付款为合同价的10%,开工前1个月支付,基础工程(工期
证券过户登记按照引发变更登记需求的不同可以分为证券交易所集中交易过户登记和非集中交易过户登记。()
个人汽车贷款每笔最多展期()次。
北京时间下午4点时,某人从镜子里看到挂在身后的4个钟的走时如选项所示,误差最小的钟是()。
“慢性肝炎”里的“慢性”是一个区别词。()
YardSalesYardsales【T1】________________.Onefamily,【T2】________________,canholdayardsale.People【T3】____________
HowtoMakePeacewithYourWorkloadA)Swamped(忙碌的),underthegun,juststrugglingtostayabovewater:whateverofficecliche
最新回复
(
0
)