首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp,该程序的功能是从in5.tx1文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所
在考生文件夹中有一个工程文件sjt5.vbp,该程序的功能是从in5.tx1文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所
admin
2019-06-24
37
问题
在考生文件夹中有一个工程文件sjt5.vbp,该程序的功能是从in5.tx1文件中读入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:关闭程序后,按题目要求存盘。
解析
除了1和它本身以外,不再有别的约数,这种整数叫做素数。判别某数m是否是素数的经典算法是:对于m,依次判别能否被I(I=2,3,4…m—1)整除,只要有一个能整除,m就不是素数,否则m是素数。本题需统计数据中素数的个数和所有素数中的最小素数。自定义函数过程prime用来判断是否为素数,返回True则为素数,反之则为非素数,通过对返回值的判断确定素数,并进行个数统计及查找最小值。
转载请注明原文地址:https://kaotiyun.com/show/tqUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为CD1的通用对话框,通过属性窗口设置CD1的初始路径为C:\,默认的文件名为None,标题为“保存等级考试”,如图3—160所示。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画出如图3—46所示的三角形。下表给出了直线Line1、Line2的坐标值,请按此表画Line1、Line2,并画出直线Line3,从而组成如图
设子程序过程定义的首部为:PublicSubS(XAsInteger,YAsSingle)则以下正确的调用形式为
以下关于控件数组的叙述中,错误的是
VisualBasic中的“启动对象”是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic“启动对象”的描述中,错误的是
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Modulel.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下:Form2的代码如下:
数学式y2>x>10在VB中应表示为
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是
在VisualBasic中,表达式3*2\5Mod3的值是
随机试题
某台双水内冷发电机,其定子线电压UL为13.8kV,线电流IL为6150A,若负载的功率因数由0.85降到0.6时,求该发电机有功功率和无功功率任何变化?
某班有两位学生,学生甲热情直率、精力旺盛、口快心直、办事干脆,但容易急躁、情绪易激动,比较武断。学生乙孤僻敏感、善于思考、行动迟缓,情绪体验深刻又细腻、办事稳妥,不大合群。问题:如何根据这两位学生气质类型的特征进行教育?
某砖混结构典型工程,其建筑体积为600m3,毛石带型基础工程量为72m3。根据概算定额,10m3毛石带型基础需砌石工7.0工日,该单位工程无其他砌石工,则1000m3类似建筑工程需砌石工为()工日。
商业银行获得个人客户信用记录的途径不包括()。
导游服务()。
在教育过程中,采用下列哪些措施能有效培养学生的主动性?()
所有来自澳大利亚的留学生,都住在东区留学生公寓,所有住在东区留学生公寓内的学生,都必须参加今年的国际交流会;有些来自澳大利亚的留学生加入了汉语俱乐部;有些土木工程专业的学生也加入了汉语俱乐部;所有土木工程专业的学生都没有参加今年的国际交流会。由此不能推出
设A是正定矩阵,B是实对称矩阵,证明AB相似于对角矩阵.
Studythefollowingphotocarefullyandwriteanessayof160-200wordsinwhichyoushould1.describethephotobriefly,ande
在数据仓库环境中,粒度是一个重要的设计问题。粒度越【15】,细节程度越高,能回答的查询就越多,数据量就比较大。
最新回复
(
0
)