首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.瞰文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Labe14和Labe13中(窗体外观如图所示)
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.瞰文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Labe14和Labe13中(窗体外观如图所示)
admin
2020-02-27
21
问题
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.瞰文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Labe14和Labe13中(窗体外观如图所示)。程序不完整,请在指定的位置把程序补充完整。
注意:不得修改原有程序和控件的属性。程序结束运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:分析并在适当位置编写程序代码。 Dim a As Integer Dim b As Integer a=0 b=arr(1) For i=1 T0 40’确定素数个数 If prime(arr(i))Then’判断是否为素数 a=a+l’素数个数累加 Label3.Caption:a’在标签中显示 Next For i=1 To 40’查找最小素数 If prime(arr(i))And arr(i) <=bThen’比较素数大小 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用来判断是否为素数,返回Tme则为素数,反之则为非素数,通过对返回值的判断确定素数,并进行个数统计及查找最小值。
转载请注明原文地址:https://kaotiyun.com/show/VRTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体中有一个文本框Text1,若在程序中执行了Text1.SetFocus,则触发()。
下面哪个属性肯定不是框架控件的属性()。
数据库应用系统中的核心问题是()。
窗体上有1个名称为Command1的命令按钮,能够使其向左移动100的语句是()。
以下叙述中错误的是()。
表示“x+y小于10且x-y大于或等于6”的VisualBasic表达式是()。
以下叙述中,错误的是()。
软件测试用例包括()。
Command1的命令按钮,如图所示。运行程序,单击命令按钮,将文本框中被选中的文本添加到组合框中,若文本框中没有选中的文本,则将文本框中的文本全部添加到组合框中。命令按钮的事件过程如下:PrivateSubCommand1_Click()If
在数据处理中,其处理的最小单位是()。
随机试题
下列各项正确说明判断一种观点的是非对错的标准的是
婴幼儿哮喘最基本的治疗方法是应用
与大肠相表里的是
下列关于液体制剂质量要求的错误表述为
方案的投资发生在期初,且各年的净收益均相等时,投资回收期与投资收益()。
下列各项中,属于反映财务状况的会计要素的有()。
某黄金珠宝商店为增值税一般纳税人,2016年2月零售一批贵重首饰,该批贵重首饰包括包金、镀金和金银镶嵌首饰,取得零售额76050元(无法分别核算各类首饰的零售额)。假设该黄金珠宝商店无其他业务,则该黄金珠宝商店2016年2月应缴纳的消费税为()元。
广义的学习指人和动物在生活过程中,(凭借经验)产生的行为或行为潜能的相对【】
乘坐飞机从甲地去往乙地,可由甲地直飞乙地,也可经由丙地中转。每天从甲地直飞乙地的航班有3班、甲地飞丙地的航班有4班、丙地飞乙地的航班有2班。如果要从甲地出发在两天内到达乙地,可供选择的航班线路有多少种?
Youhavereadanadvertisementandwanttowriteanapplicationletter.假如你是王宏,男,26岁,毕业于广州大学,从今天报纸上得知某公司招聘翻译或导游,你认为自己具备条件,希望
最新回复
(
0
)