首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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-06-30
16
问题
编写如下程序:
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/WbHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件vbsj5.vbp,请先装入该工程文件,然后完成以下操作:在名称为Form1的窗体上画两个命令按钮,其名称分别为cmdRead和cmdCal,标题分别为“读入数据”和“计算保存”(如图3-61所示)。程序运行后,如果单击“读入数
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入一维数组a中,并按下标顺序将数组a各元素的值显示在List1列表框中;单击“移动”按钮,则将数组a中的最大值移动到数组的最前面,其他
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt。in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。程序运行时,会把in5.txt中的所有记录读入数组a中(每个数组元素是一条记录
(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上有两个列表框,名称分别为List1、List2,在List2中已经预设了内容;还有两个命令按钮,名称分别为C1、C2,标题分别为“添加”、“清除”,如图1-62所示。程序的功能是在运行时,如果选中
(1)在考生目录下有一个工程文件vbsj3.vbp,窗体文件中已给出所有控件和部分程序,如图1-249所示。要求:①利用属性窗口设置适当的属性,使txtInput、txtResult中数据右对齐;②请编写适当的程序完成以下功能:在txtInp
VisualBasic集成环境由若干窗口组成,其中不能隐藏(关闭)的窗口是( )。
设窗体上有2个文本框Text1和Text2,并有下面的事件过程:DimnPrivateSubText1_KeyPress(KeyAsciiAsInteger) If"A"
以下关于VB特点的叙述中,错误的是
下列关于水平滚动条的叙述中,错误的是()。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在标题为“列表框”、名称为Form1窗体上画一个名称为lstCourse列表框,通过属性窗口输入四个列表项:“语文”、“数学”、“外语”、“体育”,列表项采用“复
随机试题
A.柴胡B.荆芥C.升麻D.防风既能发表散风,又能胜湿、止痛、止痉的是
患者,女,59岁,缺失,远中龋,之间嵌塞食物,可摘局部义齿修复选择舌杆做大连接体后,通常在口内距龈缘距离应为
患者,男,35岁。间断上腹痛3年,疼痛发作与情绪、饮食有关。查体:上腹部轻压痛。胃镜见胃窦皱襞平坦,黏膜粗糙无光泽,黏膜下血管透见。此病例考虑诊断为()
慢性肾炎脾虚湿困常用处方
用平车搬运腰椎骨折患者,下列措施哪项不妥
培训需求分析需要收集的信息包括()。
设D域:0≤x≤1,0≤y≤x,则()。
GPS系统包括空间部分、地面控制部分和用户设备部分这三大部分。()
[*]
Whydopeoplechangetheirnameswhentheymoveabroad?Howmanyreasonsforchangingnamesarementionedinthearticle?
最新回复
(
0
)