首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其功能是: ①单击“读数据”命令按钮,则将考生文件央下in5.dat义件中的100个正整数读入数组a中,同时显示在文本框Text1中。 ②单击“素数”按钮,则将数组a中所有素数(只能被1和自身整
在考生文件夹下有一个工程文件sjt5.vbp,其功能是: ①单击“读数据”命令按钮,则将考生文件央下in5.dat义件中的100个正整数读入数组a中,同时显示在文本框Text1中。 ②单击“素数”按钮,则将数组a中所有素数(只能被1和自身整
admin
2015-10-23
20
问题
在考生文件夹下有一个工程文件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
下列不属于软件工程的3个要素的是()。
有如下事件过程:PrivateSubForm_Active()DimScore(1to3)AsIntegerDimiAsIntegerDimtAsVariantFori=3To1step-1
程序测试分为静态分析和动态测试。其中【】是指不执行程序,而只是对程序文本进行检查,通过阅读和讨论,分析和发现程序中的错误。
在窗体上画一个名为Command1的命令按钮,其Command1_Click事件过程如下:SubCommand1_Click()DimstudentAsstudtypeDimrecord_noAsIntegerrecord_no=1
单击命令按钮时,下列程序的执行结果为PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=12:y=32CallPCS(x,y)Printx;yEndSub
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Fori=1To4x=4Forj=1To3x=3Fork=1To2x=x+6NextNext
在运行阶段,要在文本框Textl获得焦点时选中文本框中所有内容,对应的事件过程是
首先执行循环体,然后再进行条件判断,决定是否结束循环的循环语句是______。
下列运算符中,优先级别最高的是
随机试题
冬季停用的冷凝器,应将管道中的积水放净,防止管道冻裂。()
史载:一名叫马丁的英国保险商人于公历1536年6月18日为他的朋友吉朋承保人寿保险,保险金额2000英镑,保险期限12个月,吉朋于1537年5月29日死亡,受益人请求给付保险金。但马丁声称:保险期间12个月,是以阳历每月28天计算,不是指日历上的12个月,
胎产式是指
进口日期栏应填()标记唛码及备注栏应填()
如果某房地产的售价为1000万元,其中建筑物价格为600万元,地价为400万元;该房地产的年客观收益为72万元,建筑物的资本化率为8%.,那么土地的资本化率最接近于()。
美国心理学家华生为了研究儿童的恐惧心理,在儿童抚摸小白兔时,大声敲锣,结果使这个儿童不但对白兔,甚至对其他白色的东西都产生了畏惧心理。这种行为违背了教育心理学研究的哪项原则?()
在一幅比例尺为1:200的地图上标注有一个长方形的鱼塘。该鱼塘的长与宽之比为3:2,在地图上量得的周长为30厘米。则该鱼塘的实际面积是()平方米。
反映教育活动中人的个性化要求的现代教育特征是_______。
下面不属于软件设计阶段任务的是
Elderlypeopleeasilybecomesociallyisolated.
最新回复
(
0
)