首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sit5.vbp 。该程序的功能是从in5.txt文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4-和Label3中(窗体外观如
在考生文件夹中有一个工程文件sit5.vbp 。该程序的功能是从in5.txt文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4-和Label3中(窗体外观如
admin
2020-04-08
66
问题
在考生文件夹中有一个工程文件sit5.vbp 。该程序的功能是从in5.txt文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4-和Label3中(窗体外观如图所示)。程序不完整,请在指定的位置把程序补充完整。
注意:不得修改原有程序和控件的属性。程序结束运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并在适当位置编写程序代码。 参考答案 Dim a As Integer Dim b As Integer a=0 b=arr(1) For i=1 To 40′确定素数个数 If prime(arr(i))Then′判断是否为素数 a=a+1′素数个数累加 Label3.Caption=a′在标签中显示 Next For i=1 To 40′查找最小素数 If prime(arr(i))And arr(i) < =b Then’比较素数大小 b=arr(i)′将较小素数赋给b Label4.Caption=b′在标签中显示 Next 步骤3:按照题目要求调试并运行程序,效果如图4.16所示。 [*] 步骤4:关闭程序后,按题目要求存盘。 【易错提示】prime()过程的函数返回值确定,调用过程中,变量为数组元素。
解析
除了l和它本身以外,不再有别的约数,这种整数叫做素数。判别某数m是否是素数的经典算法是:对于m,依次判别能否被I(I=2,3,4…m—1)整除,只要有一个能整除,m就不是素数,否则m是素数。本题需统计数据中素数的个数和所有素数中的最小素数。自定义函数过程prime用来判断是否为素数,返回True则为素数,反之则为非素数,通过对返回值的判断确定素数,并进行个数统计及查找最小值。
转载请注明原文地址:https://kaotiyun.com/show/8ATp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在数据库设计中,将E-R图转换成关系数据模型的过程属于()。
设有如下Commandl的单击事件过程及fun过程:PrivateSubCommandl_Click()DimXAsIntegerX=Val(InputBox(“请输入一个整数”))
有三个关系R,S和T如下:则由关系R和S得到关系T的操作是( )。
为了使窗体左上角不显示控制框,需设置为False的属性是( )。
为使文本框具有初始值"VB",在设计阶段正确的操作是
以下叙述中错误的是()。
设有下面的语句:PrintIIf(x>0,1,IIf(x
设窗体上有2个直线控件Line1和Line2,若使两条直线相连接,需满足的条件是( )。
现有表示患者和医疗的关系如下:P(P#,Pn,Pg,By),其中P#为患者编号,Pn为患者姓名,Pg为性别,By为出生日期,Tr(P#,D#,Date,Rt),其中D#为医生编号,Date为就诊日期,Rt为诊断结果。检索在1号医生处就诊的病人姓名的表达式是
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是()。
随机试题
中医诊断为治法为
一新生儿,早产,轻度窒息,3天后出现烦躁、脑性尖叫、惊厥,前囟门饱满,肌张力增高,最可能的诊断是
小儿1岁时,头围是
张某是云南省人民代表大会选出的全国人大代表。2000年张某因犯受贿罪被检察院逮捕。云南省人民代表大会召开会议,拟罢免其全国人大代表资格。如云南省人民代表大会有代表300人,则提出对张某的罢免案,需要有多少代表联名?
财政补助结转资金指当年支出预算已执行但尚未完成或因故未执行。下年需按原用途继续使用的财政补助资金。财政补助结转包括基本支出结转和项目支出结转。()
下列关于允许扣除的外购应税消费品已纳税款的来源限定正确的有()。
思维的不可逆性和自我中心在皮亚杰所描述的()阶段表现得最为明显。
以下不属于人本主义学习理论观点的是()
对于下列程序段; AGAIN: MOV ES:[DI],AL INC DI LOOP AGAIN可用指令( )完成相同的功能。
Intimesofsevere______companiesareoftenforcedtomakemassivejobcutsinordertosurvive.
最新回复
(
0
)