首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Commandl_Click() Dim i As Integer,i As Integer n=InputBox("输入一个大于1的正整数") For i=2 To n
编写如下程序: Private Sub Commandl_Click() Dim i As Integer,i As Integer n=InputBox("输入一个大于1的正整数") For i=2 To n
admin
2018-10-18
16
问题
编写如下程序:
Private Sub Commandl_Click()
Dim i As Integer,i As Integer
n=InputBox("输入一个大于1的正整数")
For i=2 To n
Forj=2 To Sqr(i)
If i Mod i=0 Then Exit For
Nextj
Ifj>Sqr(i)Then Print i
End Sub
该程序的功能是
选项
A、判断n是否为素数
B、输出n以内所有的奇数
C、输出n以内所有的偶数
D、输出n以内所有的素数
答案
D
解析
本题中的外循环是从2循环到n,然后进入内循环,在内循环中依次判断i能否被j整除,若能整除则退出内循环;内循环结束后进行判断,如果是中途退出内循环的则必然不满足i>Sqr(i),不会输出i的值;只有i不能被任何一个{整除的情况下才会输出i的值,即判断i是不是素数,只有素数才输出。
转载请注明原文地址:https://jikaoti.com/ti/Kfm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为List1的列表框,然后编写如下程序:PrivateSubForm_Click()Fori=1To10Item="Item"&iList1.AddItemItem
窗体上有一个名称为VScroll1的垂直滚动条,为了设定单击滚动条两端箭头时的Value增量值,应设置的属性是
窗体上有一个名称为Text1的文本框,一个名称为Combo1的组合框。将文本框中的内容添加到组合框中所使用的命令是
以下不能触发滚动条Change事件的操作是( )。
以下关于文件的叙述中,错误的是( )。
下列关于水平滚动条的叙述中,错误的是
对长度为10的线性表进行冒泡排序,最坏情况下需要比较的次数为
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是( )。
在标准模块中用Public关键字定义的变量,其作用域为( )。
随机试题
WindowsServer2003内核的一个重要功能是将________和处理机体系结构的差异隔离开。
进行报价解释时必须遵循的原则有()
Ontheboy’sface,therewasasweetsmile,whichsuggestedthathe______happytogivehislifeforhiscountry.
以下对紫外线最敏感的部位是
骨髓涂片细胞学检查的内容中,不正确的是
简易程序
下列说法错误的有()
某法院对儿子不给父母赡养费的案件,采取了卫星定位的方法来强制执行。你是怎么看的?
现有K个人在某大楼的一层进入电梯,该楼共n+1层.电梯在任一层时若无人下电梯则电梯不停(以后均无人再人电梯).现已知每个人在任何一层(当然不包括第一层)下电梯是等可能的且相互独立,求电梯停止次数的平均值.
Teachersneedtobeawareoftheemotional,intellectual,andphysicalchangesthatyoungadultsexperience.Andtheyalsoneed
最新回复
(
0
)