首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txl文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将杏找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txl文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将杏找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所
admin
2018-06-29
29
问题
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txl文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将杏找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所示)。程序不完整,请在指定的位置把程序补充完整。
注意:不得修改原有程序和控件的属性。程序结束运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:分析并在适当位置编写程序代码。 参考答案 Dim a As Integer Dim b As Integer a=0 b=arr(1) For i=1 To 4 0’确定素数个数 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:按照题目要求调试并运行程序,效果如图3.16所示。 [*] 步骤4:关闭程序后,按题目要求存盘。
解析
除了1和它本身以外,不再有别的约数,这种整数叫做素数。判别某数m是否是素数的经典算法是:对于m,依次判别能否被I(I=2,3,4…m一1)整除,只要有一个能整除,m就不是素数,否则m是素数。本题需统计数据中素数的个数和所有素数中的最小素数。自定义函数过程prime用来判断是否为素数,返回True则为素数,反之则为非素数,通过对返回值的判断确定素数,并进行个数统计及查找最小值。
转载请注明原文地址:https://kaotiyun.com/show/WdGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果在VisualBasic集成环境中没有打开属性窗口,下列可以打开属性窗口的操作是()。
VisualBasic集成环境由若干窗口组成,其中不能隐藏(关闭)的窗口是()。
编写如下程序:PrivateSubForm_Click()Print“Welcome!”EndSubPrivateSubForm_MouseDown(ButtonAsInteger,Shi
编写如下程序:PrivateSubCommandl_Click()Dima(3,3)AsIntegerDimsAsIntegerFori=lTo3Forj=1To3
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序:OptionBase1PrivateSubCommandl-Click()Dima(4,4)Fori=lTo4Forj=1To
已知图片框Picturel中已装入一个图形,为了在不删除图片框的前提下,清除该图形,应采取的正确操作是()。
下列事件的事件过程中,参数是输入字符ASCII码的是()。
以下过程的功能是从数组中寻找最大值:PrivateSubFindMax(a()AsInteger,ByRefMaxAsInteger)DimsAsInteger.fAsInteger
(1)在名称为Forml的窗体上添加一个名称为Labell、标题为“设置速度”的标签,通过属性窗口把标签的大小设置为自动调整。添加一个名称为HScrolll的水平滚动条,通过属性窗口设置适当属性使滚动条的最小值为l,最大值为80,单击滚动条两端的箭头时,滚
设在当前目录下有一个名为“file.txt”的文本文件,其中有若干行文本。编写如下程序:PrivateSubCommandl_Click()Dimch$.asciiAsIntegerOpen“file.t
随机试题
学习型组织的组织结构是()
有关细菌化学组成的说法错误的是()
痞满的基本病机是()
根据有关规定,水电建设工程施工安全管理机构的基本要求是()。
如果A、B两只股票的收益率变化方向和变化幅度完全相同,则由其组成的投资组合( )。
(2013年考题修改)爱宝公司是B国一家婴幼儿用品生产商,公司的产品包括婴儿床、婴儿车、婴幼儿学习及个人卫生用品等,产品主要在B国内销。B国近年生育率一直处于高位,为婴幼儿用品市场创造了不少商机。最近,爱宝公司的客户服务单位分别从互联网及纸制信件两个途径,
有9张纸牌,分别为1至9。甲、乙、丙、丁四人取牌,每人取2张。现已知甲取的两张牌之和是10;乙取的两张牌之差是1;丙取的两张牌之积是24;丁取的两张牌之商是3。问剩下一张是什么牌?( )
没有一种感情比亲情更浓烈,没有一种_______比得上回家过年。春节是我们每个人都渴望的日子,在外漂泊打拼的人们终于可以回家与家人团聚了,汽车站、火车站、飞机场,拥挤着拎着大包小包翘首期盼的“归雁们”,空气中_______着思乡的气味。无论这条回家的路再远
下列诗句中没有运用比兴手法的一项是________。
A、Itcanavoidthenecessityofcarryinglargeamountofcash.B、Youneedn’tpurchaselargeamountsoftraveler’schecks.C、You
最新回复
(
0
)