首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其功能是: ①单击“读数据”命令按钮,则将考生文件央下in5.dat义件中的100个正整数读入数组a中,同时显示在文本框Text1中。 ②单击“素数”按钮,则将数组a中所有素数(只能被1和自身整
在考生文件夹下有一个工程文件sjt5.vbp,其功能是: ①单击“读数据”命令按钮,则将考生文件央下in5.dat义件中的100个正整数读入数组a中,同时显示在文本框Text1中。 ②单击“素数”按钮,则将数组a中所有素数(只能被1和自身整
admin
2015-10-23
79
问题
在考生文件夹下有一个工程文件sjt5.vbp,其功能是:
①单击“读数据”命令按钮,则将考生文件央下in5.dat义件中的100个正整数读入数组a中,同时显示在文本框Text1中。
②单击“素数”按钮,则将数组a中所有素数(只能被1和自身整除的数称为素数)存人数组b中,并将数组b中的元素显示在文本框Text2中。
在给出的窗体文件中已经有了全部控件(如图所示),但程序不完整。
要求:完善程序使其实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须先执行“素数”操作,然后再用窗体右上角的关闭按钮结束程序,否则将没有成绩。最后,程序按原文件名进行存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:打开代码编辑窗几,在代码编辑窗亡1指定位置编写以下代码。 For k=1 To 100 flag=True i=2 Do While i<=Int(a(k)/2)And flag’循环判断a(k)是否为素数 If Int(a(k)/i)=a(k)/i Then flag=False’若为素教,则使flag为False Else i=i+1’若不为素数,则i加1 End If Loop If flag=True Then num=num+1’满足条件则num累加 b(num)=a(k)。将满足条件的数存入b数组 End If Next k 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
单击“读数据”按钮,将考牛文件夹下in5.dat文件中的100个正整数读入数组a中,同时显示在Text1文本框中;运用Space()函数使数值之间空两个格,并判断是否为素数,如果是素数则flag标记为True,并将这个数存入数组b,通过变量num累加数组b的素数个数。最后通过循环语句将数组h中的元素显示在文本框Text2中。
转载请注明原文地址:https://kaotiyun.com/show/UHLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上建立通用对话框需要添加的控件是()。
有下列Sub过程:SubSun(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上的命令按钮Command1中,编写下列事件过程,执行该事件过程调用Sun过程,结果是()。Priv
下列关于栈的描述中错误的是()。
在面向对象方法中,属性与操作相似的一组对象称为【】。
结构化程序设计主要强调的是
执行下面的程序段后,变量S的值为【】。S=5Fori=2.6To4.9Step0.6S=S+1Nexti
在计算机软件系统的体系结构中,数据库管理系统位于用户和【】之间。
测试的目的是暴露错误,评价程序的可靠性;而【】的目的是发现错误的位置并改正错误。
软件设计包括软件的结构、数据接口和过程设计,其中软件的过程设计是指
在VisualBasic中,下列运算符中优先级最高的是______。
随机试题
抽油机主机是由底座、减速箱、曲柄、平衡块、连杆、横梁、支架、游梁、驴头、悬绳器、()和各种连接轴承组成。
室性心动过速伴严重血流动力学障碍时,终止发作首选
血清酶活性测定时,通常采用
房屋所有权登记收费住房按套收取,每套收费标准为80元,住房以外的其他房屋按宗定额收取。
10kV及以下装有可燃性油浸电力变压器的变电所,当设在耐火等级为二级的建筑中,建筑物应采取全面防火措施。()
根据证券法律制度的规定,下列关于上市公司收购人义务的表述中,不正确的是()。
小王步行的速度比跑步慢50%,跑步的速度比骑车慢50%。如果他骑车从A城去B城,再步行返回A城共需要2小时。小王跑步从A城到B城需要()分钟。
ThemajorproblemwithE-mailisthatitis(1)easytousethatpeoplecanbecome(2)withmessages.(3)theycanpossiblyansw
在下面的VisualFoxPro表达式中,运算结果不为逻辑真的是()。
打开http://localhost/web/intro.htm页面,浏览对各个汽车品牌的介绍,找到查看更多汽车品牌介绍的链接,在考生文件夹下新建文本文件searchadress.txt,复制链接地址到searchadress.txt中,并保存。
最新回复
(
0
)