首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
2015-10-23
29
问题
编写如下程序:
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/xDLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
单击命令按钮时,下列程序代码的执行结果为()。PrivateSubProcl(nAsInteger,ByValmASInteger)n=nMod10m=m\10EndSubPriva
在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程:PrivateSubCommandl_click()CommonDialogl.Friter="AllFiles(*.*)|*.*
运行时,当用户向文本框输入新的内容,或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时,将触发文本框的()事件。
在窗体上绘制一个文本框,然后编写如下事件过程:PrivateSubForm_Click()x=InputBox("请输入一个整数")Printx+Text1.TextEndSub程序运行时,在文本框中输入45
下列程序段的执行结果为(),n=0Fori=1To3Forj=5To1Step-1n=n+1Nextj,iPrintn;j;I
有如下函数过程:FunctionFun(ByValxAsIngeger,ByValyAsInteger)AsIntegerDoWhile…y0reminder=xModyx=yy=reminderLo
在窗体上画一个命令按钮,名称为Commandl。然后编写如下程序:PrivateSubCommandl_Click()ForI=1T02ForJ=1ToIPrintString(I,″Hello″);NextJPr
在程序中动态地给图片框加载图像文件的函数为______。
在窗体上画一个文本框和一个图片框,然后编写下列两个事件过程:PrivateSubForm_C1ick()Textl.Text="VBProgramming"EndSubPrivateSubText1_change()
随机试题
A.波动度B.相对生物利用度C.绝对生物利用度D.脆碎度E.絮凝度评价混悬剂质量的参数是
Chinese-AmericanstodayhavehigherincomesthanAmericansingeneral.One-fourthofall【36】Chinese-Americansareworkinginsci
建设工程项目的现金流量按当年价格预测时,确定基准收益率需要考虑的因素包括()。
绕在卷轴上的光导纤维
下列说法中,正确的是()。
教学的内容、方法和进展要适合学生身心发展的特点,体现的教学原则是()。
一个球从100米高处自由落下,每次着地后又跳回前一次高度的一半再落下。当它第10次着地时,共经过的路程是()米。(精确到1米且不计任何阻力)
否认世界具有统一性的哲学是
执行如下两条语句后,窗体上显示的是()。a=9.8596PrintFormat(a,“$00,00.00”)
Livinginaforeigncountryisfun,butitisn’talwayseasy.Therearemanydifferencesbetweenculturesandalthoughsomeof
最新回复
(
0
)