首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其功能是: ①单击“读数据”命令按钮,则将考生文件央下in5.dat义件中的100个正整数读入数组a中,同时显示在文本框Text1中。 ②单击“素数”按钮,则将数组a中所有素数(只能被1和自身整
在考生文件夹下有一个工程文件sjt5.vbp,其功能是: ①单击“读数据”命令按钮,则将考生文件央下in5.dat义件中的100个正整数读入数组a中,同时显示在文本框Text1中。 ②单击“素数”按钮,则将数组a中所有素数(只能被1和自身整
admin
2015-10-23
18
问题
在考生文件夹下有一个工程文件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://jikaoti.com/ti/NSJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于局部变量的叙述中错误的是()。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是()。
有下列两个过程:SubS1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=tEndSubSubS2(xAsInteger,yAsInteger)Di
执行下面的程序段后,变量S的值为【】。S=5Fori=2.6To4.9Step0.6S=S+1Nexti
测试的目的是暴露错误,评价程序的可靠性;而【】的目的是发现错误的位置并改正错误。
以下各项中,VisualBasic不能接收的图形文件是
双击窗体中的对象后,VisualBasic将显示的窗口是
下列各种形式的循环中,输出"*"的个数最少的循环是
VisualBasic布尔运算符Xor,Or,Eqv,And中,级别最高的运算符是()。
下列运算符中,优先级最高的是
随机试题
患儿,5岁。发热恶寒,咳嗽声重,口不渴,咳痰白而清稀,舌质淡红,舌苔白,脉浮紧。其治法是()
除有关节肿痛外.对类风湿关节炎诊断最有意义的表现
关于受体可逆性描述错误的是
本案发起人符合公司法规定的出资方式是()。关于赵某的股份和身份,正确的说法是()。
合同义务转移的效力包括()。
下列有关组织设计的表述错误的是()。
中国第一部新歌剧是()。
下列关于认识的本质的理解,错误的是()。
已知一个二叉树有1025个结点,那么由此推断二叉树的高h为()。
设a=2,b=3,C=4,d=5,下列表达式的值是()。a>bAndCc
最新回复
(
0
)