首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Commandl_Click() Dim i As Integer,j As Integer n=InputBox(“输入一个大于1的正整数”) For i=2 To n F
编写如下程序: Private Sub Commandl_Click() Dim i As Integer,j As Integer n=InputBox(“输入一个大于1的正整数”) For i=2 To n F
admin
2013-11-29
50
问题
编写如下程序:
Private Sub Commandl_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 i=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/gXQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在窗体上设置两个标签,名称分别为Labell与Label2、标题分别为“当前时间为:”和空;要求当单击窗体时,Label2显示当前时间。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图21—3所示。注意:要求考生在编写完程序后,
(1)在名称为Forml的窗体上画一个名称为Checkl的复选框数组,它含4个复选框,它们的标题依次为“Iteml”、“Item2”、“Item3”和“Item4”,其索引号分别为0,l,2,3。初始状态下,“Iteml”和“Item4”为选中状态。程序运
在当前目录下有—个名为“myfile.txt”的文本文件,其中有若干行文本。下面程序的功能是读入此文件中的所有文本行,按行计算每行字符的ASCII码之和,并显示在窗体上。请填空。PrivateSubCommand1_Click()Dimc
假定有如下的Sub过程:SubS(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上画一个命令按钮,然后编写如下事件过程:Priv
对象实现了数据和操作的结合,使数据和操作______于对象的统一体中。
软件开发离不开系统环境资源的支持,其中必要的测试数据属于
在代码中定义了一个子过程:SubP(a,B)...EndSub下面______调用该过程的格式是正确的。...EndSub下面______调用该过程的格式是正确的。
把窗体的KeyPreview属性设置为True,然后编写如下过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)En
算法的空间复杂度是指______。
下面对对象概念描述错误的是
随机试题
在关系模型中,属性的个数称为()
按照药性升降浮沉理论,具有升浮药性的药是
A.七制香附丸B.乌鸡白凤丸C.少腹逐瘀丸D.更年安片E.安坤颗粒用于气滞血虚引起的月经不调的是
慢性支气管炎的主要诊断依据是()。
关于管理方格理论的说法,错误的是()。
要充分挖掘人才、合理调配人才和高效使用人才,使人才在适宜的环境中成长和发挥作用,这体现了教育人事行政的()。
我们也许已经开始后悔,未能把过去那些珍贵的生活片段保存下来,殊不知,多少年后,我们又会后悔今天。如果有一天,我们突然发现,投身再大的事业也不如把自己的人生当作一个事业,聆听再好的故事也不如把自己的人生当作一个故事,我们一定会动手动笔,做一点有意思的事情。不
中国人民政治协商会议的性质是()
WhyisWellTipmovingtheirconferencefromSeattletoScottsdale?BecauseScottsdale’srelaxedatmosphere,scenicbeauty,a
WhenIfirstentereduniversity,myaunt,whoisanEnglishprofessor,gavemeanewEnglishdictionary.Iwas【C1】______toseet
最新回复
(
0
)