首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个正整数读入数组a中; ②单击“统计”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方,那么它就是完全
在考生文件夹下有一个工程文件sjt3.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个正整数读入数组a中; ②单击“统计”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方,那么它就是完全
admin
2016-09-18
61
问题
在考生文件夹下有一个工程文件sjt3.vbp,其功能是:
①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个正整数读入数组a中;
②单击“统计”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方,那么它就是完全平方数。例如,36=62,所以36就是一个完全平方数),并将这些完全平方数的最大值与个数分别显示在文本框Text1、Text2中。
在给出的窗体文件中有了全部控件(如图6所示),但程序不完整,请将程序中的注释符去掉,把?号改为正确的内容,实现上述功能。
注意:考生不得修改窗体文件已存在的控件和程序,最后将程序原文件名存盘。
选项
答案
步骤1:打开考生文件夹下的本题工程文件sjt3.vbp,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: If x=m^2Then:is_square=flag If a(k)>max Then Text1.Text=max:Text2.Text=num 步骤2:按要求将文件保存至考生文件夹中。
解析
Sqr(N)求平方根函数,用于返回N的算术平方根。
is square()函数用于判断参数x是否为完全平方数,方法是从l到x的平方根进行循环,依次判断x是否能等于循环变量的平方,若等于则退出循环,返回True,若循环结束后都没有等于某个循环变量的平方则返回False。
求完全平方数的最大值,只需要先预设最大值为0,然后在循环中每次找到一个完全平方数就将其与最大值比较,若大于预设最大值则令其为新的最大值.同时令计数器加l,循环结束后可得最大值与个数。
转载请注明原文地址:https://kaotiyun.com/show/GpLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的功能是:将数据1,2,…,10写入顺序文件Base.txt中,请填空。PrivateSubForm_Click()DimiAsInteger Open______As#1 Fori=1To
下列可以启动VisualBasic的方法是()。
A=7,B=3,C=4,则表达式AMOD3+B^3/C\5的值为______。
在软件开发中,需求分析阶段产生的主要文档是()。
下列不一定是传值的虚实结合方式的选项是()。
以下能正确定义数据类型Svstemlnfo的代码是()。
队列是限定在表的一端进行插入和在另一端进行删除操作的线性表。允许删除的一端称作____________。
设有整型变量s,取值范围为0~100,表示学生的成绩。有如左边程序段:右边用SelectCase结构改写上述程序,使两段程序所实现的功能完全相同。请填空。Ifs>=90ThenSelectCasesLev
若将变量TestDate声明为Date类型,则下列为变量TestDate赋值的语句中正确的是()。
表达式5Mod3+3\5*2的值是()。
随机试题
关于破坏社会主义市场经济秩序罪,以下说法正确的是:()
正常人肺动脉频谱多普勒为
企业在一定期间内生产经营活动的最终财务成果,也即收入与费用相抵后的差额,称为()。
在建设项目的实施期,要负责()。
工程实际进度与经过确认的进度计划不符时,承包人应按照( )的要求提出改进措施,并经过工程师,确认后执行。
实施素质教育就是全面贯彻党和国家的教育方针,以提高国民素质和民族创新能力为宗旨,着重培养学生的()。
若f(x)=为随机变量X的概率密度函数,则a=________。
设随机变量X的分布函数为F(x),密度函数为其中A为常数,则()
A、Becausetheycan’taffordto.B、Becausetheythinksmallhousesaremorecomfortabletolivein.C、Becausebighousesareusua
A、Theydidn’tgetanycheck.B、Theywereheartdiseasepatients.C、Theywereunwillingtojointheresearch.D、Theywereheavya
最新回复
(
0
)